perf.pl 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738
  1. # -------------------------------------------------------------------------------------------------------
  2. # Copyright (C) Microsoft. All rights reserved.
  3. # Licensed under the MIT license. See LICENSE.txt file in the project root for full license information.
  4. # -------------------------------------------------------------------------------------------------------
  5. #
  6. if(@ARGV == 0 || (@ARGV == 1 && $ARGV[0] =~ /[-\/]\?/))
  7. {
  8. print "Usage: perl perf.pl [options]\n\n";
  9. print "First generate baseline run for all the perf benchmarks using:\n";
  10. print "perl perf.pl -baseline -binary:<basepath>\\ch.exe\n\n";
  11. print "Then run the perf benchmarks with your changed binary:\n";
  12. print "perl perf.pl -binary:<pullrequestfilepath>\\ch.exe\n";
  13. print "Use perftest.pl for advanced options\n";
  14. exit(1);
  15. }
  16. else
  17. {
  18. #fail if unable to run any of the benchmarks
  19. if (system("perl perftest.pl -octane @ARGV"))
  20. {
  21. exit(1);
  22. }
  23. if (system("perl perftest.pl -kraken @ARGV"))
  24. {
  25. exit(1);
  26. }
  27. if (system("perl perftest.pl -sunspider @ARGV"))
  28. {
  29. exit(1);
  30. }
  31. if (system("perl perftest.pl -jetstream @ARGV"))
  32. {
  33. exit(1);
  34. }
  35. }