diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-10-05 20:45:21 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:16 -0700 |
| commit | 2e434a10ac87c9b315ff6a5f9a6a96c596ba1cc0 (patch) | |
| tree | 43140820d004a69259056f62e94fcecb7fee34c6 /t/op/ref.t | |
| parent | 3b46b707952f27567b821808ac47693235133ec7 (diff) | |
| download | perl-2e434a10ac87c9b315ff6a5f9a6a96c596ba1cc0.tar.gz | |
Several TODO tests that now pass.
Diffstat (limited to 't/op/ref.t')
| -rw-r--r-- | t/op/ref.t | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/t/op/ref.t b/t/op/ref.t index c607a60504..74860e0bb9 100644 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -479,7 +479,7 @@ TODO: { ), qr/^(ok)+$/, 'STDOUT destructor'); } -TODO: { +{ no strict 'refs'; $name8 = chr 163; $name_utf8 = $name8 . chr 256; @@ -489,11 +489,10 @@ TODO: { is ($$name_utf8, undef, 'Nothing before we start'); $$name8 = "Pound"; is ($$name8, "Pound", 'Accessing via 8 bit symref works'); - local $TODO = "UTF8 mangled in symrefs"; is ($$name_utf8, "Pound", 'Accessing via UTF8 symref works'); } -TODO: { +{ no strict 'refs'; $name_utf8 = $name = chr 9787; utf8::encode $name_utf8; @@ -505,7 +504,6 @@ TODO: { is ($$name_utf8, undef, 'Nothing before we start'); $$name = "Face"; is ($$name, "Face", 'Accessing via Unicode symref works'); - local $TODO = "UTF8 mangled in symrefs"; is ($$name_utf8, undef, 'Accessing via the UTF8 byte sequence gives nothing'); } |