Changeset 19505 for util

Timestamp:

01/16/08 08:15:54 (10 months ago)

Author:

lwall

Message:

[fudge] bug removal

Files:

• util/fudge (modified) (2 diffs)

util/fudge

@@ -53 +53 @@
                 }
                 elsif ($FUDGE eq 'try') {
-                    $_ = "try " . $_;
+                    chomp;
+                    $_ = "try($_) // fail($ARGS);\n";
                 }
                 elsif ($FUDGE eq 'eval') {
                     chomp;
                     s/(['\\])/\\$1/g;
-                    $_ = "eval '$_' // skip($numtests, $ARGS);\n";
+                    $_ = "eval('$_') // skip($numtests, $ARGS);\n";
                 }
                 else {
@@ -76 +77 @@
                 }
                 next unless /^\s*$IS/;
-                $_ = "{ " . $_ . " };\n";
+                $PENDING--;
+                $_ = "{ " . $_ . " }";
                 if ($FUDGE eq 'skip') {
                     s/^/# /mg;
-                    $_ = "skip(1,$ARGS); " . $_;
+                    $_ = "skip(1,$ARGS); $_\n";
                 }
                 elsif ($FUDGE eq 'try') {
-                    $_ = "try " . $_;
+                    $_ = "try($_) // fail($ARGS)\n";
                 }
                 elsif ($FUDGE eq 'eval') {
-                    chomp;
                     s/(['\\])/\\$1/g;
-                    $_ = "eval '$_' // skip(1,$ARGS);\n";
+                    $_ = "eval('$_') // skip(1,$ARGS);\n";
                 }
                 else {