# Can't use Test.pm, that's a 5.005 thing.
package My::Test;
-print "1..12\n";
-
-my $test_num = 1;
-# Utility testing functions.
-sub ok ($;$) {
- my($test, $name) = @_;
- my $ok = '';
- $ok .= "not " unless $test;
- $ok .= "ok $test_num";
- $ok .= " - $name" if defined $name;
- $ok .= "\n";
- print $ok;
- $test_num++;
-
- return $test;
+# This has to be a require or else the END block below runs before
+# Test::Builder's own and the ending diagnostics don't come out right.
+require Test::Builder;
+my $TB = Test::Builder->create;
+$TB->plan(tests => 17);
+
+sub like ($$;$) {
+ $TB->like(@_);
}
+sub is ($$;$) {
+ $TB->is_eq(@_);
+}
sub main::err_ok ($) {
my($expect) = @_;
my $got = $err->read;
- my $ok = ok( $got eq $expect );
-
- unless( $ok ) {
- print STDERR "$got\n";
- print STDERR "$expect\n";
- }
-
- return $ok;
+ return $TB->is_eq( $got, $expect );
}
package main;
require Test::More;
-my $Total = 29;
+my $Total = 28;
Test::More->import(tests => $Total);
my $tb = Test::More->builder;
$tb->use_numbers(0);
+my $Filename = quotemeta $0;
+
# Preserve the line numbers.
#line 38
ok( 0, 'failing' );
err_ok( <<ERR );
-# Failed test ($0 at line 38)
+# Failed test 'failing'
+# in $0 at line 38.
ERR
#line 40
is( undef, 0, 'undef is 0?');
is( '', 0, 'empty string is 0?' );
err_ok( <<ERR );
-# Failed test ($0 at line 40)
+# Failed test 'foo is bar?'
+# in $0 at line 40.
# got: 'foo'
# expected: 'bar'
-# Failed test ($0 at line 41)
+# Failed test 'undef is empty string?'
+# in $0 at line 41.
# got: undef
# expected: ''
-# Failed test ($0 at line 42)
+# Failed test 'undef is 0?'
+# in $0 at line 42.
# got: undef
# expected: '0'
-# Failed test ($0 at line 43)
+# Failed test 'empty string is 0?'
+# in $0 at line 43.
# got: ''
# expected: '0'
ERR
isn't("foo", "foo",'foo isn\'t foo?' );
isnt(undef, undef, 'undef isnt undef?');
err_ok( <<ERR );
-# Failed test ($0 at line 45)
+# Failed test 'foo isnt foo?'
+# in $0 at line 45.
# 'foo'
# ne
# 'foo'
-# Failed test ($0 at line 46)
+# Failed test 'foo isn\'t foo?'
+# in $0 at line 46.
# 'foo'
# ne
# 'foo'
-# Failed test ($0 at line 47)
+# Failed test 'undef isnt undef?'
+# in $0 at line 47.
# undef
# ne
# undef
like( "foo", '/that/', 'is foo like that' );
unlike( "foo", '/foo/', 'is foo unlike foo' );
err_ok( <<ERR );
-# Failed test ($0 at line 48)
+# Failed test 'is foo like that'
+# in $0 at line 48.
# 'foo'
# doesn't match '/that/'
-# Failed test ($0 at line 49)
+# Failed test 'is foo unlike foo'
+# in $0 at line 49.
# 'foo'
# matches '/foo/'
ERR
# Nick Clark found this was a bug. Fixed in 0.40.
+# line 60
like( "bug", '/(%)/', 'regex with % in it' );
err_ok( <<ERR );
-# Failed test ($0 at line 60)
+# Failed test 'regex with % in it'
+# in $0 at line 60.
# 'bug'
# doesn't match '/(%)/'
ERR
+#line 67
fail('fail()');
err_ok( <<ERR );
-# Failed test ($0 at line 67)
+# Failed test 'fail()'
+# in $0 at line 67.
ERR
#line 52
can_ok('Mooble::Hooble::Yooble', qw(this that));
can_ok('Mooble::Hooble::Yooble', ());
err_ok( <<ERR );
-# Failed test ($0 at line 52)
+# Failed test 'Mooble::Hooble::Yooble->can(...)'
+# in $0 at line 52.
# Mooble::Hooble::Yooble->can('this') failed
# Mooble::Hooble::Yooble->can('that') failed
-# Failed test ($0 at line 53)
+# Failed test 'Mooble::Hooble::Yooble->can(...)'
+# in $0 at line 53.
# can_ok() called with no methods
ERR
isa_ok(undef, "Wibble", "Another Wibble");
isa_ok([], "HASH");
err_ok( <<ERR );
-# Failed test ($0 at line 55)
+# Failed test 'The object isa Wibble'
+# in $0 at line 55.
# The object isn't a 'Wibble' it's a 'Foo'
-# Failed test ($0 at line 56)
+# Failed test 'My Wibble isa Wibble'
+# in $0 at line 56.
# My Wibble isn't a reference
-# Failed test ($0 at line 57)
+# Failed test 'Another Wibble isa Wibble'
+# in $0 at line 57.
# Another Wibble isn't defined
-# Failed test ($0 at line 58)
+# Failed test 'The object isa HASH'
+# in $0 at line 58.
# The object isn't a 'HASH' it's a 'ARRAY'
ERR
cmp_ok( 42.1, '==', 23, , ' ==' );
cmp_ok( 42, '!=', 42 , ' !=' );
cmp_ok( 1, '&&', 0 , ' &&' );
-cmp_ok( 42, '==', "foo", ' == with strings' );
-cmp_ok( 42, 'eq', "foo", ' eq with numbers' );
-cmp_ok( undef, 'eq', 'foo', ' eq with undef' );
err_ok( <<ERR );
-# Failed test ($0 at line 68)
+# Failed test 'cmp_ok eq'
+# in $0 at line 68.
# got: 'foo'
# expected: 'bar'
-# Failed test ($0 at line 69)
+# Failed test ' =='
+# in $0 at line 69.
# got: 42.1
# expected: 23
-# Failed test ($0 at line 70)
+# Failed test ' !='
+# in $0 at line 70.
# '42'
# !=
# '42'
-# Failed test ($0 at line 71)
+# Failed test ' &&'
+# in $0 at line 71.
# '1'
# &&
# '0'
-# Failed test ($0 at line 72)
-# got: 42
-# expected: 0
-# Failed test ($0 at line 73)
+ERR
+
+
+# line 196
+cmp_ok( 42, 'eq', "foo", ' eq with numbers' );
+err_ok( <<ERR );
+# Failed test ' eq with numbers'
+# in $0 at line 196.
# got: '42'
# expected: 'foo'
-# Failed test ($0 at line 74)
-# got: undef
-# expected: 'foo'
ERR
+
+{
+ my $warnings;
+ local $SIG{__WARN__} = sub { $warnings .= join '', @_ };
+
+# line 211
+ cmp_ok( 42, '==', "foo", ' == with strings' );
+ err_ok( <<ERR );
+# Failed test ' == with strings'
+# in $0 at line 211.
+# got: 42
+# expected: foo
+ERR
+ My::Test::like $warnings,
+ qq[/^Argument "foo" isn't numeric in .* at $Filename line 211\\\.\n\$/];
+
+}
+
+
# generate a $!, it changes its value by context.
-e "wibblehibble";
my $Errno_Number = $!+0;
cmp_ok( $!, 'eq', '', ' eq with stringified errno' );
cmp_ok( $!, '==', -1, ' eq with numerified errno' );
err_ok( <<ERR );
-# Failed test ($0 at line 80)
+# Failed test ' eq with stringified errno'
+# in $0 at line 80.
# got: '$Errno_String'
# expected: ''
-# Failed test ($0 at line 81)
+# Failed test ' eq with numerified errno'
+# in $0 at line 81.
# got: $Errno_Number
# expected: -1
ERR
#line 84
use_ok('Hooble::mooble::yooble');
+
+my $more_err_re = <<ERR;
+# Failed test 'use Hooble::mooble::yooble;'
+# in $Filename at line 84\\.
+# Tried to use 'Hooble::mooble::yooble'.
+# Error: Can't locate Hooble.* in \\\@INC .*
+# BEGIN failed--compilation aborted at $Filename line 84.
+ERR
+
+My::Test::like($err->read, "/^$more_err_re/");
+
+
+#line 85
require_ok('ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble');
+$more_err_re = <<ERR;
+# Failed test 'require ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble;'
+# in $Filename at line 85\\.
+# Tried to require 'ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble'.
+# Error: Can't locate ALL.* in \\\@INC .*
+ERR
+
+My::Test::like($err->read, "/^$more_err_re/");
+
#line 88
END {
- My::Test::ok($$out eq <<OUT, 'failing output');
+ $TB->is_eq($$out, <<OUT, 'failing output');
1..$Total
not ok - failing
not ok - foo is bar?
not ok - ==
not ok - !=
not ok - &&
-not ok - == with strings
not ok - eq with numbers
-not ok - eq with undef
+not ok - == with strings
not ok - eq with stringified errno
not ok - eq with numerified errno
not ok - use Hooble::mooble::yooble;
not ok - require ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble;
OUT
- my $filename = quotemeta $0;
- my $more_err_re = <<ERR;
-# Failed test \\($filename at line 84\\)
-# Tried to use 'Hooble::mooble::yooble'.
-# Error: Can't locate Hooble.* in \\\@INC .*
-# BEGIN failed--compilation aborted at $filename line 84.
-# Failed test \\($filename at line 85\\)
-# Tried to require 'ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble'.
-# Error: Can't locate ALL.* in \\\@INC .*
+err_ok( <<ERR );
# Looks like you failed $Total tests of $Total.
ERR
- unless( My::Test::ok($$err =~ /^$more_err_re$/,
- 'failing errors') ) {
- print $$err;
- print "regex:\n";
- print $more_err_re;
- }
-
exit(0);
}
projects / p5sagit/p5-mst-13.2.git / blobdiff