c.t 557 B

123456789101112131415161718192021222324
  1. #! /usr/bin/env perl
  2. # better use testc.sh for debugging
  3. BEGIN {
  4. if ($ENV{PERL_CORE}){
  5. chdir('t') if -d 't';
  6. @INC = ('.', '../lib');
  7. } else {
  8. unshift @INC, 't';
  9. #push @INC, "blib/arch", "blib/lib";
  10. }
  11. require 'test.pl'; # for run_perl()
  12. }
  13. use strict;
  14. #my $DEBUGGING = ($Config{ccflags} =~ m/-DDEBUGGING/);
  15. #my $ITHREADS = ($Config{useithreads});
  16. prepare_c_tests();
  17. my @todo = todo_tests_default("c");
  18. my @skip = ();
  19. #push @skip, 29 if $] > 5.015; #hangs at while Perl_hfree_next_entry hv.c:1670
  20. run_c_tests("C", \@todo, \@skip);