Changeset 19541 for ext

Timestamp:

01/17/08 02:49:52 (12 months ago)

Author:

lwall

Message:

[Test] allow todo 'feature', :by<6.28>
[fudge] fix bracket bug on block todo

Files:

• ext/Test/lib/Test.pm (modified) (2 diffs)

ext/Test/lib/Test.pm

@@ -188 +188 @@
 }
 
-sub todo (*%deadline) returns Bool is export {
+sub todo (Str $reason = "fix", *%deadline) returns Bool is export {
     #warn "!!!", %deadline;
     return if ! $?COMPILER.defined;
-    my $spec_ver = %deadline{lc($?COMPILER)};
-    if (!$spec_ver.defined or $spec_ver eq '1' or Test::version_lt($?VERSION, $spec_ver)) {
-        $Test::todo_next_test = True;
+    my $spec_ver = %deadline{lc($?COMPILER)} // %deadline<by> // "Christmas";
+    if (!$spec_ver.defined or $spec_ver eq '1' or $spec_ver gt '9' or Test::version_lt($?VERSION, $spec_ver)) {
+        $Test::todo_next_test = "$reason by $spec_ver" // True;
         return True;
     }
@@ -252 +252 @@
     #warn "todo_next_test: $Test::todo_next_test";
     if $Test::todo_next_test {
-        $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
+        $context =  "TODO " ~ ($todo.isa('Str') ?? $todo !!  $Test::todo_next_test // '');
         $Test::todo_next_test = False;
     } elsif $todo {