One Hat Cyber Team
Your IP :
216.73.216.240
Server IP :
162.240.106.28
Server :
Linux server.ganesand.com 3.10.0-1160.80.1.el7.x86_64 #1 SMP Tue Nov 8 15:48:59 UTC 2022 x86_64
Server Software :
Apache
PHP Version :
7.1.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-Test-Simple-0.98
/
t
/
Edit File:
extra.t
#!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);
Simpan