12345678910111213141516171819202122232425262728 |
- #! /usr/bin/env perl
- # better use testc.sh -O3 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_o3");
- my @skip = (
- $DEBUGGING ? () : 29, # issue 78 if not DEBUGGING > 5.15
- );
- run_c_tests("C,-O3", \@todo, \@skip);
|