Changeset 2218

Timestamp:

12/28/08 08:59:38 (3 years ago)

Author:

szabgab

Message:

add more example scripts for beginner related errors with TODO tests

Location:

trunk/Padre/t

Files:

• 75-perl-beginner.t (modified) (1 diff)
• files/beginner/boolean_expression_or.pl (added)
• files/beginner/boolean_expression_pipes.pl (added)
• files/beginner/chomp.pl (added)
• files/beginner/match_default_scalar.pl (added)
• files/beginner/substitute_in_map.pl (added)

trunk/Padre/t/75-perl-beginner.t

@@ -20 +20 @@
 BEGIN {
     %tests = (
-    'split1.pl'  => "The second parameter of split is a string, not an array",
-    'split2.pl'  => "The second parameter of split is a string, not an array",
-    'warning.pl' => "You need to write use warnings (with an s at the end) and not use warning.",
+    'split1.pl'                    => "The second parameter of split is a string, not an array",
+    'split2.pl'                    => "The second parameter of split is a string, not an array",
+    'warning.pl'                   => "You need to write use warnings (with an s at the end) and not use warning.",
+    'boolean_expressions_or.pl'    => 'TODO',
+    'boolean_expressions_pipes.pl' => 'TODO',
+    'match_default_scalar.pl'      => 'TODO',
+    'chomp.pl'                     => 'TODO',
+    'substitute_in_map.pl'         => 'TODO',
     );
 }
 
 foreach my $file (keys %tests) {
+    if ($tests{$file} eq 'TODO') {
+        TODO: {
+            local $TODO = "$file not yet implemented";
+            ok(0);
+            ok(0);
+        }
+        next;
+    }
+
     my $data = slurp (File::Spec->catfile('t', 'files', 'beginner', $file));
     ok(! defined($b->check($data)), $file);