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/check_tests.t (2437B)

use strict;

use Test::Tester;

use Data::Dumper qw(Dumper);

my $test = Test::Builder->new;
$test->plan(tests => 139);

my $cap;

$cap = Test::Tester->capture;

my @tests = (
	[
		'pass',
		'$cap->ok(1, "pass");',
		{
			name => "pass",
			ok => 1,
			actual_ok => 1,
			reason => "",
			type => "",
			diag => "",
			depth => 0,
		},
	],
	[
		'pass diag',
		'$cap->ok(1, "pass diag");
		$cap->diag("pass diag1");
		$cap->diag("pass diag2");',
		{
			name => "pass diag",
			ok => 1,
			actual_ok => 1,
			reason => "",
			type => "",
			diag => "pass diag1\npass diag2\n",
			depth => 0,
		},
	],
	[
		'pass diag no \\n',
		'$cap->ok(1, "pass diag");
		$cap->diag("pass diag1");
		$cap->diag("pass diag2");',
		{
			name => "pass diag",
			ok => 1,
			actual_ok => 1,
			reason => "",
			type => "",
			diag => "pass diag1\npass diag2",
			depth => 0,
		},
	],
	[
		'fail',
		'$cap->ok(0, "fail");
		$cap->diag("fail diag");',
		{
			name => "fail",
			ok => 0,
			actual_ok => 0,
			reason => "",
			type => "",
			diag => "fail diag\n",
			depth => 0,
		},
	],
	[
		'skip',
		'$cap->skip("just because");',
		{
			name => "",
			ok => 1,
			actual_ok => 1,
			reason => "just because",
			type => "skip",
			diag => "",
			depth => 0,
		},
	],
	[
		'todo_skip',
		'$cap->todo_skip("why not");',
		{
			name => "",
			ok => 1,
			actual_ok => 0,
			reason => "why not",
			type => "todo_skip",
			diag => "",
			depth => 0,
		},
	],
    [
        'pass diag qr',
        '$cap->ok(1, "pass diag qr");
        $cap->diag("pass diag qr");',
        {
            name => "pass diag qr",
            ok => 1,
            actual_ok => 1,
            reason => "",
            type => "",
            diag => qr/pass diag qr/,
            depth => 0,
        },
    ],
    [
        'fail diag qr',
        '$cap->ok(0, "fail diag qr");
        $cap->diag("fail diag qr");',
        {
            name => "fail diag qr",
            ok => 0,
            actual_ok => 0,
            reason => "",
            type => "",
            diag => qr/fail diag qr/,
            depth => 0,
        },
    ],
);

my $big_code = "";
my @big_expect;

foreach my $test (@tests)
{
	my ($name, $code, $expect) = @$test;

$big_code .= "$code\n";
	push(@big_expect, $expect);

my $test_sub = eval "sub {$code}";

check_test($test_sub, $expect, $name);
}

my $big_test_sub = eval "sub {$big_code}";

check_tests($big_test_sub, \@big_expect, "run all");

use strict; use Test::Tester; use Data::Dumper qw(Dumper); my $test = Test::Builder->new; $test->plan(tests => 139); my $cap; $cap = Test::Tester->capture; my @tests = ( [ 'pass', '$cap->ok(1, "pass");', { name => "pass", ok => 1, actual_ok => 1, reason => "", type => "", diag => "", depth => 0, }, ], [ 'pass diag', '$cap->ok(1, "pass diag"); $cap->diag("pass diag1"); $cap->diag("pass diag2");', { name => "pass diag", ok => 1, actual_ok => 1, reason => "", type => "", diag => "pass diag1\npass diag2\n", depth => 0, }, ], [ 'pass diag no \\n', '$cap->ok(1, "pass diag"); $cap->diag("pass diag1"); $cap->diag("pass diag2");', { name => "pass diag", ok => 1, actual_ok => 1, reason => "", type => "", diag => "pass diag1\npass diag2", depth => 0, }, ], [ 'fail', '$cap->ok(0, "fail"); $cap->diag("fail diag");', { name => "fail", ok => 0, actual_ok => 0, reason => "", type => "", diag => "fail diag\n", depth => 0, }, ], [ 'skip', '$cap->skip("just because");', { name => "", ok => 1, actual_ok => 1, reason => "just because", type => "skip", diag => "", depth => 0, }, ], [ 'todo_skip', '$cap->todo_skip("why not");', { name => "", ok => 1, actual_ok => 0, reason => "why not", type => "todo_skip", diag => "", depth => 0, }, ], [ 'pass diag qr', '$cap->ok(1, "pass diag qr"); $cap->diag("pass diag qr");', { name => "pass diag qr", ok => 1, actual_ok => 1, reason => "", type => "", diag => qr/pass diag qr/, depth => 0, }, ], [ 'fail diag qr', '$cap->ok(0, "fail diag qr"); $cap->diag("fail diag qr");', { name => "fail diag qr", ok => 0, actual_ok => 0, reason => "", type => "", diag => qr/fail diag qr/, depth => 0, }, ], ); my $big_code = ""; my @big_expect; foreach my $test (@tests) { my ($name, $code, $expect) = @$test; $big_code .= "$code\n"; push(@big_expect, $expect); my $test_sub = eval "sub {$code}"; check_test($test_sub, $expect, $name); } my $big_test_sub = eval "sub {$big_code}"; check_tests($big_test_sub, \@big_expect, "run all");