}
# test n+1
- is ($output, $args{Get}, "Output from autosplit()ing $args{Name}");
+ cmp_ok ($output, 'eq', $args{Get}, "Output from autosplit()ing $args{Name}");
if ($args{Files}) {
$args{Files} =~ s!/!:!gs if $^O eq 'MacOS';
is (&*MOD*::obsolete, 0);
is (&*MOD*::obsolete, 1);
## Sleep
-2
+4
## SameAgain
True, so don't scrub this directory.
IIRC DOS FAT filesystems have only 2 second granularity.
is (&*MOD*::skeleton, "bones", "skeleton");
eval {&*MOD*::gonner}; ok ($@ =~ m!^Can't locate auto/*MOD*/gonner.al in \@INC!, "Check &*MOD*::gonner is now a gonner") or print "# \$\@='$@'\n";
## Sleep
-2
+4
## SameAgain
True, so don't scrub this directory.
################################################################
is (&*MOD*::ghost, "bump");
is (&*MOD*::zombie, "You didn't use fire.", "Are our zombies undead?");
## Sleep
-2
+4
## SameAgain
True, so don't scrub this directory.
################################################################
is (&*MOD*::ghoul, "wail", "still haunted");
is (&*MOD*::zombie, "You didn't use fire.", "Are our zombies still undead?");
## Sleep
-2
+4
## SameAgain
True, so don't scrub this directory.
################################################################