perl-compiler/t/c_o4.t

#! /usr/bin/env perl
# better use testc.sh -O4 for debugging
BEGIN {
  unless (-d ".svn" or -d '.git') {
    print "1..0 #SKIP Only if -d .svn|.git\n";
    exit;
  }
  if ($ENV{PERL_CORE}){
    chdir('t') if -d 't';
    @INC = ('.', '../lib');
  } else {
    unshift @INC, 't';
  }
  require 'test.pl'; # for run_perl()
}
use strict;
my $DEBUGGING = ($Config{ccflags} =~ m/-DDEBUGGING/);
my $ITHREADS  = ($Config{useithreads});

prepare_c_tests();

my @todo  = todo_tests_default("c_o4");
my @skip = (#15, # DynaLoader::dl_load_file()
	    #27, # DynaLoader::dl_load_file()
	    $DEBUGGING ? () : 29, # issue 78 if not DEBUGGING > 5.15
	   );

run_c_tests("C,-O4", \@todo, \@skip);