File Manager

X7ROOT File Manager

Current Path: /usr/share/doc/perl-Test-Simple-0.98/t

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

📁 ..
📄 00compile.t(982 B)
📄 00test_harness_check.t(764 B)
📄 BEGIN_require_ok.t(463 B)
📄 BEGIN_use_ok.t(388 B)
📁 Builder
📄 More.t(5.1 KB)
📁 Simple
📁 Tester
📄 bad_plan.t(495 B)
📄 bail_out.t(660 B)
📄 buffer.t(424 B)
📄 c_flag.t(417 B)
📄 circular_data.t(1.17 KB)
📄 cmp_ok.t(1.54 KB)
📄 dependents.t(939 B)
📄 diag.t(1.4 KB)
📄 died.t(848 B)
📄 dont_overwrite_die_handler.t(353 B)
📄 eq_set.t(562 B)
📄 exit.t(2.98 KB)
📄 explain.t(582 B)
📄 extra.t(958 B)
📄 extra_one.t(869 B)
📄 fail-like.t(1.52 KB)
📄 fail-more.t(10.37 KB)
📄 fail.t(1.04 KB)
📄 fail_one.t(697 B)
📄 filehandles.t(290 B)
📄 fork.t(574 B)
📄 harness_active.t(1.35 KB)
📄 import.t(244 B)
📄 is_deeply_dne_bug.t(887 B)
📄 is_deeply_fail.t(11.25 KB)
📄 is_deeply_with_threads.t(1.4 KB)
📁 lib
📄 missing.t(1.03 KB)
📄 new_ok.t(705 B)
📄 no_plan.t(664 B)
📄 no_tests.t(782 B)
📄 note.t(416 B)
📄 overload.t(2.13 KB)
📄 overload_threads.t(1.04 KB)
📄 plan.t(474 B)
📄 plan_bad.t(1.05 KB)
📄 plan_is_noplan.t(404 B)
📄 plan_no_plan.t(794 B)
📄 plan_shouldnt_import.t(294 B)
📄 plan_skip_all.t(190 B)
📄 pod-coverage.t(793 B)
📄 pod.t(149 B)
📄 require_ok.t(786 B)
📄 simple.t(200 B)
📄 skip.t(1.9 KB)
📄 skipall.t(481 B)
📁 subtest
📄 tbm_doesnt_set_exported_to.t(457 B)
📄 thread_taint.t(122 B)
📄 threads.t(629 B)
📄 todo.t(3.28 KB)
📄 undef.t(1.84 KB)
📄 use_ok.t(1.42 KB)
📄 useing.t(365 B)
📄 utf8.t(1.25 KB)
📄 versions.t(482 B)

Editing: cmp_ok.t

#!/usr/bin/perl -w

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

use strict;

require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();
local $ENV{HARNESS_ACTIVE} = 0;

require Test::Builder;
my $TB = Test::Builder->create;
$TB->level(0);

sub try_cmp_ok {
    my($left, $cmp, $right) = @_;
    
    my %expect;
    $expect{ok}    = eval "\$left $cmp \$right";
    $expect{error} = $@;
    $expect{error} =~ s/ at .*\n?//;

local $Test::Builder::Level = $Test::Builder::Level + 1;
    my $ok = cmp_ok($left, $cmp, $right, "cmp_ok");
    $TB->is_num(!!$ok, !!$expect{ok}, "  right return");
    
    my $diag = $err->read;
    if( !$ok and $expect{error} ) {
        $diag =~ s/^# //mg;
        $TB->like( $diag, qr/\Q$expect{error}\E/, "  expected error" );
    }
    elsif( $ok ) {
        $TB->is_eq( $diag, '', "  passed without diagnostic" );
    }
    else {
        $TB->ok(1, "  failed without diagnostic");
    }
}

use Test::More;
Test::More->builder->no_ending(1);

require MyOverload;
my $cmp = Overloaded::Compare->new("foo", 42);
my $ify = Overloaded::Ify->new("bar", 23);

my @Tests = (
    [1, '==', 1],
    [1, '==', 2],
    ["a", "eq", "b"],
    ["a", "eq", "a"],
    [1, "+", 1],
    [1, "-", 1],

[$cmp, '==', 42],
    [$cmp, 'eq', "foo"],
    [$ify, 'eq', "bar"],
    [$ify, "==", 23],
);

plan tests => scalar @Tests;
$TB->plan(tests => @Tests * 2);

for my $test (@Tests) {
    try_cmp_ok(@$test);
}

X7ROOT File Manager

Editing: cmp_ok.t

Upload File

Create Folder