Change 10992 by jhi@alpha on 2001/06/27 17:11:28
Upgrade to Test::More 0.07.
Affected files ...
... //depot/perl/MANIFEST#482 edit
... //depot/perl/lib/Test/More.pm#2 edit
... //depot/perl/lib/Test/More/Changes#1 add
... //depot/perl/lib/Test/More/t/fail-like.t#2 edit
... //depot/perl/lib/Test/More/t/fail.t#2 edit
... //depot/perl/lib/Test/More/t/plan_is_noplan.t#2 edit
... //depot/perl/lib/Test/More/t/skipall.t#2 edit
Differences ...
==== //depot/perl/MANIFEST#482 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST.~1~ Wed Jun 27 16:00:12 2001
+++ perl/MANIFEST Wed Jun 27 16:00:12 2001
@@ -1094,6 +1094,7 @@
lib/Test/Harness.pm A test harness
lib/Test/Harness.t See if Test::Harness works
lib/Test/More.pm More utilities for writing tests
+lib/Test/More/Changes Test::More changes
lib/Test/More/t/More.t Test::More test, basic operation
lib/Test/More/t/fail-like.t Test::More test, like() and qr// bug
lib/Test/More/t/fail.t Test::More test, failing tests
==== //depot/perl/lib/Test/More.pm#2 (text) ====
Index: perl/lib/Test/More.pm
--- perl/lib/Test/More.pm.~1~ Wed Jun 27 16:00:12 2001
+++ perl/lib/Test/More.pm Wed Jun 27 16:00:12 2001
@@ -22,7 +22,7 @@
require Exporter;
use vars qw($VERSION @ISA @EXPORT);
-$VERSION = '0.06';
+$VERSION = '0.07';
@ISA = qw(Exporter);
@EXPORT = qw(ok use_ok require_ok
is isnt like
@@ -501,12 +501,8 @@
=cut
-sub skip (&$$;$) {
- my($tests, $how_many, $why, $if) = @_;
-
- if( $if ) {
-
- }
+sub skip {
+ die "skip() is UNIMPLEMENTED!";
}
=item B<todo> * UNIMPLEMENTED *
@@ -533,8 +529,8 @@
=cut
-sub todo (&$$;$) {
- my($tests, $how_many, $name, $if) = @_;
+sub todo {
+ die "todo() is UNIMPLEMENTED!";
}
=head2 Comparision functions
==== //depot/perl/lib/Test/More/t/fail-like.t#2 (text) ====
Index: perl/lib/Test/More/t/fail-like.t
--- perl/lib/Test/More/t/fail-like.t.~1~ Wed Jun 27 16:00:12 2001
+++ perl/lib/Test/More/t/fail-like.t Wed Jun 27 16:00:12 2001
@@ -22,10 +22,12 @@
# Utility testing functions.
sub ok ($;$) {
my($test, $name) = @_;
- print "not " unless $test;
- print "ok $test_num";
- print " - $name" if defined $name;
- print "\n";
+ my $ok = '';
+ $ok .= "not " unless $test;
+ $ok .= "ok $test_num";
+ $ok .= " - $name" if defined $name;
+ $ok .= "\n";
+ print $ok;
$test_num++;
}
@@ -33,7 +35,7 @@
package main;
require Test::More;
-push @INC, 'lib/Test/More/';
+push @INC, 't', '.';
require Catch;
my($out, $err) = Catch::caught();
==== //depot/perl/lib/Test/More/t/fail.t#2 (text) ====
Index: perl/lib/Test/More/t/fail.t
--- perl/lib/Test/More/t/fail.t.~1~ Wed Jun 27 16:00:12 2001
+++ perl/lib/Test/More/t/fail.t Wed Jun 27 16:00:12 2001
@@ -9,10 +9,12 @@
# Utility testing functions.
sub ok ($;$) {
my($test, $name) = @_;
- print "not " unless $test;
- print "ok $test_num";
- print " - $name" if defined $name;
- print "\n";
+ my $ok = '';
+ $ok .= "not " unless $test;
+ $ok .= "ok $test_num";
+ $ok .= " - $name" if defined $name;
+ $ok .= "\n";
+ print $ok;
$test_num++;
}
@@ -20,7 +22,7 @@
package main;
require Test::More;
-push @INC, 'lib/Test/More/';
+push @INC, 't', '.';
require Catch;
my($out, $err) = Catch::caught();
@@ -52,28 +54,29 @@
OUT
my $err_re = <<ERR;
-# Failed test ($0 at line 29)
-# Failed test ($0 at line 30)
+# Failed test ($0 at line 31)
+# Failed test ($0 at line 32)
# got: 'foo'
# expected: 'bar'
-# Failed test ($0 at line 31)
+# Failed test ($0 at line 33)
# it should not be 'foo'
# but it is.
-# Failed test ($0 at line 32)
+# Failed test ($0 at line 34)
# it should not be 'foo'
# but it is.
-# Failed test ($0 at line 34)
+# Failed test ($0 at line 36)
# 'foo'
# doesn't match '/that/'
-# Failed test ($0 at line 36)
+# Failed test ($0 at line 38)
ERR
+ my $filename = quotemeta $0;
my $more_err_re = <<ERR;
-# Failed test \\($0 at line 38\\)
+# Failed test \\($filename at line 40\\)
# Tried to use 'Hooble::mooble::yooble'.
# Error: Can't locate Hooble.* in \\\@INC .*
-# Failed test \\($0 at line 39\\)
+# Failed test \\($filename at line 41\\)
# Tried to require 'ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble'.
# Error: Can't locate ALL.* in \\\@INC .*
==== //depot/perl/lib/Test/More/t/plan_is_noplan.t#2 (text) ====
Index: perl/lib/Test/More/t/plan_is_noplan.t
--- perl/lib/Test/More/t/plan_is_noplan.t.~1~ Wed Jun 27 16:00:12 2001
+++ perl/lib/Test/More/t/plan_is_noplan.t Wed Jun 27 16:00:12 2001
@@ -7,10 +7,12 @@
# Utility testing functions.
sub ok ($;$) {
my($test, $name) = @_;
- print "not " unless $test;
- print "ok $test_num";
- print " - $name" if defined $name;
- print "\n";
+ my $ok = '';
+ $ok .= "not " unless $test;
+ $ok .= "ok $test_num";
+ $ok .= " - $name" if defined $name;
+ $ok .= "\n";
+ print $ok;
$test_num++;
}
@@ -19,7 +21,7 @@
require Test::More;
-push @INC, 'lib/Test/More/';
+push @INC, 't', '.';
require Catch;
my($out, $err) = Catch::caught();
==== //depot/perl/lib/Test/More/t/skipall.t#2 (text) ====
Index: perl/lib/Test/More/t/skipall.t
--- perl/lib/Test/More/t/skipall.t.~1~ Wed Jun 27 16:00:12 2001
+++ perl/lib/Test/More/t/skipall.t Wed Jun 27 16:00:12 2001
@@ -9,10 +9,12 @@
# Utility testing functions.
sub ok ($;$) {
my($test, $name) = @_;
- print "not " unless $test;
- print "ok $test_num";
- print " - $name" if defined $name;
- print "\n";
+ my $ok = '';
+ $ok .= "not " unless $test;
+ $ok .= "ok $test_num";
+ $ok .= " - $name" if defined $name;
+ $ok .= "\n";
+ print $ok;
$test_num++;
}
@@ -20,7 +22,7 @@
package main;
require Test::More;
-push @INC, 'lib/Test/More/';
+push @INC, 't', '.';
require Catch;
my($out, $err) = Catch::caught();
==== //depot/perl/lib/Test/More/Changes#1 (text) ====
Index: perl/lib/Test/More/Changes
--- perl/lib/Test/More/Changes.~1~ Wed Jun 27 16:00:12 2001
+++ perl/lib/Test/More/Changes Wed Jun 27 16:00:12 2001
@@ -0,0 +1,32 @@
+Revision history for Perl extension Test::More.
+
+0.07 Wed Jun 27 03:06:56 EDT 2001
+ - VMS and Win32 fixes. Nothing was actually wrong, but the tests
+ had little problems.
+ - like()'s failure report wasn't always accurate
+
+0.06 Fri Jun 15 14:39:50 EDT 2001
+ - Guarding against $/ and -l
+ - Reformatted the way failed tests are reported to make them stand out
+ a bit better.
+ - Fixed tests without names
+
+0.05 Tue Jun 12 16:16:55 EDT 2001
+ * use Test::More no_plan; implemented
+
+0.04 Thu Jun 7 11:26:18 BST 2001
+ - minor bug in eq_set() with complex data structures
+ Thanks to Tatsuhiko Miyagawa for finding this.
+
+0.03 Tue Jun 5 19:59:59 BST 2001
+ - Fixed export problem in 5.004.
+ - prototyped the functions properly
+ * fixed bug with like() involving qr//
+
+0.02 Thu Apr 5 12:48:48 BST 2001
+ - Fixed Makefile.PL to work around MakeMaker bug that 'use's Test::Simple
+ instead of 'require'ing.
+
+0.01 Fri Mar 30 07:49:14 GMT 2001
+ - First working version
+
End of Patch.
