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

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

#!/usr/bin/perl -w

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

use Test::More tests => 15;

# Using Symbol because it's core and exports lots of stuff.
{
    package Foo::one;
    ::use_ok("Symbol");
    ::ok( defined &gensym,        'use_ok() no args exports defaults' );
}

{
    package Foo::two;
    ::use_ok("Symbol", qw(qualify));
    ::ok( !defined &gensym,       '  one arg, defaults overridden' );
    ::ok( defined &qualify,       '  right function exported' );
}

{
    package Foo::three;
    ::use_ok("Symbol", qw(gensym ungensym));
    ::ok( defined &gensym && defined &ungensym,   '  multiple args' );
}

{
    package Foo::four;
    my $warn; local $SIG{__WARN__} = sub { $warn .= shift; };
    ::use_ok("constant", qw(foo bar));
    ::ok( defined &foo, 'constant' );
    ::is( $warn, undef, 'no warning');
}

{
    package Foo::five;
    ::use_ok("Symbol", 1.02);
}

{
    package Foo::six;
    ::use_ok("NoExporter", 1.02);
}

{
    package Foo::seven;
    local $SIG{__WARN__} = sub {
        # Old perls will warn on X.YY_ZZ style versions.  Not our problem
        warn @_ unless $_[0] =~ /^Argument "\d+\.\d+_\d+" isn't numeric/;
    };
    ::use_ok("Test::More", 0.47);
}

{
    package Foo::eight;
    local $SIG{__DIE__};
    ::use_ok("SigDie");
    ::ok(defined $SIG{__DIE__}, '  SIG{__DIE__} preserved');
}

[-] 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]