diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-07-11 18:50:10 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:19 -0700 |
| commit | e0260a5b7a4c9245402af2910213dd35717e5bd2 (patch) | |
| tree | 4a8e6fe940f71045523d4f2dd71cbe94c0aa1bb9 /t | |
| parent | a180b31a163df6f094784ad4abcff6b8d80304d2 (diff) | |
| download | perl-e0260a5b7a4c9245402af2910213dd35717e5bd2.tar.gz | |
gv.c, op.c, pp.c: Stash-injected prototypes and prototype() are UTF-8 clean.
This makes perl -E '$::{example} = "\x{30cb}"; say prototype example;'
store and fetch the correctly flagged prototype.
With this, all TODO tests in gv.t pass; The next commit will deal
with making the parsing of prototypes nul-clean.
Diffstat (limited to 't')
| -rw-r--r-- | t/uni/gv.t | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/t/uni/gv.t b/t/uni/gv.t index df94efeabf..14d07acb56 100644 --- a/t/uni/gv.t +++ b/t/uni/gv.t @@ -320,8 +320,7 @@ EOPROG } } -TODO: { - local $TODO = "prototype() (and prototypes in general) not yet clean"; +{ # Possibly not the correct test file for these tests. # There are certain space optimisations implemented via promotion rules to # GVs @@ -496,8 +495,7 @@ is (ref \$::{ビfᶠ}, 'GLOB', "Symbol table has full typeglob"); is($ᕘf, 4); } -TODO: { -local $TODO = "Prototypes not yet clean"; +{ no warnings 'once'; format = . @@ -589,8 +587,7 @@ $::{Ḟ앜ɞ} = *ŚyṀ; is (eval 'local *::Ḟ앜ɞ = \"chuck"; $Ḟ앜ɞ', 'chuck', "Localized glob didn't coerce into a RV"); is ($@, '', "Can localize FAKE glob that's present in stash"); -TODO: { - local $TODO = q!$::{glob} = "something"; not yet clean.!; +{ is (scalar $::{Ḟ앜ɞ}, "*main::ŚyṀ", "Localized FAKE glob's value was correctly restored"); } |