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 '..';
use Memoize;
use Config;

$|=1;
print "1..11\n";

eval { memoize({}) };
print $@ ? "ok 1\n" : "not ok 1 # $@\n";

eval { memoize([]) };
print $@ ? "ok 2\n" : "not ok 2 # $@\n";

eval { my $x; memoize(\$x) };
print $@ ? "ok 3\n" : "not ok 3 # $@\n";

# 4--8
$n = 4;
my $dummyfile = './dummydb';
use Fcntl;
my %args = ( DB_File => [],
             GDBM_File => [$dummyfile, 2, 0666],
             ODBM_File => [$dummyfile, O_RDWR|O_CREAT, 0666],
             NDBM_File => [$dummyfile, O_RDWR|O_CREAT, 0666],
             SDBM_File => [$dummyfile, O_RDWR|O_CREAT, 0666],
           );
for $mod (qw(DB_File GDBM_File SDBM_File ODBM_File NDBM_File)) {
  eval {
    require "$mod.pm";
    tie my %cache => $mod, @{$args{$mod}};
    memoize(sub {}, LIST_CACHE => [HASH => \%cache ]);
  };
  print $@ =~ /can only store scalars/
     || $@ =~ /Can't locate.*in \@INC/
     || $@ =~ /Can't load '.*?' for module/ ? "ok $n\n" : "not ok $n # $@\n";
  1 while unlink $dummyfile, "$dummyfile.dir", "$dummyfile.pag", "$dummyfile.db";
  $n++;
}

# 9
eval { local $^W = 0;
       memoize(sub {}, LIST_CACHE => ['TIE', 'WuggaWugga']) 
     };
print $@ ? "ok 9\n" : "not ok 9 # $@\n";

# 10
eval { memoize(sub {}, LIST_CACHE => 'YOB GORGLE') };
print $@ ? "ok 10\n" : "not ok 10 # $@\n";

# 11
eval { memoize(sub {}, SCALAR_CACHE => ['YOB GORGLE']) };
print $@ ? "ok 11\n" : "not ok 11 # $@\n";