1N/A# Make sure we don't mess with $@ or $!. Test at bottom. 1N/Amy $Err =
"this should not be touched";
1N/Aok( 2 eq 2, 'two is two is two is two' );
1N/Ais( "foo", "foo", 'foo is foo' );
1N/Aisnt( "foo", "bar", 'foo isnt bar');
1N/Alike("fooble", '/^foo/', 'foo is like fooble');
1N/Alike("FooBle", '/foo/i', 'foo is like FooBle');
1N/Aunlike("FooBle", '/foo/', 'foo is unlike FooBle');
1N/A# can_ok() & isa_ok should call can() & isa() on the given object, not 1N/A# just class, in case of custom can() 1N/A 'eq_array with simple arrays' ); 1N/A 'eq_hash with simple hashes' ); 1N/A 'eq_set with simple sets' ); 1N/A 'eq_array with complicated arrays' ); 1N/A 'eq_set with complicated arrays' ); 1N/A 'eq_array with slightly different complicated arrays' ); 1N/A 'eq_set with slightly different complicated arrays' ); 1N/A 'eq_hash with slightly different complicated hashes' ); 1N/A# Piers pointed out sometimes people override isa(). 1N/A# These two tests must remain at the end.