Avoid some warnings and a few cosmetic changes

Raku · Sep 26, 2014 · 06d3aa3 · 06d3aa3
1 parent 5a471e8
commit 06d3aa3
Show file tree

Hide file tree

Showing 5 changed files with 8 additions and 8 deletions.
diff --git a/S02-literals/pairs.t b/S02-literals/pairs.t
@@ -67,7 +67,7 @@ sub f2 (:$a!) { WHAT($a) }
     isa_ok f2(:a),          Bool,"':a' is a named";
 
     #?niecza skip "Action method escape:sym<&> not yet implemented"
-    isa_ok(&f2.(:a),        Bool, "in '&f2.(:a)', ':a' is a named");
+    isa_ok(&f2.(:a),        Bool, "in '\&f2.(:a)', ':a' is a named");
     isa_ok $f2(:a),         Bool, "in '\$f2(:a)', ':a' is a named";
     isa_ok $f2.(:a),        Bool, "in '\$f2.(:a)', ':a' is a named";
 

diff --git a/S02-types/anon_block.t b/S02-types/anon_block.t
@@ -82,7 +82,7 @@ my $foo2;
 is($foo2, "blah", "lone block w/out a semicolon actually executes it's content");
 
 my $foo4;
-({$foo4 = "blah"},);
+({$foo4 = "blah"});
 ok(!defined($foo4), "block enclosed by parentheses should not auto-execute (2)");
 
 my $one;

diff --git a/S02-types/hash.t b/S02-types/hash.t
@@ -302,7 +302,7 @@ eval_lives_ok('my $rt75694 = { has-b => 42 }', "can have a bareword key starting
 # RT 77598
 #?niecza skip "Unsupported use of [-1] subscript to access from end of array"
 {
-    is {}[*-1], Failure, 'array-indexing a hash with a negative index is Failure';
+    isa_ok {}[*-1], Failure, 'array-indexing a hash with a negative index is Failure';
 }
 
 # RT #73230

diff --git a/S02-types/lists.t b/S02-types/lists.t
@@ -153,7 +153,7 @@ plan 28;
 {
     my $rt66304 = (1, 2, 4);
     isa_ok $rt66304, Parcel, 'List assigned to scalar is-a Parcel';
-    is( $rt66304.WHAT, (1, 2, 4).WHAT,
+    is( $rt66304.WHAT.perl, (1, 2, 4).WHAT.perl,
         'List.WHAT is the same as .WHAT of list assigned to scalar' );
     throws_like { $rt66304[1] = 'ro' },
       X::Assignment::RO,

diff --git a/S32-str/substr.t b/S32-str/substr.t
@@ -133,16 +133,16 @@ sub p (Int $a) {  my $p = $a; return $p }
 #?niecza todo
 eval_dies_ok 'substr(Any, 0)', 'substr needs Cool as argument';
 
-# RT 76682
+# RT #76682
 #?niecza skip "'Failure' used at line 244"
 {
-    is "foo".substr(4), Failure, 'substr with start beyond end of string is Failure'
+    isa_ok "foo".substr(4), Failure, 'substr with start beyond end of string is Failure';
 }
 
-# RT 115086
+# RT #115086
 #?niecza todo
 {
-    is "abcd".substr(2, Inf), 'cd', 'substr to Inf'
+    is "abcd".substr(2, Inf), 'cd', 'substr to Inf';
 }
 
 {