diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-13 21:23:18 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-13 21:23:18 -0600 |
commit | d551a208f521a8e93c52f93977d6246d85b91de1 (patch) | |
tree | b44d81148f49c928f5581e755a9f285fd56f2ed1 /t | |
parent | 13f8a7b7b39875f66ff01549bc0e16dbba4db144 (diff) | |
download | package-stash-xs-d551a208f521a8e93c52f93977d6246d85b91de1.tar.gz package-stash-xs-d551a208f521a8e93c52f93977d6246d85b91de1.zip |
clean up glob manipulation code, and hack around a 5.8 issue
Diffstat (limited to 't')
-rw-r--r-- | t/01-basic.t | 2 | ||||
-rwxr-xr-x | t/07-edge-cases.t | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index 2188e07..4c4a7c9 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -344,11 +344,13 @@ like(exception { [qw(BEGIN bar baz foo quuuux quuux quux)], "list_all_symbols", ); + { local $TODO = $] < 5.010 ? "undef scalars aren't visible on 5.8" : undef; is_deeply( [sort $quuux->list_all_symbols('SCALAR')], [qw(foo)], "list_all_symbols SCALAR", ); + } is_deeply( [sort $quuux->list_all_symbols('ARRAY')], [qw(bar foo)], diff --git a/t/07-edge-cases.t b/t/07-edge-cases.t index 75df7ac..2710c5c 100755 --- a/t/07-edge-cases.t +++ b/t/07-edge-cases.t @@ -24,7 +24,9 @@ use Package::Stash; } my $stash = Package::Stash->new('Foo'); +{ local $TODO = $] < 5.010 ? "undef scalars aren't visible on 5.8" : undef; ok($stash->has_symbol('$SCALAR'), '$SCALAR'); +} ok($stash->has_symbol('$SCALAR_WITH_VALUE'), '$SCALAR_WITH_VALUE'); ok($stash->has_symbol('@ARRAY'), '@ARRAY'); ok($stash->has_symbol('%HASH'), '%HASH'); |