FM / behavior

/usr/share/doc/perl-Test-Simple/t/Test2/behavior/

/usr/share/doc/perl-Test-Simple/t/Test2/behavior

Name	Size	Mode	Actions
disable_ipc_a.t	203	0644	edit dl rm
disable_ipc_b.t	219	0644	edit dl rm
disable_ipc_c.t	256	0644	edit dl rm
disable_ipc_d.t	458	0644	edit dl rm
err_var.t	177	0644	edit dl rm
Formatter.t	1677	0644	edit dl rm
init_croak.t	589	0644	edit dl rm
intercept.t	1117	0644	edit dl rm
ipc_wait_timeout.t	2351	0644	edit dl rm
nested_context_exception.t	2139	0644	edit dl rm
no_load_api.t	1561	0644	edit dl rm
run_subtest_inherit.t	2264	0644	edit dl rm
special_names.t	1314	0644	edit dl rm
subtest_bailout.t	1182	0644	edit dl rm
Subtest_buffer_formatter.t	2680	0644	edit dl rm
Subtest_callback.t	906	0644	edit dl rm
Subtest_events.t	441	0644	edit dl rm
Subtest_plan.t	355	0644	edit dl rm
Subtest_todo.t	932	0644	edit dl rm
Taint.t	356	0644	edit dl rm
trace_signature.t	1507	0644	edit dl rm
uuid.t	3414	0644	edit dl rm

Edit: /usr/share/doc/perl-Test-Simple/t/Test2/behavior/special_names.t (1314B)

use strict;
use warnings;
# HARNESS-NO-FORMATTER

use Test2::Tools::Tiny;

#########################
#
# This test us here to insure that Ok renders the way we want
#
#########################

use Test2::API qw/test2_stack/;

# Ensure the top hub is generated
test2_stack->top;

my $temp_hub = test2_stack->new_hub();
require Test2::Formatter::TAP;
$temp_hub->format(Test2::Formatter::TAP->new);

my $ok = capture {
    ok(1);
    ok(1, "");
    ok(1, " ");
    ok(1, "A");
    ok(1, "\n");
    ok(1, "\nB");
    ok(1, "C\n");
    ok(1, "\nD\n");
    ok(1, "E\n\n");
};

my $not_ok = capture {
    ok(0);
    ok(0, "");
    ok(0, " ");
    ok(0, "A");
    ok(0, "\n");
    ok(0, "\nB");
    ok(0, "C\n");
    ok(0, "\nD\n");
    ok(0, "E\n\n");
};

test2_stack->pop($temp_hub);

is($ok->{STDERR}, "", "STDERR for ok is empty");
is($ok->{STDOUT}, <<EOT, "STDOUT looks right for ok");
ok 1
ok 2 -_
ok 3 - _
ok 4 - A
ok 5 -_
#     _
ok 6 -_
#      B
ok 7 - C
#     _
ok 8 -_
#      D
#     _
ok 9 - E
#     _
#     _
EOT

is($not_ok->{STDOUT}, <<EOT, "STDOUT looks right for not ok");
not ok 10
not ok 11 -_
not ok 12 - _
not ok 13 - A
not ok 14 -_
#          _
not ok 15 -_
#           B
not ok 16 - C
#          _
not ok 17 -_
#           D
#          _
not ok 18 - E
#          _
#          _
EOT

done_testing;

use strict; use warnings; # HARNESS-NO-FORMATTER use Test2::Tools::Tiny; ######################### # # This test us here to insure that Ok renders the way we want # ######################### use Test2::API qw/test2_stack/; # Ensure the top hub is generated test2_stack->top; my $temp_hub = test2_stack->new_hub(); require Test2::Formatter::TAP; $temp_hub->format(Test2::Formatter::TAP->new); my $ok = capture { ok(1); ok(1, ""); ok(1, " "); ok(1, "A"); ok(1, "\n"); ok(1, "\nB"); ok(1, "C\n"); ok(1, "\nD\n"); ok(1, "E\n\n"); }; my $not_ok = capture { ok(0); ok(0, ""); ok(0, " "); ok(0, "A"); ok(0, "\n"); ok(0, "\nB"); ok(0, "C\n"); ok(0, "\nD\n"); ok(0, "E\n\n"); }; test2_stack->pop($temp_hub); is($ok->{STDERR}, "", "STDERR for ok is empty"); is($ok->{STDOUT}, <{STDOUT}, <