- Timestamp:
- 10/12/08 19:57:24 (6 weeks ago)
- Files:
-
- 1 modified
-
t/spec/S03-operators/assign.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
t/spec/S03-operators/assign.t
r22549 r22591 433 433 my $x = 1; 434 434 @p = $x +<= 8, 9; 435 #?rakudo 2 skip 'item infix assignment'436 435 is($x, 256, '+<= operator'); 437 436 is(@p[0],256, "+<= operator parses as item assignment 1"); … … 443 442 my $x = 511; 444 443 @p = $x +>= 8, 9; 445 #?rakudo 2 skip 'item infix assignment'446 444 is($x, 1, '+>= operator'); 447 445 is(@p[0],1, "+>= operator parses as item assignment 1");
