view release on metacpan or  search on metacpan

t/helper.pm  view on Meta::CPAN

sub an_autotest_that_just_checks_once_for_changed_or_new_files {
    my $autotest = an_autotest();
    $autotest->after_change_or_new_hook(
        AN_AFTER_CHANGE_OR_NEW_HOOK_THAT_EXISTS_IMMEDIATELY);
    return $autotest;
}

sub a_harness { return TAP::Harness->new }

sub a_harness_not_running_the_tests {
  my $harness=a_harness();
  $harness->expects('runtests');
  return $harness;
}

sub a_tap_parser_aggregator { TAP::Parser::Aggregator->new };

1;

t/unit/autotest.t  view on Meta::CPAN

    it 'pm_to_t many hit' => sub {

        my $guard = mock_guard( 'App::autotest', { all_test_programs => sub { ['t/abcd.t', 't/ab_cd.t', 't/abcd_ef_gh.t', 't/aaa.t'] } } );

        eq_or_diff $autotest->pm_to_t(['lib/abCd/efgh.pm', 'lib/aaa/test.pm']), ['t/ab_cd.t', 't/aaa.t'];
    };
  };

  # it 'should run tests upon change or creation' => sub {
  #   my $autotest = an_autotest_that_just_checks_once_for_changed_or_new_files();
  #   $autotest->harness( a_harness_not_running_the_tests() );

  #   $autotest->expects('changed_and_new_files')->returns(SOME_TEST_PROGRAMS);
  #   ok $autotest->run_tests_upon_change_or_creation;
  # };
};

sub an_autotest { App::autotest->new(@_) }

sub an_autotest_that_just_checks_once_for_changed_or_new_files {
    my $autotest = an_autotest();