Changeset 22003

Timestamp:

08/21/08 21:39:26 (3 months ago)

Author:

moritz

Message:

[t/spec] remove usage of try as a function

Files:

• t/spec/S03-operators/reduce-metaop.t (modified) (3 diffs)

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)";
 }
 
@@ -109 +109 @@
 # Check that user defined infix ops work with [...], too.
 sub infix:<more_than_plus>(Int $a, Int $b) { $a + $b + 1 }
-is(try({ [more_than_plus] 1, 2, 3 }), 8, "[...] reduce metaop works on user defined ops", :todo<bug>);
+is( (try { [more_than_plus] 1, 2, 3 }), 8, "[...] reduce metaop works on user defined ops", :todo<bug>);
 
 # {
@@ -138 +138 @@
   is($b, 3, '[=] assigns successfully (2)');
 
-  ok try({ ([=] $a, $b, 4) = 5 }), '[=] lvalue context restored (1)';
+  lives_ok { ([=] $a, $b, 4) = 5 }, '[=] lvalue context restored (1)';
   is($a, 5, '[=] lvalue context restored (2)');
   is($b, 4, '[=] lvalue context restored (3)');