diff options
Diffstat (limited to 't/01-basic.t')
-rw-r--r-- | t/01-basic.t | 2 |
1 files changed, 2 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)], |