[svn:parrot] r49449 - trunk/t/tools

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Tue Oct  5 18:01:20 2010
New Revision: 49449
URL: https://trac.parrot.org/parrot/changeset/49449

Log:
[t] Add a TODO test for create_language.pl

Modified:
   trunk/t/tools/create_language.t

Modified: trunk/t/tools/create_language.t
==============================================================================
--- trunk/t/tools/create_language.t	Tue Oct  5 03:04:34 2010	(r49448)
+++ trunk/t/tools/create_language.t	Tue Oct  5 18:01:20 2010	(r49449)
@@ -36,7 +36,21 @@
         plan skip_all => "$exefile hasn't been built yet.";
         exit(0);
     }
-    plan tests => 6;
+    plan tests => 8;
+}
+
+
+{
+    local $TODO = "--help isn't helpful";
+
+    create_output_like(
+        "--help",
+        qr{Unknown option: help},
+        'create_language DTRT with --help'
+    );
+    ok(!-e '--help', 'create_language does not create a language called --help');
+
+    rmtree('--help');
 }
 
 create_output_like(
@@ -56,6 +70,7 @@
 ok(-e $src_dir, "$src_dir dir exists");
 ok(-s $config, "$config exists and has nonzero size");
 
+rmtree("test_parrot_language_$$");
 
 =head1 HELPER SUBROUTINES
 
@@ -77,10 +92,6 @@
     return;
 }
 
-END {
-    rmtree("test_parrot_language_$$");
-}
-
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4