cc_o1.t 694 B

1234567891011121314151617181920212223242526
  1. #! /usr/bin/env perl
  2. # better use testcc.sh -O1 for debugging
  3. BEGIN {
  4. unless (-d ".svn" or -d '.git') {
  5. print "1..0 #SKIP Only if -d .svn|.git\n";
  6. exit;
  7. }
  8. if ($ENV{PERL_CORE}){
  9. chdir('t') if -d 't';
  10. @INC = ('.', '../lib');
  11. } else {
  12. unshift @INC, 't';
  13. }
  14. require 'test.pl'; # for run_perl()
  15. }
  16. use strict;
  17. my $DEBUGGING = ($Config{ccflags} =~ m/-DDEBUGGING/);
  18. my $ITHREADS = ($Config{useithreads});
  19. my @todo = todo_tests_default("cc_o1");
  20. # skip core dump causing known limitations, like custom sort or runtime labels
  21. my @skip = (14,21,24,31,46);
  22. push @skip, 103 if $] == 5.010000 and $ITHREADS and !$DEBUGGING; # hanging
  23. run_c_tests("CC,-O1", \@todo, \@skip);