Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

adjust TODOs: 274, 59

  • Loading branch information...
commit abd07d5745d902c1e0fecfafbab5f4fd9800e1f4 1 parent 6dc6904
@rurban authored
Showing with 6 additions and 5 deletions.
  1. +1 −0  t/issue274.t
  2. +5 −5 t/issue59.t
View
1  t/issue274.t
@@ -10,6 +10,7 @@ BEGIN {
use Test::More tests => 1;
use B::C ();
my $todo = ($B::C::VERSION ge '1.43_06') ? "" : "TODO ";
+$todo = "TODO <5.10 " if $] < 5.010;
ctest(1,"1..5\nok 1\nok 2\nok 3\nok 4\nok 5", 'C,-O3','ccode274i',<<'EOF',$todo.'multiple match once #274');
package Foo;
View
10 t/issue59.t
@@ -36,11 +36,11 @@ plctestok(1, $name, $script, $cmt);
SKIP: {
skip "eats memory on 5.6", 2 if $] <= 5.008001;
- skip "fails 5.14 threaded", 2
- if $] > 5.014 and $] < 5.015 and $Config{'useithreads'} and (!-d ".git" or $ENV{NO_AUTHOR});
- $cmt = "TODO 5.14thr" if $] > 5.014 and $] < 5.015 and $Config{'useithreads'};
- $cmt = "TODO 5.6.2" if $] < 5.007;
- $cmt = "TODO >=5.16" if $] >= 5.016;
+ #skip "fails 5.14 threaded", 2
+ # if $] > 5.014 and $] < 5.015 and $Config{'useithreads'} and (!-d ".git" or $ENV{NO_AUTHOR});
+ #$cmt = "TODO 5.14thr" if $] > 5.014 and $] < 5.015 and $Config{'useithreads'};
+ #$cmt = "TODO >=5.16" if $] >= 5.016; # fixed with 1.45_04
+ $cmt = "TODO <5.10" if $] < 5.010;
ctestok(2, "C", $name, $script, "C $name $cmt");
ctestok(3, "CC", $name, $script, "TODO CC $name $cmt");
}
Please sign in to comment.
Something went wrong with that request. Please try again.