| /openbsd/src/gnu/usr.bin/perl/cpan/Time-Local/t/ |
| D | Local.t | 42 subtest( 'valid times', \&_test_valid_times ); 43 subtest( 'diff between two calls', \&_test_diff_between_two_calls ); 44 subtest( 48 subtest( 'Time::Local::_is_leap_year', \&_test_is_leap_year ); 49 subtest( 'negative epochs', \&_test_negative_epochs ); 50 subtest( 'large epoch values', \&_test_large_epoch_values ); 51 subtest( '2-digit years', \&_test_2_digit_years ); 52 subtest( 'invalid values', \&_test_invalid_values ); 53 subtest( 'non-integer seconds', \&_test_non_integer_seconds ); 94 subtest( [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Math-BigInt/t/ |
| D | downgrade-mbi-mbf.t | 18 subtest 'Math::BigFloat->new("0.2E0")' => sub { 25 subtest 'Math::BigFloat->new("0.2E1")' => sub { 32 subtest 'Math::BigFloat->new("0.2E2")' => sub { 45 subtest '$x = Math::BigFloat -> new(2);' => sub { 52 subtest '$y = Math::BigFloat -> bpow("2", "0.5");' => sub { 59 subtest '$z = $x -> bsqrt();' => sub { 68 subtest '$x = Math::BigFloat -> new(16); $y = $x -> blog(2);' => sub { 80 subtest '$x = Math::BigFloat -> new(2); $y = $x -> blog(16);' => sub { 98 subtest '$x = Math::BigFloat -> new("0.5")' => sub { 105 subtest '$x = Math::BigFloat -> new("4")' => sub { [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/behavior/ |
| D | uuid.t | 27 *subtest = \&Test::More::subtest; 30 subtest(foo => sub { 52 is($events->[3]->uuid, 'event-6', "subtest event gets correct uuid (not next)"); 53 is($events->[3]->subtest_uuid, 'hub-3', "subtest event gets correct subtest-uuid (next hub uuid)"); 54 is($events->[3]->trace->uuid, 'context-4', "subtest gets next sequential context"); 55 is($events->[3]->trace->huuid, 'hub-2', "subtest event has correct hub"); 59 …->subevents->[0]->trace->huuid, 'hub-3', "First subevent has correct hub uuid (subtest hub uuid)"); 62 …[1]->trace->uuid, $events->[3]->trace->uuid, "Second subevent has same context as subtest itself"); 63 …>subevents->[1]->trace->huuid, 'hub-3', "Second subevent has correct hub uuid (subtest hub uuid)"); 65 is($events->[5]->uuid, 'event-10', "subtest event gets correct uuid (not next)"); [all …]
|
| D | run_subtest_inherit.t | 8 # Test a subtest that should inherit the trace from the tool that calls it 14 ok($e->isa('Test2::Event::Subtest'), "got a subtest event"); 15 is($e->trace->file, $file, "subtest is at correct file"); 16 is($e->trace->line, $line, "subtest is at correct line"); 20 is($se->trace->file, $file, "subtest event is at correct file"); 21 is($se->trace->line, $line, "subtest event is at correct line"); 22 ok($se->facets->{assert}->pass, "subtest event passed"); 28 # Test a subtest that should NOT inherit the trace from the tool that calls it 34 ok($e->isa('Test2::Event::Subtest'), "got a subtest event"); 35 is($e->trace->file, $file, "subtest is at correct file"); [all …]
|
| D | intercept.t | 28 my $subtest = sub { ok(1, "pass") }; 30 my $buffered_shallow = intercept { buffered 'buffered shallow' => $subtest }; 31 my $streamed_shallow = intercept { streamed 'streamed shallow' => $subtest }; 32 my $buffered_deep = intercept_deep { buffered 'buffered shallow' => $subtest }; 33 my $streamed_deep = intercept_deep { streamed 'streamed shallow' => $subtest }; 35 is(@$buffered_shallow, 1, "Just got the subtest event"); 36 is(@$streamed_shallow, 2, "Got note, and subtest events"); 37 is(@$buffered_deep, 3, "Got ok, plan, and subtest events"); 38 is(@$streamed_deep, 4, "Got note, ok, plan, and subtest events");
|
| D | Subtest_callback.t | 15 'pre-subtest callbacks should be invoked before the subtest', 23 (my $subtest_name='some subtest'), 28 'subtest should be run after the pre-subtest callbacks', 39 'pre-subtest callbacks should be invoked with the expected arguments', 45 'the subtest should be run',
|
| D | subtest_bailout.t | 7 sub subtest { 22 subtest outer => sub { 23 subtest inner => sub { 29 …ents->[0]->isa('Test2::Event::Subtest'), "Got a subtest event when bail-out issued in a buffered s… 33 ok($events->[0]->subevents->[-2]->isa('Test2::Event::Bail'), "Got bail out inside outer subtest"); 36 …->subevents->[0]->subevents->[-2]->isa('Test2::Event::Bail'), "Got bail out inside inner subtest");
|
| D | Subtest_todo.t | 20 ok($events->[1], 'Test2::Event::Subtest', 'subtest ran'); 21 ok($events->[1]->effective_pass, 'Test2::Event::Subtest', 'subtest effective_pass is true'); 22 ok($events->[1]->todo, 'testing todo', 'subtest todo is set to expected value'); 26 is(scalar @$subevents, 3, 'got subevents in the subtest');
|
| D | Subtest_events.t | 13 ok(!$events->[0]->trace->nested, "main event is not inside a subtest"); 14 ok($events->[0]->subtest_id, "Got subtest id"); 15 …ts->[0]->subevents->[0]->trace->hid, $events->[0]->subtest_id, "nested events are in the subtest");
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/regression/ |
| D | 721-nested-streamed-subtest.t | 43 Test::More::subtest( 47 like($output->{STDOUT}, qr/ +ok 1 - b1/, 'got ok output for tests in buffered subtest'); 48 like($output->{STDOUT}, qr/ +ok 2 - b2/, 'got ok output for tests in buffered subtest'); 49 like($output->{STDOUT}, qr/ +ok 1 - s1/, 'got ok output for tests in streamed subtest'); 50 like($output->{STDOUT}, qr/ +ok 2 - s2/, 'got ok output for tests in streamed subtest'); 72 Test::More::subtest( 87 Test::More::subtest( 88 'Test::More::subtest and Test2::API::run_subtest', 91 like($output->{STDOUT}, qr/ +ok 1 - b1/, 'got ok output for tests in buffered subtest'); 92 like($output->{STDOUT}, qr/ +ok 2 - b2/, 'got ok output for tests in buffered subtest'); [all …]
|
| D | 757-reset_in_subtest.t | 6 subtest 'subtest' => sub { 11 subtest 'subtest' => sub { 13 subtest 'subtest' => sub {
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/Test2/ |
| D | Subtest.t | 8 subtest foo => sub { 16 is($res->[0]->message, 'Subtest: foo', "got subtest note"); 19 ok($res->[1]->pass, "subtest passed"); 25 is($subs->[0]->pass, 1, "subtest ok passed"); 26 is($subs->[0]->name, 'check', "subtest ok name"); 29 is($subs->[1]->max, 1, "subtest plan is 1");
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/subtest/ |
| D | plan.t | 24 ok defined &subtest, 'subtest() should be exported to our namespace'; 27 subtest 'subtest with plan', sub { 32 subtest 'subtest without plan', sub { 38 subtest 'subtest with implicit done_testing()', sub { 43 subtest 'subtest with explicit done_testing()', sub {
|
| D | implicit_done.t | 10 subtest 'basic' => sub { 14 subtest 'with done' => sub { 19 subtest 'with plan' => sub { 24 subtest 'skipping' => sub {
|
| D | line_numbers.t | 40 subtest namehere => sub { 62 subtest namehere => sub { 73 subtest namehere => sub { 105 subtest namehere => sub { 124 subtest namehere => sub {
|
| D | args.t | 19 $tb->ok( !eval { $tb->subtest() } ); 22 $tb->ok( !eval { $tb->subtest("foo") } ); 26 $tb->subtest('Arg passing', sub {
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Module-Load/t/ |
| D | 02_Module-Load.t | 58 subtest 'load/prevcompat' => sub{ 101 subtest 'autoload' => sub{ 154 subtest 'noimport' => sub{ 179 subtest 'load_remote' => sub{ 213 subtest 'autoload_remote' => sub{ 242 subtest 'complex' => sub{ 305 subtest 'dumpxs' => sub{
|
| /openbsd/src/gnu/usr.bin/perl/cpan/CPAN-Meta-YAML/t/lib/ |
| D | TestBridge.pm | 63 subtest "$label: $file" => sub { 135 subtest $label, sub { 194 subtest $label, sub { 225 subtest $label, sub { 251 subtest $label, sub { 277 subtest $label, sub { 311 subtest "$label", sub { 351 subtest "$label - Unicode map key/value test" => sub {
|
| /openbsd/src/gnu/usr.bin/perl/cpan/bignum/t/ |
| D | option_l-bigint.t | 23 subtest qq|eval { bigint->import("l" => "foo") }| => sub { 32 subtest qq|eval { bigint->import("lib" => "foo") }| => sub { 41 subtest qq|eval { bigint->import("try" => "foo") }| => sub { 50 subtest qq|eval { bigint->import("only" => "foo") }| => sub { 59 subtest qq|eval { bigint->import("foo" => "bar") }| => sub {
|
| D | option_l-bigfloat.t | 23 subtest qq|eval { bigfloat->import("l" => "foo") }| => sub { 32 subtest qq|eval { bigfloat->import("lib" => "foo") }| => sub { 41 subtest qq|eval { bigfloat->import("try" => "foo") }| => sub { 50 subtest qq|eval { bigfloat->import("only" => "foo") }| => sub { 59 subtest qq|eval { bigfloat->import("foo" => "bar") }| => sub {
|
| D | option_l-bigrat.t | 23 subtest qq|eval { bigrat->import("l" => "foo") }| => sub { 32 subtest qq|eval { bigrat->import("lib" => "foo") }| => sub { 41 subtest qq|eval { bigrat->import("try" => "foo") }| => sub { 50 subtest qq|eval { bigrat->import("only" => "foo") }| => sub { 59 subtest qq|eval { bigrat->import("foo" => "bar") }| => sub {
|
| D | option_l-bignum.t | 23 subtest qq|eval { bignum->import("l" => "foo") }| => sub { 32 subtest qq|eval { bignum->import("lib" => "foo") }| => sub { 41 subtest qq|eval { bignum->import("try" => "foo") }| => sub { 50 subtest qq|eval { bignum->import("only" => "foo") }| => sub { 59 subtest qq|eval { bignum->import("foo" => "bar") }| => sub {
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/regression/ |
| D | 746-forking-subtest.t | 13 Test2::API::run_subtest("this subtest forks" => sub { 21 die "# Expected warning from subtest"; 28 if (is(@subtests, 1, "only one subtest run, effectively")) { 31 is(@subokay, 1, "we got one test result inside the subtest");
|
| /openbsd/src/gnu/usr.bin/perl/cpan/CPAN-Meta-YAML/t/ |
| D | 11_read_string.t | 17 subtest 'read_string without arg' => sub { 24 subtest 'YAML without newline' => sub { 30 subtest 'read_string as object method' => sub { 39 subtest 'invalid UTF-8' => sub {
|
| /openbsd/src/gnu/usr.bin/perl/cpan/OpenBSD-MkTemp/t/ |
| D | OpenBSD-MkTemp.t | 67 subtest "mkstemp in scalar context" => sub { 73 subtest "mkstemps in scalar context" => sub { 85 subtest "mkdtemp failed on bad prefix" => sub { 94 subtest "mkdtemp failed on no access" => sub { 103 subtest "mkstemp failed on bad prefix" => sub { 113 subtest "mkstemp failed on no access" => sub {
|