t/op/smartkve.t: single-quote some eval stuff
authorDavid Mitchell <davem@iabyn.com>
Wed, 24 Apr 2013 16:57:04 +0000 (17:57 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 24 Apr 2013 16:57:04 +0000 (17:57 +0100)
Three tests were wrong because they incorrectly double- rather than
single-quoted an eval string like

    eval "keys $hash ...."

Since the tests were supposed to generate syntax errors anyway it didn't
show up. However, the $hash ref was being expanded to HASH(0x......)
and on some platform / compiler permutations it would generate some
mysterious

    Hexadecimal number > 0xffffffff non-portable

warnings.

t/op/smartkve.t

index abd6abf..3cd5b49 100644 (file)
@@ -196,7 +196,7 @@ ok($@ =~ $errpat,
   'Errors: keys qr/foo/ throws error'
 );
 
-eval "keys $hash qw/fo bar/";
+eval q"keys $hash qw/fo bar/";
 ok($@ =~ qr/syntax error/,
   'Errors: keys $hash, @stuff throws error'
 ) or print "# Got: $@";
@@ -300,7 +300,7 @@ ok($@ =~ $errpat,
   'Errors: values qr/foo/ throws error'
 );
 
-eval "values $hash qw/fo bar/";
+eval q"values $hash qw/fo bar/";
 ok($@ =~ qr/syntax error/,
   'Errors: values $hash, @stuff throws error'
 ) or print "# Got: $@";
@@ -409,7 +409,7 @@ ok($@ =~ $errpat,
   'Errors: each qr/foo/ throws error'
 );
 
-eval "each $hash qw/foo bar/";
+eval q"each $hash qw/foo bar/";
 ok($@ =~ qr/syntax error/,
   'Errors: each $hash, @stuff throws error'
 ) or print "# Got: $@";