diff options
| author |   afresh1 <afresh1@openbsd.org> | 2014-03-24 14:58:42 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2014-03-24 14:58:42 +0000 |
| commit | 91f110e064cd7c194e59e019b83bb7496c1c84d4 (patch) | |
| tree | 3e8e577405dba7e94b43cbf21c22f21aaa5ab949 /gnu/usr.bin/perl/cpan/Memoize/t/array_confusion.t | |
| parent | do not call purge_task every 10 secs, it is only needed once at startup and (diff) | |
| download | wireguard-openbsd-91f110e064cd7c194e59e019b83bb7496c1c84d4.tar.xz wireguard-openbsd-91f110e064cd7c194e59e019b83bb7496c1c84d4.zip | |
Import perl-5.18.2
OK espie@ sthen@ deraadt@
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Memoize/t/array_confusion.t')
| -rwxr-xr-x | gnu/usr.bin/perl/cpan/Memoize/t/array_confusion.t | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/gnu/usr.bin/perl/cpan/Memoize/t/array_confusion.t b/gnu/usr.bin/perl/cpan/Memoize/t/array_confusion.t index 44847c36b77..4ad6c960ef7 100755 --- a/gnu/usr.bin/perl/cpan/Memoize/t/array_confusion.t +++ b/gnu/usr.bin/perl/cpan/Memoize/t/array_confusion.t @@ -2,6 +2,7 @@ use lib '..'; use Memoize 'memoize', 'unmemoize'; +use Test::More; sub reff { return [1,2,3]; @@ -12,20 +13,20 @@ sub listf { return (1,2,3); } -print "1..6\n"; +sub f17 { return 17 } + +plan tests => 7; memoize 'reff', LIST_CACHE => 'MERGE'; -print "ok 1\n"; memoize 'listf'; -print "ok 2\n"; $s = reff(); @a = reff(); -print @a == 1 ? "ok 3\n" : "not ok 3\n"; +is(scalar(@a), 1, "reff list context"); $s = listf(); @a = listf(); -print @a == 3 ? "ok 4\n" : "not ok 4\n"; +is(scalar(@a), 3, "listf list context"); unmemoize 'reff'; memoize 'reff', LIST_CACHE => 'MERGE'; @@ -34,10 +35,13 @@ memoize 'listf'; @a = reff(); $s = reff(); -print @a == 1 ? "ok 5\n" : "not ok 5\n"; +is(scalar @a, 1, "reff list context"); @a = listf(); $s = listf(); -print @a == 3 ? "ok 6\n" : "not ok 6\n"; - +is(scalar @a, 3, "listf list context"); +memoize 'f17', SCALAR_CACHE => 'MERGE'; +is(f17(), 17, "f17 first call"); +is(f17(), 17, "f17 second call"); +is(scalar(f17()), 17, "f17 scalar context call"); |