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

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

#!/usr/bin/perl -w
# HARNESS-NO-STREAM
# HARNESS-NO-PRELOAD

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

use strict;
use warnings;

my $have_perlio;
BEGIN {
    # All together so Test::More sees the open discipline
    $have_perlio = eval q[
        require PerlIO;
        PerlIO->VERSION(1.02); # required for PerlIO::get_layers
        binmode *STDOUT, ":encoding(utf8)";
        binmode *STDERR, ":encoding(utf8)";
        require Test::More;
        1;
    ];
}

use Test::More;
unless (Test::Builder->new->{Stack}->top->format->isa('Test::Builder::Formatter')) {
    plan skip_all => 'Test cannot be run using this formatter';
}

if( !$have_perlio ) {
    plan skip_all => "Don't have PerlIO 1.02";
}
else {
    plan tests => 5;
}

SKIP: {
    skip( "Need PerlIO for this feature", 3 )
        unless $have_perlio;

my %handles = (
        output          => \*STDOUT,
        failure_output  => \*STDERR,
        todo_output     => \*STDOUT
    );

for my $method (keys %handles) {
        my $src = $handles{$method};

my $dest = Test::More->builder->$method;

is_deeply { map { $_ => 1 } PerlIO::get_layers($dest) },
                  { map { $_ => 1 } PerlIO::get_layers($src)  },
                  "layers copied to $method";
    }
}

# Test utf8 is ok.
{
    my $uni = "\x{11e}";

my @warnings;
    local $SIG{__WARN__} = sub {
        push @warnings, @_;
    };

is( $uni, $uni, "Testing $uni" );
    is_deeply( \@warnings, [] );
}

[-] fail-more.t [edit]
[-] overload.t [edit]
[-] auto.t [edit]
[-] exit.t [edit]
[-] dont_overwrite_die_handler.t [edit]
[-] plan_shouldnt_import.t [edit]
[-] import.t [edit]
[-] fork.t [edit]
[-] BEGIN_require_ok.t [edit]
[-] depth.t [edit]
[-] tbm_doesnt_set_exported_to.t [edit]
[-] strays.t [edit]
[-] use_ok.t [edit]
[-] is_deeply_with_threads.t [edit]
[-] utf8.t [edit]
[-] undef.t [edit]
[+] Test2
[-] died.t [edit]
[-] plan_bad.t [edit]
[-] thread_taint.t [edit]
[-] bail_out.t [edit]
[-] harness_active.t [edit]
[-] plan_is_noplan.t [edit]
[-] skip.t [edit]
[-] threads.t [edit]
[-] fail-like.t [edit]
[-] fail_one.t [edit]
[-] simple.t [edit]
[-] explain_err_vars.t [edit]
[-] no_log_results.t [edit]
[-] skipall.t [edit]
[-] is_deeply_dne_bug.t [edit]
[-] More.t [edit]
[-] buffer.t [edit]
[-] versions.t [edit]
[-] missing.t [edit]
[-] c_flag.t [edit]
[-] capture.t [edit]
[-] circular_data.t [edit]
[-] note.t [edit]
[-] explain.t [edit]
[-] no_tests.t [edit]
[-] extra.t [edit]
[-] 00test_harness_check.t [edit]
[+] Regression
[-] filehandles.t [edit]
[-] todo.t [edit]
[-] fail.t [edit]
[-] 478-cmp_ok_hash.t [edit]
[+] Tester
[-] 01-basic.t [edit]
[+] Simple
[-] run_test.t [edit]
[-] require_ok.t [edit]
[-] new_ok.t [edit]
[-] cmp_ok.t [edit]
[-] overload_threads.t [edit]
[-] diag.t [edit]
[-] useing.t [edit]
[+] subtest
[-] plan.t [edit]
[-] plan_skip_all.t [edit]
[+] Bugs
[-] extra_one.t [edit]
[-] bad_plan.t [edit]
[-] BEGIN_use_ok.t [edit]
[-] no_plan.t [edit]
[-] is_deeply_fail.t [edit]
[+] ..
[-] plan_no_plan.t [edit]
[-] check_tests.t [edit]
[+] Builder
[-] eq_set.t [edit]