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/extra.t (1138B)

#!perl -w

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

use strict;

use Test::Builder;
use Test::Builder::NoOutput;
use Test::Simple;

# TB methods expect to be wrapped
my $ok           = sub { shift->ok(@_) };
my $plan         = sub { shift->plan(@_) };
my $done_testing = sub { shift->done_testing(@_) };

my $TB   = Test::Builder->new;
my $test = Test::Builder::NoOutput->create;
$test->$plan( tests => 3 );

local $ENV{HARNESS_ACTIVE} = 0;

$test->$ok(1, 'Foo');
$TB->is_eq($test->read(), <<END);
1..3
ok 1 - Foo
END

#line 30
$test->$ok(0, 'Bar');
$TB->is_eq($test->read(), <<END);
not ok 2 - Bar
#   Failed test 'Bar'
#   at $0 line 30.
END

$test->$ok(1, 'Yar');
$test->$ok(1, 'Car');
$TB->is_eq($test->read(), <<END);
ok 3 - Yar
ok 4 - Car
END

#line 45
$test->$ok(0, 'Sar');
$TB->is_eq($test->read(), <<END);
not ok 5 - Sar
#   Failed test 'Sar'
#   at $0 line 45.
END

$test->_ending();
$TB->is_eq($test->read(), <<END);
# Looks like you planned 3 tests but ran 5.
# Looks like you failed 2 tests of 5 run.
END

$TB->$done_testing(5);

#!perl -w BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = '../lib'; } else { unshift @INC, 't/lib'; } } use strict; use Test::Builder; use Test::Builder::NoOutput; use Test::Simple; # TB methods expect to be wrapped my $ok = sub { shift->ok(@_) }; my $plan = sub { shift->plan(@_) }; my $done_testing = sub { shift->done_testing(@_) }; my $TB = Test::Builder->new; my $test = Test::Builder::NoOutput->create; $test->$plan( tests => 3 ); local $ENV{HARNESS_ACTIVE} = 0; $test->$ok(1, 'Foo'); $TB->is_eq($test->read(), <$ok(0, 'Bar'); $TB->is_eq($test->read(), <$ok(1, 'Yar'); $test->$ok(1, 'Car'); $TB->is_eq($test->read(), <$ok(0, 'Sar'); $TB->is_eq($test->read(), <_ending(); $TB->is_eq($test->read(), <$done_testing(5);