?????????? ????????? - ??????????????? - /home/agenciai/public_html/cd38d8/Legacy_And_Test2.zip
???????
PK d�'\p�el3 3 hidden_warnings.tnu �[��� use strict; use warnings; use Test2::Tools::Tiny; use Test2::API qw( context_do ); $SIG{__WARN__} = sub { context_do { shift->throw("oops\n"); } $_[0]; }; my $array_var = []; eval { warn "trigger warning" }; my $err = $@; like( $err, qr/oops/, "Got expected error" ); done_testing(); PK d�'\I�� � thread_init_warning.tnu �[��� use strict; use warnings; use Test2::Util qw/CAN_THREAD/; BEGIN { unless(CAN_THREAD) { require Test::More; Test::More->import(skip_all => "threads are not supported"); } } use threads; my @warns; { local $SIG{__WARN__} = sub { push @warns => @_ }; require Test::More; } Test::More::is_deeply(\@warns, [], "No init warning"); Test::More::done_testing(); PK d�'\�`S� � preload_diag_note.tnu �[��� use strict; use warnings; if ($] lt "5.008") { print "1..0 # SKIP Test cannot run on perls below 5.8.0\n"; exit 0; } BEGIN { require Test2::API; Test2::API::test2_start_preload(); } use Test::More; my ($stdout, $stderr) = ('', ''); { local *STDOUT; open(STDOUT, '>', \$stdout) or die "Could not open temp STDOUT"; local *STDERR; open(STDERR, '>', \$stderr) or die "Could not open temp STDOUT"; diag("test\n", "diag\nfoo"); note("test\n", "note\nbar"); } Test2::API::test2_stop_preload(); is($stdout, <<EOT, "Got stdout"); # test # note # bar EOT is($stderr, <<EOT, "Got stderr"); # test # diag # foo EOT done_testing; PK d�'\.١�� � diag_event_on_ok.tnu �[��� use strict; use warnings; use Test2::Tools::Tiny; use Test2::API qw/intercept/; use Test::More (); my $events = intercept { Test::More::ok(0, 'name'); }; my ($ok, $diag) = @$events; ok($ok->isa('Test2::Event::Ok'), "got 'ok' result"); is($ok->pass, 0, "'ok' test failed"); is($ok->name, 'name', "got 'ok' name"); ok($diag->isa('Test2::Event::Diag'), "got 'ok' result"); is($diag->message, " Failed test 'name'\n at $0 line 9.\n", "got all diag message in one diag event"); done_testing; PK d�'\I}��< < builder_loaded_late.tnu �[��� use strict; use warnings; # HARNESS-NO-PRELOAD use Test2::Tools::Tiny; use Test2::API qw/intercept test2_stack/; plan 3; my @warnings; { local $SIG{__WARN__} = sub { push @warnings => @_ }; require Test::Builder; }; is(@warnings, 2, "got warnings"); like( $warnings[0], qr/Test::Builder was loaded after Test2 initialization, this is not recommended/, "Warn about late Test::Builder load" ); like( $warnings[1], qr/Formatter Test::Builder::Formatter loaded too late to be used as the global formatter/, "Got the formatter warning" ); PK d�'\p�el3 3 hidden_warnings.tnu �[��� PK d�'\I�� � t thread_init_warning.tnu �[��� PK d�'\�`S� � ? preload_diag_note.tnu �[��� PK d�'\.١�� � diag_event_on_ok.tnu �[��� PK d�'\I}��< < S builder_loaded_late.tnu �[��� PK � �
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????