this great module
with Test::Builder and/or MakeMaker into Test::Coverage or something
like that?
--
Tatsuhiko Miyagawa [EMAIL PROTECTED]
current Test::Harness sets switches to '', not '-w' as documented.
--
Tatsuhiko Miyagawa [EMAIL PROTECTED]
--- lib/Test/Harness/Straps.pm~ Thu Jun 20 06:01:04 2002
+++ lib/Test/Harness/Straps.pm Thu Aug 22 21:27:27 2002
@@ -322,7 +322,7 @@
local *TEST;
open(TEST, $file) or print
Here's a patch for Test::(Simple|More) to allow idioms like
my $obj = Foo-new;
ok($obj, 'object is defined');
Without this patch, passed $obj was referenced in Test::Builder, so
REFCNT doesn't come to 0 before global cleanup.
--
Tatsuhiko Miyagawa [EMAIL PROTECTED]
diff -ruP Test-Simple
--
Tatsuhiko Miyagawa [EMAIL PROTECTED]
diff -ruN Test-Simple-0.43/lib/Test/More.pm Test-Simple-0.43.new/lib/Test/More.pm
--- Test-Simple-0.43/lib/Test/More.pm Thu Apr 11 12:27:47 2002
+++ Test-Simple-0.43.new/lib/Test/More.pm Tue Apr 23 03:17:56 2002
@@ -670,7 +670,7 @@
eval USE
time before loading Bareword::Freaks. Duh.
--
Tatsuhiko Miyagawa [EMAIL PROTECTED]
);
}
-elsif( UNIVERSAL::isa($e1, 'HASH') and
- UNIVERSAL::isa($e2, 'HASH') )
+elsif( $is_hash )
{
$ok = eq_hash($e1, $e2);
}
--
Tatsuhiko Miyagawa
mailto:[EMAIL PROTECTED] http://bulknews.net/lib/
::Skip_All = 1;
my_print *TESTOUT, 1..0\n;
exit(0);
}
else {
-Test::Simple-import($plan = @args);
+Test::Simple-import(@args);
}
__PACKAGE__-_export_to_level(1, __PACKAGE__);
--
Tatsuhiko Miyagawa
mailto:[EMAIL PROTECTED]