2 # $Id: /mirror/googlecode/test-more/t/explain.t 60308 2008-09-07T22:36:18.175234Z schwern $
5 if( $ENV{PERL_CORE} ) {
7 @INC = ('../lib', 'lib');
10 unshift @INC, 't/lib';
17 use Test::More tests => 5;
19 can_ok "main", "explain";
21 is_deeply [explain("foo")], ["foo"];
22 is_deeply [explain("foo", "bar")], ["foo", "bar"];
24 # Avoid future dump formatting changes from breaking tests by just eval'ing
26 is_deeply [map { eval $_ } explain([], {})], [[], {}];
28 is_deeply [map { eval $_ } explain(23, [42,91], 99)], [23, [42, 91], 99];