Replace $] by "$]" in tests

An old bug could cause $] to be initialized to a wrong decimal value.
Since its stringified value was always right, we use it instead.

diff --git a/t/20-good.t b/t/20-good.t
index 97c874c7500c393400df9691eac8153dcc65d8bb..e04ee9d34c04c0a253e2d1e0e3b35f938e437249 100644 (file)
--- a/t/20-good.t
+++ b/t/20-good.t
@@ -192,9 +192,9 @@ meh $x, 1, 2;
 meh $y;
 ####
 meh $y, 1, 2;
-#### $] < 5.010 # use feature 'state'; state $z
+#### "$]" < 5.010 # use feature 'state'; state $z
 meh $z;
-#### $] < 5.010 # use feature 'state'; state $z
+#### "$]" < 5.010 # use feature 'state'; state $z
 meh $z, 1, 2;
 ####
 print;
@@ -208,9 +208,9 @@ print $x "oh hai\n";
 print $y;
 ####
 print $y "dongs\n";
-#### $] < 5.010 # use feature 'state'; state $z
+#### "$]" < 5.010 # use feature 'state'; state $z
 print $z;
-#### $] < 5.010 # use feature 'state'; state $z
+#### "$]" < 5.010 # use feature 'state'; state $z
 print $z "hlagh\n";
 ####
 print STDOUT "bananananananana\n";

diff --git a/t/21-bad.t b/t/21-bad.t
index c5944622871bd5cec19b0916779725f78d2e9cdf..fa2c322bda0254260f76e5372eef0f3c692064d4 100644 (file)
--- a/t/21-bad.t
+++ b/t/21-bad.t
@@ -101,7 +101,7 @@ SKIP:
 SKIP:
    {
     skip 'No space tests on perl 5.11' => 4 + @expected
-                                                  if $] >= 5.011 and $] < 5.012;
+                                              if "$]" >= 5.011 and "$]" < 5.012;
     my $code = $code;
     $code =~ s/\$/\$ \n\t /g;
 
@@ -280,15 +280,15 @@ meh $y 1, 2;
 meh $y, 1, 2;
 ----
 [ 'meh', '$y' ]
-#### $] < 5.010 # use feature 'state'; state $z
+#### "$]" < 5.010 # use feature 'state'; state $z
 meh $z;
 ----
 [ 'meh', '$z' ]
-#### $] < 5.010 # use feature 'state'; state $z
+#### "$]" < 5.010 # use feature 'state'; state $z
 meh $z 1, 2;
 ----
 [ 'meh', '$z' ]
-#### $] < 5.010 # use feature 'state'; state $z
+#### "$]" < 5.010 # use feature 'state'; state $z
 meh $z, 1, 2;
 ----
 [ 'meh', '$z' ]

diff --git a/t/30-scope.t b/t/30-scope.t
index afb0e400bb7276d806d658a51c604949bc3f47d7..644c3de9c97c05ab4e0a90f42f8be4aba86645ed 100644 (file)
--- a/t/30-scope.t
+++ b/t/30-scope.t
@@ -73,7 +73,7 @@ sub expect {
   }
  }
  is $@, '', "no indirect; eval 'my \$x = new Bar'";
- if ($] < 5.009005) {
+ if ("$]" < 5.009005) {
   is   @w,   0,              'no warnings caught';
   pass 'placeholder';
  } else {
@@ -85,7 +85,7 @@ sub expect {
 
 SKIP: {
  skip 'The pragma doesn\'t propagte into eval STRING before perl 5.10' => 2
-                                                               if $] < 5.009005;
+                                                             if "$]" < 5.009005;
  my @w;
  my $test = sub { eval 'return; new XYZ' };
  {
@@ -116,13 +116,13 @@ SKIP: {
   eval "return; no indirect; use indirect::TestRequired2; my \$x = new Bar;";
  }
  is   $@, '', 'second require test doesn\'t croak prematurely';
- @w = grep !/^warn:Attempt\s+to\s+free\s+unreferenced/, @w if $] <= 5.008003;
+ @w = grep !/^warn:Attempt\s+to\s+free\s+unreferenced/, @w if "$]" <= 5.008003;
  my $w = shift @w;
  like $w, expect('Baz', 't/lib/indirect/TestRequired2.pm'),
                                      'second require test caught error for Baz';
  SKIP: {
   skip 'The pragma doesn\'t propagte into eval STRING before perl 5.10' => 1
-                                                               if $] < 5.009005;
+                                                             if "$]" < 5.009005;
   $w = shift @w;
   like $w, expect('Blech'), 'second require test caught error for Blech';
  }
@@ -146,7 +146,7 @@ SKIP: {
    new indirect::TestRequired3Z;
   }
  TESTREQUIRED3
- @w = grep !/^warn:Attempt\s+to\s+free\s+unreferenced/, @w if $] <= 5.008003;
+ @w = grep !/^warn:Attempt\s+to\s+free\s+unreferenced/, @w if "$]" <= 5.008003;
  is        $@,          '',
            "pragma leak when reusing callback test doesn't croak prematurely";
  is_deeply \@w,         [ ],

diff --git a/t/31-hints.t b/t/31-hints.t
index 0b271b4b59bdab20a2ca27d5b65416b96215506c..4f4b5e284a183690665c5a88c17f7156283e0227 100644 (file)
--- a/t/31-hints.t
+++ b/t/31-hints.t
@@ -7,7 +7,7 @@ use Test::More tests => 1;
 
 SKIP: {
  skip 'This would require extensive work to be okay with perl 5.8' => 1
-                                                                  if $] < 5.010;
+                                                                if "$]" < 5.010;
 
  local %^H = (a => 1);
 

diff --git a/t/40-threads.t b/t/40-threads.t
index 4263ea59f950e1cc87476b111af3b36629000b3a..bde269afacf8a5d9196f9437cf03cb31dc26570b 100644 (file)
--- a/t/40-threads.t
+++ b/t/40-threads.t
@@ -16,7 +16,7 @@ BEGIN {
  skipall 'This perl wasn\'t built to support threads'
                                                     unless $Config{useithreads};
  skipall 'perl 5.13.4 required to test thread safety'
-                                                unless $force or $] >= 5.013004;
+                                              unless $force or "$]" >= 5.013004;
 }
 
 use threads;
@@ -60,7 +60,7 @@ sub expect {
 SKIP:
    {
     skip 'Hints aren\'t propagated into eval STRING below perl 5.10' => 3
-                                                             unless $] >= 5.010;
+                                                           unless "$]" >= 5.010;
     my $class = "Pineapple$tid";
     my @warns;
     {

diff --git a/t/41-threads-teardown.t b/t/41-threads-teardown.t
index 8531afe1fe8d36a369435d828f3b9e762155b456..0b4405e01468388e9ee2e6dc91dc6bf0fc334d3c 100644 (file)
--- a/t/41-threads-teardown.t
+++ b/t/41-threads-teardown.t
@@ -16,7 +16,7 @@ BEGIN {
  skipall 'This perl wasn\'t built to support threads'
                                                     unless $Config{useithreads};
  skipall 'perl 5.13.4 required to test thread safety'
-                                                unless $force or $] >= 5.013004;
+                                              unless $force or "$]" >= 5.013004;
 }
 
 use threads;
@@ -43,7 +43,7 @@ sub run_perl {
 
 SKIP:
 {
- skip 'Fails on 5.8.2 and lower' => 1 if $] <= 5.008002;
+ skip 'Fails on 5.8.2 and lower' => 1 if "$]" <= 5.008002;
 
  my $status = run_perl <<' RUN';
   my ($code, @expected);

diff --git a/t/50-external.t b/t/50-external.t
index f8dca42522242f0c164f86e85393b1b04915cfd9..2b318297eb101b66df6fe530955cd1a647801b37 100644 (file)
--- a/t/50-external.t
+++ b/t/50-external.t
@@ -24,7 +24,7 @@ sub run_perl {
 
 SKIP:
 {
- skip 'Fixed in core only since 5.12' => 1 unless $] >= 5.012;
+ skip 'Fixed in core only since 5.12' => 1 unless "$]" >= 5.012;
  my $status = run_perl 'no indirect hook => sub { exit 2 }; new X';
  is $status, 2 << 8, 'no semicolon at the end of -e';
 }