use Fcntl;
# print STDERR $INC{'Memoize.pm'}, "\n";
print "1..10\n";
# Test MERGE
}
my $s = xx();
print ((!$s) ? "ok 1\n" : "not ok 1\n");
print (($a) ? "ok 2\n" : "not ok 2\n");
$s = xx();
print ((!$s) ? "ok 3\n" : "not ok 3\n");
print ((!$a) ? "ok 4\n" : "not ok 4\n");
# Test FAULT
sub ns {}
sub na {}
print (($@) ? "ok 5\n" : "not ok 5\n");
print (($@) ? "ok 6\n" : "not ok 6\n");
# Test HASH
my (%s, %l);
sub nul {}