ꦫꦣꦺꦤ꧀ꦄꦤ꧀ꦠꦱꦺꦤ

PATH: usr / share / doc / perl-Test-Simple-0.98 / t

#!perl -w

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

use Test::More tests => 17;

# If we skip with the same name, Test::Harness will report it back and
# we won't get lots of false bug reports.
my $Why = "Just testing the skip interface.";

SKIP: {
    skip $Why, 2 
      unless Pigs->can('fly');

my $pig = Pigs->new;
    $pig->takeoff;

ok( $pig->altitude > 0,         'Pig is airborne' );
    ok( $pig->airspeed > 0,         '  and moving'    );
}

SKIP: {
    skip "We're not skipping", 2 if 0;

pass("Inside skip block");
    pass("Another inside");
}

SKIP: {
    skip "Again, not skipping", 2 if 0;

my($pack, $file, $line) = caller;
    is( $pack || '', '',      'calling package not interfered with' );
    is( $file || '', '',      '  or file' );
    is( $line || '', '',      '  or line' );
}

SKIP: {
    skip $Why, 2 if 1;

die "A horrible death";
    fail("Deliberate failure");
    fail("And again");
}

{
    my $warning;
    local $SIG{__WARN__} = sub { $warning = join "", @_ };
    SKIP: {
        # perl gets the line number a little wrong on the first
        # statement inside a block.
        1 == 1;
#line 56
        skip $Why;
        fail("So very failed");
    }
    is( $warning, "skip() needs to know \$how_many tests are in the ".
                  "block at $0 line 56\n",
        'skip without $how_many warning' );
}

SKIP: {
    skip "Not skipping here.", 4 if 0;

pass("This is supposed to run");

# Testing out nested skips.
    SKIP: {
        skip $Why, 2;
        fail("AHHH!");
        fail("You're a failure");
    }

pass("This is supposed to run, too");
}

{
    my $warning = '';
    local $SIG{__WARN__} = sub { $warning .= join "", @_ };

SKIP: {
        skip 1, "This is backwards" if 1;

pass "This does not run";
    }

like $warning, qr/^skip was passed a non-numeric number of tests/;
}

[-] new_ok.t [edit]
[-] skipall.t [edit]
[-] no_tests.t [edit]
[-] 00compile.t [edit]
[+] Builder
[-] buffer.t [edit]
[-] is_deeply_with_threads.t [edit]
[-] missing.t [edit]
[+] Simple
[-] circular_data.t [edit]
[-] fork.t [edit]
[-] thread_taint.t [edit]
[+] lib
[-] extra.t [edit]
[-] plan.t [edit]
[-] fail_one.t [edit]
[+] ..
[-] is_deeply_fail.t [edit]
[-] bad_plan.t [edit]
[-] pod.t [edit]
[-] pod-coverage.t [edit]
[-] plan_shouldnt_import.t [edit]
[-] no_plan.t [edit]
[-] exit.t [edit]
[-] BEGIN_use_ok.t [edit]
[-] died.t [edit]
[-] undef.t [edit]
[-] plan_bad.t [edit]
[-] More.t [edit]
[+] Tester
[-] dependents.t [edit]
[-] require_ok.t [edit]
[-] cmp_ok.t [edit]
[-] plan_skip_all.t [edit]
[-] extra_one.t [edit]
[-] import.t [edit]
[-] overload.t [edit]
[-] note.t [edit]
[-] fail-like.t [edit]
[-] is_deeply_dne_bug.t [edit]
[-] bail_out.t [edit]
[-] versions.t [edit]
[+] subtest
[-] overload_threads.t [edit]
[-] useing.t [edit]
[-] explain.t [edit]
[-] eq_set.t [edit]
[-] harness_active.t [edit]
[-] fail-more.t [edit]
[-] BEGIN_require_ok.t [edit]
[-] utf8.t [edit]
[-] diag.t [edit]
[-] plan_is_noplan.t [edit]
[-] todo.t [edit]
[-] simple.t [edit]
[-] 00test_harness_check.t [edit]
[-] dont_overwrite_die_handler.t [edit]
[-] threads.t [edit]
[-] plan_no_plan.t [edit]
[-] fail.t [edit]
[-] c_flag.t [edit]
[-] skip.t [edit]
[-] tbm_doesnt_set_exported_to.t [edit]
[-] filehandles.t [edit]
[-] use_ok.t [edit]