1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/usr/bin/perl -w
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib';
}
}
use strict;
use warnings;
use Test::More tests => 5;
can_ok "main", "explain";
is_deeply [explain("foo")], ["foo"];
is_deeply [explain("foo", "bar")], ["foo", "bar"];
# Avoid future dump formatting changes from breaking tests by just eval'ing
# the dump
is_deeply [map { eval $_ } explain([], {})], [[], {}];
is_deeply [map { eval $_ } explain(23, [42,91], 99)], [23, [42, 91], 99];
|
