Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
array.t	1.41 KB	-r--r--r--	2014-12-27 11:48
array_confusion.t	771 B	-r--r--r--	2014-12-27 11:48
correctness.t	3.04 KB	-r--r--r--	2014-12-27 11:48
errors.t	1.38 KB	-r--r--r--	2014-12-27 11:48
expfile.t	1.32 KB	-r--r--r--	2014-12-27 11:48
expire.t	943 B	-r--r--r--	2014-12-27 11:48
expmod_n.t	1.1 KB	-r--r--r--	2014-12-27 11:48
expmod_t.t	2.36 KB	-r--r--r--	2014-12-27 11:48
flush.t	614 B	-r--r--r--	2014-12-27 11:48
normalize.t	1.38 KB	-r--r--r--	2014-12-27 11:48
prototype.t	570 B	-r--r--r--	2014-12-27 11:48
speed.t	2.99 KB	-r--r--r--	2014-12-27 11:48
tie.t	1.54 KB	-r--r--r--	2014-12-27 11:48
tie_gdbm.t	1.23 KB	-r--r--r--	2014-12-27 11:48
tie_ndbm.t	1.31 KB	-r--r--r--	2014-12-27 11:48
tie_sdbm.t	1.41 KB	-r--r--r--	2014-12-27 11:48
tie_storable.t	1.29 KB	-r--r--r--	2014-12-27 11:48
tiefeatures.t	1.18 KB	-r--r--r--	2014-12-27 11:48
unmemoize.t	520 B	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl

use lib 'blib/lib';
use Memoize 0.45 qw(memoize unmemoize);
use Fcntl;

# print STDERR $INC{'Memoize.pm'}, "\n";

print "1..10\n";

# Test MERGE
sub xx {
  wantarray();
}

my $s = xx();
print ((!$s) ? "ok 1\n" : "not ok 1\n");
my ($a) = xx();
print (($a) ? "ok 2\n" : "not ok 2\n");
memoize 'xx', LIST_CACHE => MERGE;
$s = xx();
print ((!$s) ? "ok 3\n" : "not ok 3\n");
($a) = xx();  # Should return cached false value from previous invocation
print ((!$a) ? "ok 4\n" : "not ok 4\n");

# Test FAULT
sub ns {}
sub na {}
memoize 'ns', SCALAR_CACHE => FAULT;
memoize 'na', LIST_CACHE => FAULT;
eval { my $s = ns() };  # Should fault
print (($@) ?  "ok 5\n" : "not ok 5\n");
eval { my ($a) = na() };  # Should fault
print (($@) ?  "ok 6\n" : "not ok 6\n");

# Test HASH
my (%s, %l);
sub nul {}
memoize 'nul', SCALAR_CACHE => [HASH => \%s], LIST_CACHE => [HASH => \%l];
nul('x');
nul('y');
print ((join '', sort keys %s) eq 'xy' ? "ok 7\n" : "not ok 7\n");
print ((join '', sort keys %l) eq ''   ? "ok 8\n" : "not ok 8\n");
() = nul('p');
() = nul('q');
print ((join '', sort keys %s) eq 'xy' ? "ok 9\n" : "not ok 9\n");
print ((join '', sort keys %l) eq 'pq' ? "ok 10\n" : "not ok 10\n");