4 if( $ENV{PERL_CORE} ) {
6 @INC = ('../lib', 'lib');
16 use Test::More tests => 5;
18 can_ok "main", "explain";
20 is_deeply [explain("foo")], ["foo"];
21 is_deeply [explain("foo", "bar")], ["foo", "bar"];
23 # Avoid future dump formatting changes from breaking tests by just eval'ing
25 is_deeply [map { eval $_ } explain([], {})], [[], {}];
27 is_deeply [map { eval $_ } explain(23, [42,91], 99)], [23, [42, 91], 99];