- Timestamp:
- 10/02/08 23:09:20 (2 months ago)
- Files:
-
- 1 modified
-
t/spec/S29-str/chomp.t (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
-
t/spec/S29-str/chomp.t
r20390 r22490 3 3 use Test; 4 4 5 plan 3 5;5 plan 31; 6 6 7 7 =begin pod … … 53 53 54 54 { 55 my $foo = "foo\n";56 #?pugs todo 'chomp(...).newline marked as todo'57 my $chomped_foo = try { chomp($foo).newline };58 is($chomped_foo, "\n", 'chomp(...).newline returns the chomped value');59 is($foo, "foo\n", 'and our variable was not chomped');60 }61 62 {63 my $foo = "foo\n";64 $foo .= chomp;65 #?pugs todo '$foo .= chomp; $foo.newline marked as todo'66 my $chomped_foo = try { $foo.newline };67 is($chomped_foo, "\n", 'chomp(...).newline returns the chomped value');68 is($foo, "foo", 'and our variable was chomped');69 }70 71 {72 55 my $foo = "foo\n\n"; 73 56 my $chomped = $foo.chomp; … … 82 65 83 66 # chomp in list context 67 #?rakudo skip 'is_deeply' 84 68 { 85 69 is_deeply(chomp(()), [], "chomp on empty list"); … … 88 72 is_deeply(("abc\n", "bcd\n").chomp, ("abc", "bcd"), "two element list"); 89 73 } 74 #?rakudo skip 'is_deeply' 90 75 { 91 76 my @foo = (); … … 93 78 is_deeply(@bar, @foo, "chomp empty array"); 94 79 } 80 #?rakudo skip 'is_deeply' 95 81 { 96 82 my @foo = ("abc\n"); … … 99 85 is_deeply(@bar, @baz, "chomp array with one element"); 100 86 } 87 #?rakudo skip 'is_deeply' 101 88 { 102 89 my @foo = ("abc\n", "bcd\n"); … … 133 120 # a single string. 134 121 135 #?rakudo: skip "can't parse"136 122 { 137 123 my @foo = ("foo\n","bar\n","baz\n"); … … 141 127 is(@foo[2], "baz\n", '3rd element was not yet chomped'); 142 128 @foo .= chomp; 129 #?rakudo 6 todo 'chomp on lists' 143 130 is(@foo[0], 'foo', '1st element chomped correctly'); 144 131 is(@foo[1], 'bar', '2nd element chomped correctly');
