[PATCH] Test::More isa_ok function

[Dave Rolsky]

The patch below allows you to supply your own test name for the isa_ok
function (I find the default insufficiently descriptive).  I'd like to do
the same for can_ok but I don't think that could be done without breaking
backwards compatibility.

-dave


--- More.t~     Wed Sep  5 19:23:24 2001
+++ More.t      Mon Sep 24 18:24:15 2001
@@ -1,4 +1,4 @@
-use Test::More tests => 22;
+use Test::More tests => 23;

 use_ok('Text::Soundex');
 require_ok('Test::More');
@@ -20,6 +20,7 @@
                                    can_ok pass fail eq_array eq_hash
eq_set));

 isa_ok(bless([], "Foo"), "Foo");
+isa_ok(bless([], "Foo"), "Foo", "Optional description to isa_ok");


--- More.pm~    Tue Sep 18 16:54:50 2001
+++ More.pm     Mon Sep 24 18:25:45 2001
@@ -447,7 +447,7 @@

 =item B<isa_ok>

-  isa_ok($object, $class);
+  isa_ok($object, $class, $optional_name);

 Checks to see if the given $object->isa($class).  Also checks to make
 sure the object was defined in the first place.  Handy for this sort
@@ -465,11 +465,11 @@

 =cut

-sub isa_ok ($$) {
-    my($object, $class) = @_;
+sub isa_ok ($$;$) {
+    my($object, $class, $name) = @_;

     my $diag;
-    my $name = "object->isa('$class')";
+    $name ||= "object->isa('$class')";
     if( !defined $object ) {
         $diag = "The object isn't defined";
     }