FM / Legacy

/usr/share/doc/perl-Test-Simple/t/Legacy/

/usr/share/doc/perl-Test-Simple/t/Legacy

Name	Size	Mode	Actions
Bugs/	-	0755	rm
Builder/	-	0755	rm
Regression/	-	0755	rm
Simple/	-	0755	rm
subtest/	-	0755	rm
Test2/	-	0755	rm
Tester/	-	0755	rm
00test_harness_check.t	764	0644	edit dl rm
01-basic.t	90	0644	edit dl rm
478-cmp_ok_hash.t	923	0644	edit dl rm
auto.t	598	0644	edit dl rm
bad_plan.t	495	0644	edit dl rm
bail_out.t	851	0644	edit dl rm
BEGIN_require_ok.t	463	0644	edit dl rm
BEGIN_use_ok.t	388	0644	edit dl rm
buffer.t	444	0644	edit dl rm
capture.t	488	0644	edit dl rm
check_tests.t	2437	0644	edit dl rm
circular_data.t	1200	0644	edit dl rm
cmp_ok.t	1794	0644	edit dl rm
c_flag.t	458	0644	edit dl rm
depth.t	383	0644	edit dl rm
diag.t	1424	0644	edit dl rm
died.t	889	0644	edit dl rm
dont_overwrite_die_handler.t	515	0644	edit dl rm
eq_set.t	562	0644	edit dl rm
exit.t	3242	0644	edit dl rm
explain.t	582	0644	edit dl rm
explain_err_vars.t	122	0644	edit dl rm
extra.t	1138	0644	edit dl rm
extra_one.t	910	0644	edit dl rm
fail-like.t	1595	0644	edit dl rm
fail-more.t	10804	0644	edit dl rm
fail.t	1246	0644	edit dl rm
fail_one.t	873	0644	edit dl rm
filehandles.t	290	0644	edit dl rm
fork.t	456	0644	edit dl rm
harness_active.t	1461	0644	edit dl rm
import.t	244	0644	edit dl rm
is_deeply_dne_bug.t	887	0644	edit dl rm
is_deeply_fail.t	11792	0644	edit dl rm
is_deeply_with_threads.t	1401	0644	edit dl rm
missing.t	1101	0644	edit dl rm
More.t	5218	0644	edit dl rm
new_ok.t	705	0644	edit dl rm
note.t	416	0644	edit dl rm
no_log_results.t	260	0644	edit dl rm
no_plan.t	840	0644	edit dl rm
no_tests.t	823	0644	edit dl rm
overload.t	2181	0644	edit dl rm
overload_threads.t	1178	0644	edit dl rm
plan.t	474	0644	edit dl rm
plan_bad.t	1072	0644	edit dl rm
plan_is_noplan.t	404	0644	edit dl rm
plan_no_plan.t	794	0644	edit dl rm
plan_shouldnt_import.t	294	0644	edit dl rm
plan_skip_all.t	190	0644	edit dl rm
require_ok.t	786	0644	edit dl rm
run_test.t	4231	0644	edit dl rm
simple.t	200	0644	edit dl rm
skip.t	1965	0644	edit dl rm
skipall.t	481	0644	edit dl rm
strays.t	480	0644	edit dl rm
tbm_doesnt_set_exported_to.t	457	0644	edit dl rm
threads.t	616	0644	edit dl rm
thread_taint.t	122	0644	edit dl rm
todo.t	3360	0644	edit dl rm
undef.t	2001	0644	edit dl rm
useing.t	365	0644	edit dl rm
use_ok.t	2345	0644	edit dl rm
utf8.t	1523	0644	edit dl rm
versions.t	503	0644	edit dl rm

Edit: /usr/share/doc/perl-Test-Simple/t/Legacy/fail-like.t (1595B)

#!/usr/bin/perl -w
# HARNESS-NO-STREAM
# HARNESS-NO-PRELOAD

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

# There was a bug with like() involving a qr// not failing properly.
# This tests against that.

use strict;

# 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 => 4);

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

package main;

require Test::More;
Test::More->import(tests => 1);

{
    eval q{ like( "foo", qr/that/, 'is foo like that' ); };

$TB->is_eq($out->read, <<OUT, 'failing output');
1..1
not ok 1 - is foo like that
OUT

# Accept both old and new-style stringification
    my $modifiers = (qr/foobar/ =~ /\Q(?^/) ? '\\^' : '-xism';

my $err_re = <<ERR;
#   Failed test 'is foo like that'
#   at .* line 1\.
#                   'foo'
#     doesn't match '\$\\?$modifiers:that\$'
ERR

$TB->like($err->read, qr/^$err_re$/, 'failing errors');
}

{
    # line 62
    like("foo", "not a regex");
    $TB->is_eq($out->read, <<OUT);
not ok 2
OUT

$TB->is_eq($err->read, <<OUT);
#   Failed test at $0 line 62.
#     'not a regex' doesn't look much like a regex to me.
OUT

}

END {
    # Test::More thinks it failed.  Override that.
    $? = scalar grep { !$_ } $TB->summary;
}

#!/usr/bin/perl -w # HARNESS-NO-STREAM # HARNESS-NO-PRELOAD BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = ('../lib', 'lib'); } else { unshift @INC, 't/lib'; } } # There was a bug with like() involving a qr// not failing properly. # This tests against that. use strict; # 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 => 4); require Test::Simple::Catch; my($out, $err) = Test::Simple::Catch::caught(); local $ENV{HARNESS_ACTIVE} = 0; package main; require Test::More; Test::More->import(tests => 1); { eval q{ like( "foo", qr/that/, 'is foo like that' ); }; $TB->is_eq($out->read, <like($err->read, qr/^$err_re$/, 'failing errors'); } { # line 62 like("foo", "not a regex"); $TB->is_eq($out->read, <is_eq($err->read, <summary; }