Gecko [ thearyasamaj.org ]

/ usr / share / doc / perl-Test-Simple / t / Legacy / [ HOME SHELL ]

Name	Size	Permission	Action
Bugs	[ DIR ]	drwxr-xr-x
Builder	[ DIR ]	drwxr-xr-x
Regression	[ DIR ]	drwxr-xr-x
Simple	[ DIR ]	drwxr-xr-x
Test2	[ DIR ]	drwxr-xr-x
Tester	[ DIR ]	drwxr-xr-x
subtest	[ DIR ]	drwxr-xr-x
00test_harness_check.t	764 B	-rw-r--r--
01-basic.t	90 B	-rw-r--r--
478-cmp_ok_hash.t	923 B	-rw-r--r--
BEGIN_require_ok.t	463 B	-rw-r--r--
BEGIN_use_ok.t	388 B	-rw-r--r--
More.t	5.1 KB	-rw-r--r--
auto.t	598 B	-rw-r--r--
bad_plan.t	495 B	-rw-r--r--
bail_out.t	851 B	-rw-r--r--
buffer.t	444 B	-rw-r--r--
c_flag.t	458 B	-rw-r--r--
capture.t	488 B	-rw-r--r--
check_tests.t	2.38 KB	-rw-r--r--
circular_data.t	1.17 KB	-rw-r--r--
cmp_ok.t	1.75 KB	-rw-r--r--
depth.t	383 B	-rw-r--r--
diag.t	1.39 KB	-rw-r--r--
died.t	889 B	-rw-r--r--
dont_overwrite_die_handler.t	515 B	-rw-r--r--
eq_set.t	562 B	-rw-r--r--
exit.t	3.17 KB	-rw-r--r--
explain.t	582 B	-rw-r--r--
explain_err_vars.t	122 B	-rw-r--r--
extra.t	1.11 KB	-rw-r--r--
extra_one.t	910 B	-rw-r--r--
fail-like.t	1.56 KB	-rw-r--r--
fail-more.t	10.55 KB	-rw-r--r--
fail.t	1.22 KB	-rw-r--r--
fail_one.t	873 B	-rw-r--r--
filehandles.t	290 B	-rw-r--r--
fork.t	456 B	-rw-r--r--
harness_active.t	1.43 KB	-rw-r--r--
import.t	244 B	-rw-r--r--
is_deeply_dne_bug.t	887 B	-rw-r--r--
is_deeply_fail.t	11.52 KB	-rw-r--r--
is_deeply_with_threads.t	1.37 KB	-rw-r--r--
missing.t	1.08 KB	-rw-r--r--
new_ok.t	705 B	-rw-r--r--
no_log_results.t	260 B	-rw-r--r--
no_plan.t	840 B	-rw-r--r--
no_tests.t	823 B	-rw-r--r--
note.t	416 B	-rw-r--r--
overload.t	2.13 KB	-rw-r--r--
overload_threads.t	1.15 KB	-rw-r--r--
plan.t	474 B	-rw-r--r--
plan_bad.t	1.05 KB	-rw-r--r--
plan_is_noplan.t	404 B	-rw-r--r--
plan_no_plan.t	794 B	-rw-r--r--
plan_shouldnt_import.t	294 B	-rw-r--r--
plan_skip_all.t	190 B	-rw-r--r--
require_ok.t	786 B	-rw-r--r--
run_test.t	4.13 KB	-rw-r--r--
simple.t	200 B	-rw-r--r--
skip.t	1.92 KB	-rw-r--r--
skipall.t	481 B	-rw-r--r--
strays.t	480 B	-rw-r--r--
tbm_doesnt_set_exported_to.t	457 B	-rw-r--r--
thread_taint.t	122 B	-rw-r--r--
threads.t	616 B	-rw-r--r--
todo.t	3.28 KB	-rw-r--r--
undef.t	1.95 KB	-rw-r--r--
use_ok.t	2.29 KB	-rw-r--r--
useing.t	365 B	-rw-r--r--
utf8.t	1.49 KB	-rw-r--r--
versions.t	503 B	-rw-r--r--

Code Editor : run_test.t

use strict;

use Test::Tester;

use Data::Dumper qw(Dumper);

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

my $cap;

{
	$cap = Test::Tester->capture;
	my ($prem, @results) = run_tests(
		sub {$cap->ok(1, "run pass")}
	);

local $Test::Builder::Level = 0;

$test->is_eq($prem, "", "run pass no prem");
	$test->is_num(scalar (@results), 1, "run pass result count");

my $res = $results[0];

$test->is_eq($res->{name}, "run pass", "run pass name");
	$test->is_eq($res->{ok}, 1, "run pass ok");
	$test->is_eq($res->{actual_ok}, 1, "run pass actual_ok");
	$test->is_eq($res->{reason}, "", "run pass reason");
	$test->is_eq($res->{type}, "", "run pass type");
	$test->is_eq($res->{diag}, "", "run pass diag");
	$test->is_num($res->{depth}, 0, "run pass depth");
}

{
	my ($prem, @results) = run_tests(
		sub {$cap->ok(0, "run fail")}
	);

local $Test::Builder::Level = 0;

$test->is_eq($prem, "", "run fail no prem");
	$test->is_num(scalar (@results), 1, "run fail result count");

my $res = $results[0];

$test->is_eq($res->{name}, "run fail", "run fail name");
	$test->is_eq($res->{actual_ok}, 0, "run fail actual_ok");
	$test->is_eq($res->{ok}, 0, "run fail ok");
	$test->is_eq($res->{reason}, "", "run fail reason");
	$test->is_eq($res->{type}, "", "run fail type");
	$test->is_eq($res->{diag}, "", "run fail diag");
	$test->is_num($res->{depth}, 0, "run fail depth");
}

{
	my ($prem, @results) = run_tests(
		sub {$cap->skip("just because")}
	);

local $Test::Builder::Level = 0;

$test->is_eq($prem, "", "skip no prem");
	$test->is_num(scalar (@results), 1, "skip result count");

my $res = $results[0];

$test->is_eq($res->{name}, "", "skip name");
	$test->is_eq($res->{actual_ok}, 1, "skip actual_ok");
	$test->is_eq($res->{ok}, 1, "skip ok");
	$test->is_eq($res->{reason}, "just because", "skip reason");
	$test->is_eq($res->{type}, "skip", "skip type");
	$test->is_eq($res->{diag}, "", "skip diag");
	$test->is_num($res->{depth}, 0, "skip depth");
}

{
	my ($prem, @results) = run_tests(
		sub {$cap->todo_skip("just because")}
	);

local $Test::Builder::Level = 0;

$test->is_eq($prem, "", "todo_skip no prem");
	$test->is_num(scalar (@results), 1, "todo_skip result count");

my $res = $results[0];

$test->is_eq($res->{name}, "", "todo_skip name");
	$test->is_eq($res->{actual_ok}, 0, "todo_skip actual_ok");
	$test->is_eq($res->{ok}, 1, "todo_skip ok");
	$test->is_eq($res->{reason}, "just because", "todo_skip reason");
	$test->is_eq($res->{type}, "todo_skip", "todo_skip type");
	$test->is_eq($res->{diag}, "", "todo_skip diag");
	$test->is_num($res->{depth}, 0, "todo_skip depth");
}

{
	my ($prem, @results) = run_tests(
		sub {$cap->diag("run diag")}
	);

local $Test::Builder::Level = 0;

$test->is_eq($prem, "run diag\n", "run diag prem");
	$test->is_num(scalar (@results), 0, "run diag result count");
}

{
	my ($prem, @results) = run_tests(
		sub {
			$cap->ok(1, "multi pass");
			$cap->diag("multi pass diag1");
			$cap->diag("multi pass diag2");
			$cap->ok(0, "multi fail");
			$cap->diag("multi fail diag");
		}
	);

local $Test::Builder::Level = 0;

$test->is_eq($prem, "", "run multi no prem");
	$test->is_num(scalar (@results), 2, "run multi result count");

my $res_pass = $results[0];

$test->is_eq($res_pass->{name}, "multi pass", "run multi pass name");
	$test->is_eq($res_pass->{actual_ok}, 1, "run multi pass actual_ok");
	$test->is_eq($res_pass->{ok}, 1, "run multi pass ok");
	$test->is_eq($res_pass->{reason}, "", "run multi pass reason");
	$test->is_eq($res_pass->{type}, "", "run multi pass type");
	$test->is_eq($res_pass->{diag}, "multi pass diag1\nmulti pass diag2\n",
		"run multi pass diag");
	$test->is_num($res_pass->{depth}, 0, "run multi pass depth");

my $res_fail = $results[1];

$test->is_eq($res_fail->{name}, "multi fail", "run multi fail name");
	$test->is_eq($res_pass->{actual_ok}, 1, "run multi fail actual_ok");
	$test->is_eq($res_fail->{ok}, 0, "run multi fail ok");
	$test->is_eq($res_pass->{reason}, "", "run multi fail reason");
	$test->is_eq($res_pass->{type}, "", "run multi fail type");
	$test->is_eq($res_fail->{diag}, "multi fail diag\n", "run multi fail diag");
	$test->is_num($res_pass->{depth}, 0, "run multi fail depth");
}