Lines Matching refs:test_case

693 foreach my $test_case (@modules) {
696   note $test_case->{name};
697   my $code = $test_case->{code};
698   my $expected_version = $test_case->{vers};
724       local $TODO = !defined($got) && ($test_case->{TODO_code_sub} || $test_case->{TODO_scalar}) ? 1 : undef;
729       local $TODO = $test_case->{TODO_code_sub};
732         "case '$test_case->{name}': module version passes match sub"
737       local $TODO = $test_case->{TODO_scalar};
741         "case '$test_case->{name}': correct module version ("
748     if (exists $test_case->{all_versions}) {
749       local $TODO = $test_case->{TODO_all_versions};
752           $test_case->{all_versions}->($pm_info->{versions}),
753           "case '$test_case->{name}': all extracted versions passes match sub"
759           $test_case->{all_versions},
765     is( $warnings, '', "case '$test_case->{name}': no warnings from parsing" ) or $errs++;