[p5sagit/p5-mst-13.2.git] / ext / Test-Simple / t / fail-more.t

#!perl -w

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't';
        @INC = ('../lib', 'lib');
    }
    else {
        unshift @INC, 't/lib';
    }
}

use strict;

require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();
local $ENV{HARNESS_ACTIVE} = 0;


# Can't use Test.pm, that's a 5.005 thing.
package My::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 => 78);

sub like ($$;$) {
    $TB->like(@_);
}

sub is ($$;$) {
    $TB->is_eq(@_);
}

sub main::out_ok ($$) {
    $TB->is_eq( $out->read, shift );
    $TB->is_eq( $err->read, shift );
}

sub main::out_like ($$) {
    my($output, $failure) = @_;

    $TB->like( $out->read, qr/$output/ );
    $TB->like( $err->read, qr/$failure/ );
}


package main;

require Test::More;
our $TODO;
my $Total = 37;
Test::More->import(tests => $Total);
$out->read;  # clear the plan from $out

# This should all work in the presence of a __DIE__ handler.
local $SIG{__DIE__} = sub { $TB->ok(0, "DIE handler called: ".join "", @_); };


my $tb = Test::More->builder;
$tb->use_numbers(0);

my $Filename = quotemeta $0;


#line 38
ok( 0, 'failing' );
out_ok( <<OUT, <<ERR );
not ok - failing
OUT
#   Failed test 'failing'
#   at $0 line 38.
ERR


#line 40
is( "foo", "bar", 'foo is bar?');
out_ok( <<OUT, <<ERR );
not ok - foo is bar?
OUT
#   Failed test 'foo is bar?'
#   at $0 line 40.
#          got: 'foo'
#     expected: 'bar'
ERR

#line 89
is( undef, '',    'undef is empty string?');
out_ok( <<OUT, <<ERR );
not ok - undef is empty string?
OUT
#   Failed test 'undef is empty string?'
#   at $0 line 89.
#          got: undef
#     expected: ''
ERR

#line 99
is( undef, 0,     'undef is 0?');
out_ok( <<OUT, <<ERR );
not ok - undef is 0?
OUT
#   Failed test 'undef is 0?'
#   at $0 line 99.
#          got: undef
#     expected: '0'
ERR

#line 110
is( '',    0,     'empty string is 0?' );
out_ok( <<OUT, <<ERR );
not ok - empty string is 0?
OUT
#   Failed test 'empty string is 0?'
#   at $0 line 110.
#          got: ''
#     expected: '0'
ERR

#line 121
isnt("foo", "foo", 'foo isnt foo?' );
out_ok( <<OUT, <<ERR );
not ok - foo isnt foo?
OUT
#   Failed test 'foo isnt foo?'
#   at $0 line 121.
#          got: 'foo'
#     expected: anything else
ERR

#line 132
isn't("foo", "foo",'foo isn\'t foo?' );
out_ok( <<OUT, <<ERR );
not ok - foo isn't foo?
OUT
#   Failed test 'foo isn\'t foo?'
#   at $0 line 132.
#          got: 'foo'
#     expected: anything else
ERR

#line 143
isnt(undef, undef, 'undef isnt undef?');
out_ok( <<OUT, <<ERR );
not ok - undef isnt undef?
OUT
#   Failed test 'undef isnt undef?'
#   at $0 line 143.
#          got: undef
#     expected: anything else
ERR

#line 154
like( "foo", '/that/',  'is foo like that' );
out_ok( <<OUT, <<ERR );
not ok - is foo like that
OUT
#   Failed test 'is foo like that'
#   at $0 line 154.
#                   'foo'
#     doesn't match '/that/'
ERR

#line 165
unlike( "foo", '/foo/', 'is foo unlike foo' );
out_ok( <<OUT, <<ERR );
not ok - is foo unlike foo
OUT
#   Failed test 'is foo unlike foo'
#   at $0 line 165.
#                   'foo'
#           matches '/foo/'
ERR

# Nick Clark found this was a bug.  Fixed in 0.40.
# line 177
like( "bug", '/(%)/',   'regex with % in it' );
out_ok( <<OUT, <<ERR );
not ok - regex with % in it
OUT
#   Failed test 'regex with % in it'
#   at $0 line 177.
#                   'bug'
#     doesn't match '/(%)/'
ERR

#line 188
fail('fail()');
out_ok( <<OUT, <<ERR );
not ok - fail()
OUT
#   Failed test 'fail()'
#   at $0 line 188.
ERR

#line 197
can_ok('Mooble::Hooble::Yooble', qw(this that));
out_ok( <<OUT, <<ERR );
not ok - Mooble::Hooble::Yooble->can(...)
OUT
#   Failed test 'Mooble::Hooble::Yooble->can(...)'
#   at $0 line 197.
#     Mooble::Hooble::Yooble->can('this') failed
#     Mooble::Hooble::Yooble->can('that') failed
ERR

#line 208
can_ok('Mooble::Hooble::Yooble', ());
out_ok( <<OUT, <<ERR );
not ok - Mooble::Hooble::Yooble->can(...)
OUT
#   Failed test 'Mooble::Hooble::Yooble->can(...)'
#   at $0 line 208.
#     can_ok() called with no methods
ERR

#line 218
can_ok(undef, undef);
out_ok( <<OUT, <<ERR );
not ok - ->can(...)
OUT
#   Failed test '->can(...)'
#   at $0 line 218.
#     can_ok() called with empty class or reference
ERR

#line 228
can_ok([], "foo");
out_ok( <<OUT, <<ERR );
not ok - ARRAY->can('foo')
OUT
#   Failed test 'ARRAY->can('foo')'
#   at $0 line 228.
#     ARRAY->can('foo') failed
ERR

#line 238
isa_ok(bless([], "Foo"), "Wibble");
out_ok( <<OUT, <<ERR );
not ok - The object isa Wibble
OUT
#   Failed test 'The object isa Wibble'
#   at $0 line 238.
#     The object isn't a 'Wibble' it's a 'Foo'
ERR

#line 248
isa_ok(42,    "Wibble", "My Wibble");
out_ok( <<OUT, <<ERR );
not ok - My Wibble isa Wibble
OUT
#   Failed test 'My Wibble isa Wibble'
#   at $0 line 248.
#     My Wibble isn't a class or reference
ERR

#line 258
isa_ok(undef, "Wibble", "Another Wibble");
out_ok( <<OUT, <<ERR );
not ok - Another Wibble isa Wibble
OUT
#   Failed test 'Another Wibble isa Wibble'
#   at $0 line 258.
#     Another Wibble isn't defined
ERR

#line 268
isa_ok([],    "HASH");
out_ok( <<OUT, <<ERR );
not ok - The reference isa HASH
OUT
#   Failed test 'The reference isa HASH'
#   at $0 line 268.
#     The reference isn't a 'HASH' it's a 'ARRAY'
ERR

#line 278
new_ok(undef);
out_like( <<OUT, <<ERR );
not ok - new\\(\\) died
OUT
#   Failed test 'new\\(\\) died'
#   at $Filename line 278.
#     Error was:  Can't call method "new" on an undefined value at .*
ERR

#line 288
new_ok( "Does::Not::Exist" );
out_like( <<OUT, <<ERR );
not ok - new\\(\\) died
OUT
#   Failed test 'new\\(\\) died'
#   at $Filename line 288.
#     Error was:  Can't locate object method "new" via package "Does::Not::Exist" .*
ERR


{ package Foo; sub new { } }
{ package Bar; sub new { {} } }
{ package Baz; sub new { bless {}, "Wibble" } }

#line 303
new_ok( "Foo" );
out_ok( <<OUT, <<ERR );
not ok - The object isa Foo
OUT
#   Failed test 'The object isa Foo'
#   at $0 line 303.
#     The object isn't defined
ERR

# line 313
new_ok( "Bar" );
out_ok( <<OUT, <<ERR );
not ok - The object isa Bar
OUT
#   Failed test 'The object isa Bar'
#   at $0 line 313.
#     The object isn't a 'Bar' it's a 'HASH'
ERR

#line 323
new_ok( "Baz" );
out_ok( <<OUT, <<ERR );
not ok - The object isa Baz
OUT
#   Failed test 'The object isa Baz'
#   at $0 line 323.
#     The object isn't a 'Baz' it's a 'Wibble'
ERR

#line 333
new_ok( "Baz", [], "no args" );
out_ok( <<OUT, <<ERR );
not ok - no args isa Baz
OUT
#   Failed test 'no args isa Baz'
#   at $0 line 333.
#     no args isn't a 'Baz' it's a 'Wibble'
ERR

#line 343
cmp_ok( 'foo', 'eq', 'bar', 'cmp_ok eq' );
out_ok( <<OUT, <<ERR );
not ok - cmp_ok eq
OUT
#   Failed test 'cmp_ok eq'
#   at $0 line 343.
#          got: 'foo'
#     expected: 'bar'
ERR

#line 354
cmp_ok( 42.1,  '==', 23,  , '       ==' );
out_ok( <<OUT, <<ERR );
not ok -        ==
OUT
#   Failed test '       =='
#   at $0 line 354.
#          got: 42.1
#     expected: 23
ERR

#line 365
cmp_ok( 42,    '!=', 42   , '       !=' );
out_ok( <<OUT, <<ERR );
not ok -        !=
OUT
#   Failed test '       !='
#   at $0 line 365.
#          got: 42
#     expected: anything else
ERR

#line 376
cmp_ok( 1,     '&&', 0    , '       &&' );
out_ok( <<OUT, <<ERR );
not ok -        &&
OUT
#   Failed test '       &&'
#   at $0 line 376.
#     '1'
#         &&
#     '0'
ERR

# line 388
cmp_ok( 42,    'eq', "foo", '       eq with numbers' );
out_ok( <<OUT, <<ERR );
not ok -        eq with numbers
OUT
#   Failed test '       eq with numbers'
#   at $0 line 388.
#          got: '42'
#     expected: 'foo'
ERR

{
    my $warnings = '';
    local $SIG{__WARN__} = sub { $warnings .= join '', @_ };

# line 404
    cmp_ok( 42,    '==', "foo", '       == with strings' );
    out_ok( <<OUT, <<ERR );
not ok -        == with strings
OUT
#   Failed test '       == with strings'
#   at $0 line 404.
#          got: 42
#     expected: foo
ERR
    My::Test::like(
        $warnings,
        qr/^Argument "foo" isn't numeric in .* at cmp_ok \[from $Filename line 404\] line 1\.\n$/
    );
    $warnings = '';
}


{
    my $warnings = '';
    local $SIG{__WARN__} = sub { $warnings .= join '', @_ };

#line 426
    cmp_ok( undef, "ne", "", "undef ne empty string" );

    $TB->is_eq( $out->read, <<OUT );
not ok - undef ne empty string
OUT

    TODO: {
        local $::TODO = 'cmp_ok() gives the wrong "expected" for undef';

        $TB->is_eq( $err->read, <<ERR );
#   Failed test 'undef ne empty string'
#   at $0 line 426.
#          got: undef
#     expected: ''
ERR
    }

    My::Test::like(
        $warnings,
        qr/^Use of uninitialized value.* in string ne at cmp_ok \[from $Filename line 426\] line 1\.\n\z/
    );
}


# generate a $!, it changes its value by context.
-e "wibblehibble";
my $Errno_Number = $!+0;
my $Errno_String = $!.'';
#line 425
cmp_ok( $!,    'eq', '',    '       eq with stringified errno' );
out_ok( <<OUT, <<ERR );
not ok -        eq with stringified errno
OUT
#   Failed test '       eq with stringified errno'
#   at $0 line 425.
#          got: '$Errno_String'
#     expected: ''
ERR

#line 436
cmp_ok( $!,    '==', -1,    '       eq with numerified errno' );
out_ok( <<OUT, <<ERR );
not ok -        eq with numerified errno
OUT
#   Failed test '       eq with numerified errno'
#   at $0 line 436.
#          got: $Errno_Number
#     expected: -1
ERR

#line 447
use_ok('Hooble::mooble::yooble');
my $more_err_re = <<ERR;
#   Failed test 'use Hooble::mooble::yooble;'
#   at $Filename line 447\\.
#     Tried to use 'Hooble::mooble::yooble'.
#     Error:  Can't locate Hooble.* in \\\@INC .*
ERR
out_like(
    qr/^\Qnot ok - use Hooble::mooble::yooble;\E\n\z/,
    qr/^$more_err_re/
);

#line 460
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;'
#   at $Filename line 460\\.
#     Tried to require 'ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble'.
#     Error:  Can't locate ALL.* in \\\@INC .*
ERR
out_like(
    qr/^\Qnot ok - require ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble;\E\n\z/,
    qr/^$more_err_re/
);


END {
    out_like( <<OUT, <<ERR );
OUT
# Looks like you failed $Total tests of $Total.
ERR

    exit(0);
}
Commit	Line	Data
33459055	1	#!perl -w
3f2ec160	2
15db8fc4	3	BEGIN {
a9153838	4	if( $ENV{PERL_CORE} ) {
	5	chdir 't';
	6	@INC = ('../lib', 'lib');
	7	}
	8	else {
	9	unshift @INC, 't/lib';
	10	}
15db8fc4	11	}
15db8fc4	12
33459055	13	use strict;
33459055	14
	15	require Test::Simple::Catch;
	16	my($out, $err) = Test::Simple::Catch::caught();
30e302f8	17	local $ENV{HARNESS_ACTIVE} = 0;
33459055	18
33459055	19
3f2ec160	20	# Can't use Test.pm, that's a 5.005 thing.
	21	package My::Test;
	22
b1ddf169	23	# This has to be a require or else the END block below runs before
	24	# Test::Builder's own and the ending diagnostics don't come out right.
	25	require Test::Builder;
	26	my $TB = Test::Builder->create;
3e887aae	27	$TB->plan(tests => 78);
b1ddf169	28
	29	sub like ($$;$) {
	30	$TB->like(@_);
3f2ec160	31	}
3f2ec160	32
b1ddf169	33	sub is ($$;$) {
	34	$TB->is_eq(@_);
	35	}
3f2ec160	36
3e887aae	37	sub main::out_ok ($$) {
	38	$TB->is_eq( $out->read, shift );
	39	$TB->is_eq( $err->read, shift );
30e302f8	40	}
30e302f8	41
3e887aae	42	sub main::out_like ($$) {
3e887aae	43	my($output, $failure) = @_;
ccbd73a4	44
3e887aae	45	$TB->like( $out->read, qr/$output/ );
3e887aae	46	$TB->like( $err->read, qr/$failure/ );
ccbd73a4	47	}
ccbd73a4	48
30e302f8	49
3f2ec160	50	package main;
d020a79a	51
3f2ec160	52	require Test::More;
3e887aae	53	our $TODO;
3e887aae	54	my $Total = 37;
a9153838	55	Test::More->import(tests => $Total);
3e887aae	56	$out->read; # clear the plan from $out
3f2ec160	57
c00d8759	58	# This should all work in the presence of a __DIE__ handler.
	59	local $SIG{__DIE__} = sub { $TB->ok(0, "DIE handler called: ".join "", @_); };
	60
	61
30e302f8	62	my $tb = Test::More->builder;
	63	$tb->use_numbers(0);
	64
b1ddf169	65	my $Filename = quotemeta $0;
b1ddf169	66
3e887aae	67
33459055	68	#line 38
3f2ec160	69	ok( 0, 'failing' );
3e887aae	70	out_ok( <<OUT, <<ERR );
	71	not ok - failing
	72	OUT
b1ddf169	73	# Failed test 'failing'
b7f9bbeb	74	# at $0 line 38.
30e302f8	75	ERR
a9153838	76
3e887aae	77
a9153838	78	#line 40
a9153838	79	is( "foo", "bar", 'foo is bar?');
3e887aae	80	out_ok( <<OUT, <<ERR );
	81	not ok - foo is bar?
	82	OUT
b1ddf169	83	# Failed test 'foo is bar?'
b7f9bbeb	84	# at $0 line 40.
3f2ec160	85	# got: 'foo'
3f2ec160	86	# expected: 'bar'
3e887aae	87	ERR
	88
	89	#line 89
	90	is( undef, '', 'undef is empty string?');
	91	out_ok( <<OUT, <<ERR );
	92	not ok - undef is empty string?
	93	OUT
b1ddf169	94	# Failed test 'undef is empty string?'
3e887aae	95	# at $0 line 89.
a9153838	96	# got: undef
a9153838	97	# expected: ''
3e887aae	98	ERR
	99
	100	#line 99
	101	is( undef, 0, 'undef is 0?');
	102	out_ok( <<OUT, <<ERR );
	103	not ok - undef is 0?
	104	OUT
b1ddf169	105	# Failed test 'undef is 0?'
3e887aae	106	# at $0 line 99.
a9153838	107	# got: undef
a9153838	108	# expected: '0'
3e887aae	109	ERR
	110
	111	#line 110
	112	is( '', 0, 'empty string is 0?' );
	113	out_ok( <<OUT, <<ERR );
	114	not ok - empty string is 0?
	115	OUT
b1ddf169	116	# Failed test 'empty string is 0?'
3e887aae	117	# at $0 line 110.
a9153838	118	# got: ''
a9153838	119	# expected: '0'
30e302f8	120	ERR
30e302f8	121
3e887aae	122	#line 121
30e302f8	123	isnt("foo", "foo", 'foo isnt foo?' );
3e887aae	124	out_ok( <<OUT, <<ERR );
	125	not ok - foo isnt foo?
	126	OUT
b1ddf169	127	# Failed test 'foo isnt foo?'
3e887aae	128	# at $0 line 121.
ccbd73a4	129	# got: 'foo'
ccbd73a4	130	# expected: anything else
3e887aae	131	ERR
	132
	133	#line 132
	134	isn't("foo", "foo",'foo isn\'t foo?' );
	135	out_ok( <<OUT, <<ERR );
	136	not ok - foo isn't foo?
	137	OUT
b1ddf169	138	# Failed test 'foo isn\'t foo?'
3e887aae	139	# at $0 line 132.
ccbd73a4	140	# got: 'foo'
ccbd73a4	141	# expected: anything else
3e887aae	142	ERR
	143
	144	#line 143
	145	isnt(undef, undef, 'undef isnt undef?');
	146	out_ok( <<OUT, <<ERR );
	147	not ok - undef isnt undef?
	148	OUT
b1ddf169	149	# Failed test 'undef isnt undef?'
3e887aae	150	# at $0 line 143.
ccbd73a4	151	# got: undef
ccbd73a4	152	# expected: anything else
30e302f8	153	ERR
30e302f8	154
3e887aae	155	#line 154
30e302f8	156	like( "foo", '/that/', 'is foo like that' );
3e887aae	157	out_ok( <<OUT, <<ERR );
	158	not ok - is foo like that
	159	OUT
b1ddf169	160	# Failed test 'is foo like that'
3e887aae	161	# at $0 line 154.
3f2ec160	162	# 'foo'
3f2ec160	163	# doesn't match '/that/'
3e887aae	164	ERR
	165
	166	#line 165
	167	unlike( "foo", '/foo/', 'is foo unlike foo' );
	168	out_ok( <<OUT, <<ERR );
	169	not ok - is foo unlike foo
	170	OUT
b1ddf169	171	# Failed test 'is foo unlike foo'
3e887aae	172	# at $0 line 165.
a9153838	173	# 'foo'
a9153838	174	# matches '/foo/'
30e302f8	175	ERR
	176
	177	# Nick Clark found this was a bug. Fixed in 0.40.
3e887aae	178	# line 177
30e302f8	179	like( "bug", '/(%)/', 'regex with % in it' );
3e887aae	180	out_ok( <<OUT, <<ERR );
	181	not ok - regex with % in it
	182	OUT
b1ddf169	183	# Failed test 'regex with % in it'
3e887aae	184	# at $0 line 177.
a9153838	185	# 'bug'
a9153838	186	# doesn't match '/(%)/'
30e302f8	187	ERR
30e302f8	188
3e887aae	189	#line 188
30e302f8	190	fail('fail()');
3e887aae	191	out_ok( <<OUT, <<ERR );
	192	not ok - fail()
	193	OUT
b1ddf169	194	# Failed test 'fail()'
3e887aae	195	# at $0 line 188.
30e302f8	196	ERR
30e302f8	197
3e887aae	198	#line 197
30e302f8	199	can_ok('Mooble::Hooble::Yooble', qw(this that));
3e887aae	200	out_ok( <<OUT, <<ERR );
	201	not ok - Mooble::Hooble::Yooble->can(...)
	202	OUT
b1ddf169	203	# Failed test 'Mooble::Hooble::Yooble->can(...)'
3e887aae	204	# at $0 line 197.
d020a79a	205	# Mooble::Hooble::Yooble->can('this') failed
d020a79a	206	# Mooble::Hooble::Yooble->can('that') failed
3e887aae	207	ERR
	208
	209	#line 208
	210	can_ok('Mooble::Hooble::Yooble', ());
	211	out_ok( <<OUT, <<ERR );
	212	not ok - Mooble::Hooble::Yooble->can(...)
	213	OUT
b1ddf169	214	# Failed test 'Mooble::Hooble::Yooble->can(...)'
3e887aae	215	# at $0 line 208.
a9153838	216	# can_ok() called with no methods
3e887aae	217	ERR
	218
	219	#line 218
	220	can_ok(undef, undef);
	221	out_ok( <<OUT, <<ERR );
	222	not ok - ->can(...)
	223	OUT
68938d83	224	# Failed test '->can(...)'
3e887aae	225	# at $0 line 218.
68938d83	226	# can_ok() called with empty class or reference
3e887aae	227	ERR
	228
	229	#line 228
	230	can_ok([], "foo");
	231	out_ok( <<OUT, <<ERR );
	232	not ok - ARRAY->can('foo')
	233	OUT
c00d8759	234	# Failed test 'ARRAY->can('foo')'
3e887aae	235	# at $0 line 228.
c00d8759	236	# ARRAY->can('foo') failed
30e302f8	237	ERR
30e302f8	238
3e887aae	239	#line 238
30e302f8	240	isa_ok(bless([], "Foo"), "Wibble");
3e887aae	241	out_ok( <<OUT, <<ERR );
	242	not ok - The object isa Wibble
	243	OUT
b1ddf169	244	# Failed test 'The object isa Wibble'
3e887aae	245	# at $0 line 238.
6686786d	246	# The object isn't a 'Wibble' it's a 'Foo'
3e887aae	247	ERR
	248
	249	#line 248
	250	isa_ok(42, "Wibble", "My Wibble");
	251	out_ok( <<OUT, <<ERR );
	252	not ok - My Wibble isa Wibble
	253	OUT
b1ddf169	254	# Failed test 'My Wibble isa Wibble'
3e887aae	255	# at $0 line 248.
	256	# My Wibble isn't a class or reference
	257	ERR
	258
	259	#line 258
	260	isa_ok(undef, "Wibble", "Another Wibble");
	261	out_ok( <<OUT, <<ERR );
	262	not ok - Another Wibble isa Wibble
	263	OUT
b1ddf169	264	# Failed test 'Another Wibble isa Wibble'
3e887aae	265	# at $0 line 258.
33459055	266	# Another Wibble isn't defined
30e302f8	267	ERR
30e302f8	268
3e887aae	269	#line 268
	270	isa_ok([], "HASH");
	271	out_ok( <<OUT, <<ERR );
	272	not ok - The reference isa HASH
	273	OUT
	274	# Failed test 'The reference isa HASH'
	275	# at $0 line 268.
	276	# The reference isn't a 'HASH' it's a 'ARRAY'
	277	ERR
ccbd73a4	278
3e887aae	279	#line 278
ccbd73a4	280	new_ok(undef);
3e887aae	281	out_like( <<OUT, <<ERR );
	282	not ok - new\\(\\) died
	283	OUT
ccbd73a4	284	# Failed test 'new\\(\\) died'
3e887aae	285	# at $Filename line 278.
ccbd73a4	286	# Error was: Can't call method "new" on an undefined value at .*
	287	ERR
	288
3e887aae	289	#line 288
ccbd73a4	290	new_ok( "Does::Not::Exist" );
3e887aae	291	out_like( <<OUT, <<ERR );
	292	not ok - new\\(\\) died
	293	OUT
ccbd73a4	294	# Failed test 'new\\(\\) died'
3e887aae	295	# at $Filename line 288.
ccbd73a4	296	# Error was: Can't locate object method "new" via package "Does::Not::Exist" .*
	297	ERR
	298
3e887aae	299
ccbd73a4	300	{ package Foo; sub new { } }
	301	{ package Bar; sub new { {} } }
	302	{ package Baz; sub new { bless {}, "Wibble" } }
	303
3e887aae	304	#line 303
ccbd73a4	305	new_ok( "Foo" );
3e887aae	306	out_ok( <<OUT, <<ERR );
	307	not ok - The object isa Foo
	308	OUT
ccbd73a4	309	# Failed test 'The object isa Foo'
3e887aae	310	# at $0 line 303.
ccbd73a4	311	# The object isn't defined
	312	ERR
	313
3e887aae	314	# line 313
ccbd73a4	315	new_ok( "Bar" );
3e887aae	316	out_ok( <<OUT, <<ERR );
	317	not ok - The object isa Bar
	318	OUT
ccbd73a4	319	# Failed test 'The object isa Bar'
3e887aae	320	# at $0 line 313.
ccbd73a4	321	# The object isn't a 'Bar' it's a 'HASH'
	322	ERR
	323
3e887aae	324	#line 323
ccbd73a4	325	new_ok( "Baz" );
3e887aae	326	out_ok( <<OUT, <<ERR );
	327	not ok - The object isa Baz
	328	OUT
ccbd73a4	329	# Failed test 'The object isa Baz'
3e887aae	330	# at $0 line 323.
ccbd73a4	331	# The object isn't a 'Baz' it's a 'Wibble'
	332	ERR
	333
3e887aae	334	#line 333
ccbd73a4	335	new_ok( "Baz", [], "no args" );
3e887aae	336	out_ok( <<OUT, <<ERR );
	337	not ok - no args isa Baz
	338	OUT
ccbd73a4	339	# Failed test 'no args isa Baz'
3e887aae	340	# at $0 line 333.
ccbd73a4	341	# no args isn't a 'Baz' it's a 'Wibble'
	342	ERR
	343
3e887aae	344	#line 343
30e302f8	345	cmp_ok( 'foo', 'eq', 'bar', 'cmp_ok eq' );
3e887aae	346	out_ok( <<OUT, <<ERR );
	347	not ok - cmp_ok eq
	348	OUT
b1ddf169	349	# Failed test 'cmp_ok eq'
3e887aae	350	# at $0 line 343.
a9153838	351	# got: 'foo'
a9153838	352	# expected: 'bar'
3e887aae	353	ERR
	354
	355	#line 354
	356	cmp_ok( 42.1, '==', 23, , ' ==' );
	357	out_ok( <<OUT, <<ERR );
	358	not ok - ==
	359	OUT
b1ddf169	360	# Failed test ' =='
3e887aae	361	# at $0 line 354.
a9153838	362	# got: 42.1
a9153838	363	# expected: 23
3e887aae	364	ERR
	365
	366	#line 365
	367	cmp_ok( 42, '!=', 42 , ' !=' );
	368	out_ok( <<OUT, <<ERR );
	369	not ok - !=
	370	OUT
b1ddf169	371	# Failed test ' !='
3e887aae	372	# at $0 line 365.
ccbd73a4	373	# got: 42
ccbd73a4	374	# expected: anything else
3e887aae	375	ERR
	376
	377	#line 376
	378	cmp_ok( 1, '&&', 0 , ' &&' );
	379	out_ok( <<OUT, <<ERR );
	380	not ok - &&
	381	OUT
b1ddf169	382	# Failed test ' &&'
3e887aae	383	# at $0 line 376.
a9153838	384	# '1'
	385	# &&
	386	# '0'
b1ddf169	387	ERR
b1ddf169	388
3e887aae	389	# line 388
b1ddf169	390	cmp_ok( 42, 'eq', "foo", ' eq with numbers' );
3e887aae	391	out_ok( <<OUT, <<ERR );
	392	not ok - eq with numbers
	393	OUT
b1ddf169	394	# Failed test ' eq with numbers'
3e887aae	395	# at $0 line 388.
a9153838	396	# got: '42'
a9153838	397	# expected: 'foo'
30e302f8	398	ERR
30e302f8	399
b1ddf169	400	{
3e887aae	401	my $warnings = '';
b1ddf169	402	local $SIG{__WARN__} = sub { $warnings .= join '', @_ };
b1ddf169	403
3e887aae	404	# line 404
b1ddf169	405	cmp_ok( 42, '==', "foo", ' == with strings' );
3e887aae	406	out_ok( <<OUT, <<ERR );
	407	not ok - == with strings
	408	OUT
b1ddf169	409	# Failed test ' == with strings'
3e887aae	410	# at $0 line 404.
b1ddf169	411	# got: 42
	412	# expected: foo
	413	ERR
3e887aae	414	My::Test::like(
	415	$warnings,
	416	qr/^Argument "foo" isn't numeric in .* at cmp_ok \[from $Filename line 404\] line 1\.\n$/
	417	);
	418	$warnings = '';
	419	}
b1ddf169	420
3e887aae	421
	422	{
	423	my $warnings = '';
	424	local $SIG{__WARN__} = sub { $warnings .= join '', @_ };
	425
	426	#line 426
	427	cmp_ok( undef, "ne", "", "undef ne empty string" );
	428
	429	$TB->is_eq( $out->read, <<OUT );
	430	not ok - undef ne empty string
	431	OUT
	432
	433	TODO: {
	434	local $::TODO = 'cmp_ok() gives the wrong "expected" for undef';
	435
	436	$TB->is_eq( $err->read, <<ERR );
	437	# Failed test 'undef ne empty string'
	438	# at $0 line 426.
	439	# got: undef
	440	# expected: ''
	441	ERR
	442	}
	443
	444	My::Test::like(
	445	$warnings,
	446	qr/^Use of uninitialized value.* in string ne at cmp_ok \[from $Filename line 426\] line 1\.\n\z/
	447	);
b1ddf169	448	}
	449
	450
30e302f8	451	# generate a $!, it changes its value by context.
	452	-e "wibblehibble";
	453	my $Errno_Number = $!+0;
	454	my $Errno_String = $!.'';
3e887aae	455	#line 425
30e302f8	456	cmp_ok( $!, 'eq', '', ' eq with stringified errno' );
3e887aae	457	out_ok( <<OUT, <<ERR );
	458	not ok - eq with stringified errno
	459	OUT
b1ddf169	460	# Failed test ' eq with stringified errno'
3e887aae	461	# at $0 line 425.
a9153838	462	# got: '$Errno_String'
a9153838	463	# expected: ''
3e887aae	464	ERR
	465
	466	#line 436
	467	cmp_ok( $!, '==', -1, ' eq with numerified errno' );
	468	out_ok( <<OUT, <<ERR );
	469	not ok - eq with numerified errno
	470	OUT
b1ddf169	471	# Failed test ' eq with numerified errno'
3e887aae	472	# at $0 line 436.
a9153838	473	# got: $Errno_Number
a9153838	474	# expected: -1
3f2ec160	475	ERR
3f2ec160	476
3e887aae	477	#line 447
30e302f8	478	use_ok('Hooble::mooble::yooble');
b1ddf169	479	my $more_err_re = <<ERR;
b1ddf169	480	# Failed test 'use Hooble::mooble::yooble;'
3e887aae	481	# at $Filename line 447\\.
b1ddf169	482	# Tried to use 'Hooble::mooble::yooble'.
b1ddf169	483	# Error: Can't locate Hooble.* in \\\@INC .*
b1ddf169	484	ERR
3e887aae	485	out_like(
	486	qr/^\Qnot ok - use Hooble::mooble::yooble;\E\n\z/,
	487	qr/^$more_err_re/
	488	);
b1ddf169	489
3e887aae	490	#line 460
30e302f8	491	require_ok('ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble');
b1ddf169	492	$more_err_re = <<ERR;
b1ddf169	493	# Failed test 'require ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble;'
3e887aae	494	# at $Filename line 460\\.
b1ddf169	495	# Tried to require 'ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble'.
	496	# Error: Can't locate ALL.* in \\\@INC .*
	497	ERR
3e887aae	498	out_like(
	499	qr/^\Qnot ok - require ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble;\E\n\z/,
	500	qr/^$more_err_re/
	501	);
b1ddf169	502
30e302f8	503
30e302f8	504	END {
3e887aae	505	out_like( <<OUT, <<ERR );
30e302f8	506	OUT
a9153838	507	# Looks like you failed $Total tests of $Total.
3f2ec160	508	ERR
3f2ec160	509
3f2ec160	510	exit(0);
3f2ec160	511	}