- Timestamp:
- 09/29/08 16:39:54 (2 months ago)
- Location:
- t/spec
- Files:
-
- 4 modified
-
S03-junctions/boolean-context.t (modified) (1 diff)
-
S03-operators/context-forcers.t (modified) (2 diffs)
-
S03-operators/misc.t (modified) (1 diff)
-
S03-operators/smartmatch.t (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
t/spec/S03-junctions/boolean-context.t
r22044 r22450 3 3 plan 37; 4 4 5 # L<S03/Junctive Operators/>5 # L<S03/Junctive operators/> 6 6 7 7 ok ?any(1..2), 'any(1..2) in boolean context'; -
t/spec/S03-operators/context-forcers.t
r22370 r22450 79 79 } 80 80 81 # L<S03/Changes to Perl 5 operators/"-TERM" "coerced to numeric"> 82 # numeric (-) context 81 # L<S03/Symbolic unary precedence/"prefix:<->"> 83 82 { 84 83 my $a = '2 is my favorite number'; … … 139 138 } 140 139 141 # L<S03/Changes to Perl 5 operators/"!TERM" "coerced to boolean"> 142 # ! boolean context 140 # L<S03/Symbolic unary precedence/"prefix:<!>"> 143 141 { 144 142 my $a = ''; -
t/spec/S03-operators/misc.t
r22123 r22450 52 52 # Bit Stitching 53 53 54 # L<S03/Tight or precedence/short-circuit inginclusive-or>54 # L<S03/Tight or precedence/short-circuit inclusive-or> 55 55 is(2 || 3, 2, "|| returns first true value"); 56 56 ok(!(defined( 0 || undef)), "|| returns last false value of list?"); -
t/spec/S03-operators/smartmatch.t
r22293 r22450 18 18 19 19 #L<<S03/"Smart matching"/Any Code:($) item sub truth>> 20 #L<<S03/"Smart matching"/Any Code:() item sub truth>>21 20 { 22 21 sub uhuh { 1 }
