Changeset 21983

Timestamp:

08/21/08 09:34:07 (3 months ago)

Author:

moritz

Message:

[t/spec] more disambiguation whitespaces (and parenthesis)

Location:

t/spec

Files:

• S03-operators/reduce-metaop.t (modified) (1 diff)
• S04-declarations/my.t (modified) (1 diff)

t/spec/S03-operators/reduce-metaop.t

@@ -93 +93 @@
   # 18:45 < autrijus> [=>] 1..10;
   my $list = [=>] 1,2,3;
-  is $list.key,              1, "[=>] works (1)";
-  is try{$list.value.key},   2, "[=>] works (2)";
-  is try{$list.value.value}, 3, "[=>] works (3)";
+  is $list.key,                1, "[=>] works (1)";
+  is try({$list.value.key}),   2, "[=>] works (2)";
+  is try({$list.value.value}), 3, "[=>] works (3)";
 }
 

t/spec/S04-declarations/my.t

@@ -39 +39 @@
 #?rakudo todo 'do { } and lexicals'
 {
-  is(do{my $a = 3; $a}, 3, 'do{my $a = 3; $a} works');
-  is(do{1; my $a = 3; $a}, 3, 'do{1; my $a = 3; $a} works');
+  is(do {my $a = 3; $a}, 3, 'do{my $a = 3; $a} works');
+  is(do {1; my $a = 3; $a}, 3, 'do{1; my $a = 3; $a} works');
 }