Changeset 21167
- Timestamp:
- 07/02/08 12:19:05 (5 months ago)
- Location:
- t/spec
- Files:
-
- 3 modified
-
S03-operators/context.t (modified) (3 diffs)
-
S03-operators/repeat.t (modified) (1 diff)
-
S29-str/lc.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
t/spec/S03-operators/context.t
r21086 r21167 36 36 is(@(), @($/), '@() should be the same as @($/)'); 37 37 38 #?rakudo 1 skip 'zip does not work'39 38 is((@ 1,2 Z 3,4), <1 3 2 4>, '@ operator has proper precedence to change context of zip infix'); 40 39 } … … 61 60 is((item $a, $b), @array, 'item($a, $b) is the same as <<$a $b>> in an array'); 62 61 63 #?rakudo 1 skip 'zip is broken'64 62 is(($ 1,2 Z 3,4), [[1,3], [2,4]], '$ operator has proper precendence to change context of zip infix'); 65 63 } … … 88 86 # L<S03/Changes to Perl 5 operators/Perl 5's ${...}, @{...}, %{...}, etc> 89 87 # Deprecated P5 dereferencing operators: 90 #?rakudo skip 'Perl5 dereferencing syntax warnings not implemented yet'91 88 { 92 89 my $scalar = 'abcd'; -
t/spec/S03-operators/repeat.t
r21155 r21167 18 18 is('' x 6, '', 'repeating an empty string creates an empty string'); 19 19 is('a' x 0, '', 'repeating zero times produces an empty string'); 20 #?rakudo skip 'TODO: infix:<x>($str, -1)'21 20 is('a' x -1, '', 'repeating negative times produces an empty string'); 22 21 -
t/spec/S29-str/lc.t
r20390 r21167 3 3 use Test; 4 4 5 plan 1 1;5 plan 12; 6 6 7 7 # L<S29/Str/lc> … … 26 26 my $x = "Hello World"; 27 27 is($x.lc, "hello world", '$x.lc works'); 28 is($x, 'Hello World', 'Invocant unchanged'); 28 29 is("Hello World".lc, "hello world", '"Hello World".lc works'); 29 30 }
