cc.t 967 B

123456789101112131415161718192021222324252627282930
  1. #! /usr/bin/env perl
  2. # better use testcc.sh for debugging
  3. BEGIN {
  4. if ($ENV{PERL_CORE}) {
  5. unshift @INC, ('t', '../../lib');
  6. } else {
  7. unshift @INC, 't', "blib/arch", "blib/lib";
  8. }
  9. require TestBC; # for run_perl()
  10. }
  11. use strict;
  12. my $DEBUGGING = ($Config{ccflags} =~ m/-DDEBUGGING/);
  13. #my $ITHREADS = ($Config{useithreads});
  14. $ENV{SKIP_SLOW_TESTS} = 1 if $Config{ccflags} =~ /-flto|-fsanitize/;
  15. $ENV{SKIP_SLOW_TESTS} = 1 if is_CI() && $^O eq 'cygwin';
  16. prepare_c_tests();
  17. my @todo = todo_tests_default("cc");
  18. # skip core dumps and endless loops, like custom sort or runtime labels
  19. my @skip = (14,21,30,
  20. 46, # unsupported: HvKEYS(%Exporter::) is 0 unless Heavy is included also
  21. 103, # hangs with non-DEBUGGING (importing B)
  22. ((!$DEBUGGING and $] > 5.010) ? (105) : ()),
  23. );
  24. push @skip, (38) if $^O eq 'cygwin'; #hangs
  25. run_c_tests("CC", \@todo, \@skip);
  26. #run_cc_test(105, 'CC', 'my $s=q{ok};END{print $s}END{$x = 0}', 'ok');