Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

iclude example for isnt() as given on the perl-qa mailing list

Signed-off-by: Michael G. Schwern <schwern@pobox.com>
  • Loading branch information...
commit 95bcdbeffd17e0a31ee5dfdf5f6ceeb7586d7c1b 1 parent a85e7ff
@szabgab szabgab authored schwern committed
Showing with 11 additions and 0 deletions.
  1. +11 −0 lib/Test/More.pm
View
11 lib/Test/More.pm
@@ -350,6 +350,17 @@ In these cases, use ok().
ok( exists $brooklyn{tree}, 'A tree grows in Brooklyn' );
+A simple call to isnt() usually does not provide a strong test but there
+are cases when you cannot say much more about a value than that it is
+different from some other value:
+
+ new_ok $obj, "Foo";
+
+ my $clone = $obj->clone;
+ isa_ok $obj, "Foo", "Foo->clone";
+
+ isnt $obj, $clone, "clone() produces a different object";
+
For those grammatical pedants out there, there's an C<isn't()>
function which is an alias of isnt().
Please sign in to comment.
Something went wrong with that request. Please try again.