More.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!perl -w
BEGIN {
chdir 't';
}
}
# Make sure we don't mess with $@ or $!. Test at bottom.
my $Err = "this should not be touched";
my $Errno = 42;
$@ = $Err;
$! = $Errno;
#'#
# can_ok() & isa_ok should call can() & isa() on the given object, not
# just class, in case of custom can()
{
$foo->[0] = 1;
}
'eq_array with simple arrays' );
'eq_hash with simple hashes' );
'eq_set with simple sets' );
my @complex_array1 = (
"moo",
"yarrow",
);
my @complex_array2 = (
"moo",
"yarrow",
);
'eq_array with complicated arrays' );
'eq_set with complicated arrays' );
'eq_array with slightly different complicated arrays' );
'eq_set with slightly different complicated arrays' );
);
);
);
);
'eq_hash with slightly different complicated hashes' );
# Piers pointed out sometimes people override isa().
{
sub isa {
}
}
# These two tests must remain at the end.