Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 28 lines (24 sloc) 0.656 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
#! /usr/bin/env perl
# better use testc.sh -O1 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_o1");
my @skip = ();
push @skip, 15 if $] == 5.010000 and $ITHREADS and !$DEBUGGING; # hanging;
#push @skip, 29 if $] > 5.015; #hangs

run_c_tests("C,-O1", \@todo, \@skip);
Something went wrong with that request. Please try again.