| Server IP : 188.40.95.74 / Your IP : 216.73.216.205 Web Server : Apache System : Linux cp01.striminghost.net 3.10.0-1160.119.1.el7.tuxcare.els13.x86_64 #1 SMP Fri Nov 22 06:29:45 UTC 2024 x86_64 User : vlasotin ( 1054) PHP Version : 5.6.40 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/perl-Test-Simple-0.98/t/ |
Upload File : |
#!perl -w
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = '../lib';
}
else {
unshift @INC, 't/lib';
}
}
use strict;
use Test::Builder;
use Test::Builder::NoOutput;
use Test::Simple;
my $TB = Test::Builder->new;
my $test = Test::Builder::NoOutput->create;
$test->plan( tests => 3 );
local $ENV{HARNESS_ACTIVE} = 0;
$test->ok(1, 'Foo');
$TB->is_eq($test->read(), <<END);
1..3
ok 1 - Foo
END
#line 30
$test->ok(0, 'Bar');
$TB->is_eq($test->read(), <<END);
not ok 2 - Bar
# Failed test 'Bar'
# at $0 line 30.
END
$test->ok(1, 'Yar');
$test->ok(1, 'Car');
$TB->is_eq($test->read(), <<END);
ok 3 - Yar
ok 4 - Car
END
#line 45
$test->ok(0, 'Sar');
$TB->is_eq($test->read(), <<END);
not ok 5 - Sar
# Failed test 'Sar'
# at $0 line 45.
END
$test->_ending();
$TB->is_eq($test->read(), <<END);
# Looks like you planned 3 tests but ran 5.
# Looks like you failed 2 tests of 5 run.
END
$TB->done_testing(5);