Changeset 22021

Timestamp:

08/23/08 12:19:03 (3 months ago)

Author:

moritz

Message:

[t] move subst.t to spec/, changed fudging a bit and added smartlink

Location:

t/spec/S05-substitution

Files:

• . (added)
• subst.t (moved) (moved from t/builtins/strings/subst.t) (3 diffs)

t/spec/S05-substitution/subst.t

@@ -5 +5 @@
 plan 12;
 
+# L<S05/Substitution/>
 
 my $str = 'hello';
@@ -10 +11 @@
 is $str.subst(/h/,'f'),       'fello', 'We can use subst';
 is $str,                      'hello', '.. withouth side effect';
-#?rakudo eval "multiple adverbs not implemented"
+#?rakudo skip "multiple adverbs not implemented"
 is $str.subst(rx:g:i/L/,'p'), 'heppo', '.. with multiple adverbs';
 
@@ -19 +20 @@
 #?rakudo eval "subst with a block parameter not implemented"
 is $str.subst(/l/,{$i++}),    'he0lo', 'We can have a closure as replacement';
-#?rakudo eval "multiple adverbs not implemented"
+#?rakudo skip "multiple adverbs not implemented"
 is $str.subst(rx:g/l/,{$i++}),'he12o', '.. which act like closure and can be called more then once';
-#?rakudo eval "rakudo doesn't like dotty methods [perl #57740]"
+#?rakudo skip "rakudo doesn't like dotty methods [perl #57740]"
 is $str.=subst(/l/,'i'),      'heilo', '.. and with the .= modifier';
-#?rakudo eval "skipped because the one before was skipped"
+#?rakudo skip "(test dependency)"
 is $str,                      'heilo', '.. it changes the receiver';
 
 # not sure about this. Maybe '$1$0' should work.
 
-#?rakudo eval '$/ not involved in .subst yet'
+#?rakudo 3 skip '$/ not involved in .subst yet (unspecced?)'
 is 'a'.subst(/(.)/,"$1$0"), '',       '.. and it can not access captures from strings';
-#?rakudo eval '$/ not involved in .subst yet'
 is 'a'.subst(/(.)/,{$0~$0}),'aa',     '.. you must wrap it in a closure';
-#?rakudo eval '$/ not involved in .subst yet'
 is '12'.subst(/(.)(.)/,{$()*2}),'24', '.. and do nifty things in closures';