__ __ __ __ _____ _ _ _____ _ _ _
| \/ | \ \ / / | __ \ (_) | | / ____| | | | |
| \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | |
| |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | |
| | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | |
|_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1
if you need WebShell for Seo everyday contact me on Telegram
Telegram Address : @jackleet
For_More_Tools:
#!/usr/bin/perl
use strict;
use Test::Builder::Tester tests => 4;
use Test::More 0.65;
use Test::Fatal;
my $file = __FILE__;
if (!eval { Test::Builder::Tester->VERSION(1.20) }) { # Test::More 0.96
my $builder = Test::Builder->new;
no warnings 'redefine';
*test_out = sub {
Test::Builder::Tester::test_out(@_);
$builder->todo_output($builder->output);
}
}
{
my $line = __LINE__ + 13;
my $out = <<FAIL;
not ok 1 - succeeded # TODO unimplemented
# Failed (TODO) test 'succeeded'
# at $file line $line.
# got: '0'
# expected: '1'
ok 2 - no exceptions # TODO unimplemented
FAIL
chomp($out);
test_out($out);
{
local $TODO = "unimplemented";
is(exception { is(0, 1, "succeeded") }, undef, "no exceptions");
}
test_test( "\$TODO works" );
}
{
my $line = __LINE__ + 13;
my $out = <<FAIL;
not ok 1 - succeeded # TODO unimplemented
# Failed (TODO) test 'succeeded'
# at $file line $line.
# got: '0'
# expected: '1'
ok 2 - no exceptions # TODO unimplemented
FAIL
chomp($out);
test_out($out);
{
local $TODO = "unimplemented";
stuff_is_ok(0, 1);
}
test_test( "\$TODO works" );
sub stuff_is_ok {
my ($got, $expected) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
is(
exception { is($got, $expected, "succeeded") },
undef,
"no exceptions"
);
}
}
{
my $line = __LINE__ + 13;
my $out = <<FAIL;
not ok 1 - succeeded # TODO unimplemented
# Failed (TODO) test 'succeeded'
# at $file line $line.
# got: '0'
# expected: '1'
ok 2 - no exceptions # TODO unimplemented
FAIL
chomp($out);
test_out($out);
{
local $TODO = "unimplemented";
stuff_is_ok2(0, 1);
}
test_test( "\$TODO works" );
sub stuff_is_ok2 {
my ($got, $expected) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
_stuff_is_ok2(@_);
}
sub _stuff_is_ok2 {
my ($got, $expected) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
is(
exception { is($got, $expected, "succeeded") },
undef,
"no exceptions"
);
}
}
{
my $line = __LINE__ + 14;
my $out = <<FAIL;
not ok 1 - succeeded # TODO unimplemented
# Failed (TODO) test 'succeeded'
# at $file line $line.
# got: '0'
# expected: '1'
ok 2 - no exceptions # TODO unimplemented
ok 3 - level 1 # TODO unimplemented
FAIL
chomp($out);
test_out($out);
{
local $TODO = "unimplemented";
multi_level_ok(0, 1);
}
test_test( "\$TODO works" );
sub multi_level_ok {
my ($got, $expected) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
is(
exception { _multi_level_ok($got, $expected) },
undef,
"level 1"
);
}
sub _multi_level_ok {
my ($got, $expected) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
is(
exception { is($got, $expected, "succeeded") },
undef,
"no exceptions"
);
}
}