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/diag.t (1424B)

#!perl -w
use strict;

use Test2::Util qw/CAN_THREAD/;

# Turn on threads here, if available, since this test tends to find
# lots of threading bugs.
BEGIN {
    if (CAN_THREAD) {
        require threads;
        threads->import;
    }
}

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

use Test::Builder::NoOutput;
use Test::More tests => 7;

my $test = Test::Builder::NoOutput->create;

# Test diag() goes to todo_output() in a todo test.
{
    $test->todo_start();

$test->diag("a single line");
    is( $test->read('todo'), <<'DIAG',   'diag() with todo_output set' );
# a single line
DIAG

my $ret = $test->diag("multiple\n", "lines");
    is( $test->read('todo'), <<'DIAG',   '  multi line' );
# multiple
# lines
DIAG
    ok( !$ret, 'diag returns false' );

$test->todo_end();
}

# Test diagnostic formatting
{
    $test->diag("# foo");
    is( $test->read('err'), "# # foo\n", "diag() adds # even if there's one already" );

$test->diag("foo\n\nbar");
    is( $test->read('err'), <<'DIAG', "  blank lines get escaped" );
# foo
# 
# bar
DIAG

$test->diag("foo\n\nbar\n\n");
    is( $test->read('err'), <<'DIAG', "  even at the end" );
# foo
# 
# bar
# 
DIAG
}

# [rt.cpan.org 8392] diag(@list) emulates print
{
    $test->diag(qw(one two));

is( $test->read('err'), <<'DIAG' );
# onetwo
DIAG
}

#!perl -w use strict; use Test2::Util qw/CAN_THREAD/; # Turn on threads here, if available, since this test tends to find # lots of threading bugs. BEGIN { if (CAN_THREAD) { require threads; threads->import; } } BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = ('../lib', 'lib'); } else { unshift @INC, 't/lib'; } } use Test::Builder::NoOutput; use Test::More tests => 7; my $test = Test::Builder::NoOutput->create; # Test diag() goes to todo_output() in a todo test. { $test->todo_start(); $test->diag("a single line"); is( $test->read('todo'), <<'DIAG', 'diag() with todo_output set' ); # a single line DIAG my $ret = $test->diag("multiple\n", "lines"); is( $test->read('todo'), <<'DIAG', ' multi line' ); # multiple # lines DIAG ok( !$ret, 'diag returns false' ); $test->todo_end(); } # Test diagnostic formatting { $test->diag("# foo"); is( $test->read('err'), "# # foo\n", "diag() adds # even if there's one already" ); $test->diag("foo\n\nbar"); is( $test->read('err'), <<'DIAG', " blank lines get escaped" ); # foo # # bar DIAG $test->diag("foo\n\nbar\n\n"); is( $test->read('err'), <<'DIAG', " even at the end" ); # foo # # bar # DIAG } # [rt.cpan.org 8392] diag(@list) emulates print { $test->diag(qw(one two)); is( $test->read('err'), <<'DIAG' ); # onetwo DIAG }