[t/spec] more variable declaration fixes

git-svn-id: http://svn.pugscode.org/pugs@25275 c213334d-75ef-0310-aa23-eaa082d1ae64

S12-methods/trusts.t

@@ -44,19 +44,19 @@ class B {
         my ($foo, @bar, %baz);
 
         try {
-            $foo = $an_A!A::foo;
+            $foo = $!an_A!A::foo;
         };
         is( $!.defined ?? 1 !! 0, 0, 'A trusts B, B can get an A scalar attr; '~($!//''), :todo<feature> );
         is( $foo, 'hello', 'value read by B from an A scalar var is correct', :todo<feature> );
 
         try {
-            @bar = $an_A!A::bar;
+            @bar = $!an_A!A::bar;
         };
         is( $!.defined ?? 1 !! 0, 0, 'A trusts B, B can get an A array attr; '~($!//''), :todo<feature> );
         is_deeply( @bar, [1,2,3], 'value read by B from an A scalar var is correct', :todo<feature> );
 
         try {
-            %baz = $an_A!A::baz;
+            %baz = $!an_A!A::baz;
         };
         is( $!.defined ?? 1 !! 0, 0, 'A trusts B, B can get an A hash attr; '~($!//''), :todo<feature> );
         is_deeply( %baz, {'m'=>'v'}, 'value read by B from an A scalar var is correct', :todo<feature> );

S16-unfiled/slurp.t

@@ -26,10 +26,9 @@ my $self = 't/spec/S16-unfiled/slurp.t';
 }
 
 # slurp in list context
-{
-  my @slurped_lines = lines(open($self));
-  ok +@slurped_lines > 30, "more than 30 lines in this file ?";
-}
+
+my @slurped_lines = lines(open($self));
+ok +@slurped_lines > 30, "more than 30 lines in this file ?";
 
 #?rakudo skip 'infix:<orelse>'
 {

S29-hash/kv.t

@@ -68,8 +68,8 @@ sub test2{
     my $type = %pair.WHAT;
     my $elems= +%pair;
     for %pair.kv -> $key, $value {
-        is($key, 'boo', "test2: $elems-elem $type \%pair got the right \$key");
-        is($value, 'baz', "test2: $elems-elem $type \%pair got the right \$value");
+        is($key, 'boo', "test2: $elems elem $type \%pair got the right \$key");
+        is($value, 'baz', "test2: $elems elem $type \%pair got the right \$value");
     }
 }
 test2;