view release on metacpan or  search on metacpan

t/speed.pl  view on Meta::CPAN

    # Three tests in Run_Script
    Run_Script($test_script_name, $expected_stdout, '', '<SKIP>', "$message (second run)");
    $total_tests += 3;
  
    $t->stop('second run');
  }

  my $t2 = $t->result('second run');

  #  Do a cursory check to see that it was at least a little
  #  faster with the cached file, only if $t2 != 0;
  SKIP: {
    skip "Both runs were too fast to compare", 1 if $t2 == 0 && $t1 == 0;

    ok($t2 == 0 || $t1/$t2 >= 1.5, "$message: Caching run was faster -- $t2 versus $t1");
    $total_tests += 1;
  }

  return $total_tests;
}