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

[cotto at svn.parrot.org]

Author: cotto
Date: Fri Oct  8 18:14:33 2010
New Revision: 49484
URL: https://trac.parrot.org/parrot/changeset/49484

Log:
[t] add a couple TODO'd tests to make sure generated languages build and pass their tests

Modified:
   trunk/t/tools/mk_language_shell.t

Modified: trunk/t/tools/mk_language_shell.t
==============================================================================
--- trunk/t/tools/mk_language_shell.t	Fri Oct  8 18:13:37 2010	(r49483)
+++ trunk/t/tools/mk_language_shell.t	Fri Oct  8 18:14:33 2010	(r49484)
@@ -36,7 +36,7 @@
         plan skip_all => "$exefile hasn't been built yet.";
         exit(0);
     }
-    plan tests => 5;
+    plan tests => 7;
 }
 
 output_like(
@@ -49,11 +49,18 @@
 my $test_dir = catfile($lang_dir, "t");
 my $src_dir = catfile($lang_dir, "src");
 my $setup = catfile($lang_dir, "setup.pir");
+my $parrot_exe = catfile($PConfig{build_dir}, $PConfig{test_prog});
 ok(-e $lang_dir, "$lang_dir dir exists");
 ok(-e $test_dir, "$test_dir dir exists");
 ok(-e $src_dir, "$src_dir dir exists");
 ok(-s $setup, "$setup exists and has nonzero size");
-
+TODO:{
+    local $TODO = "mk_language_shell.pl assumes an installed parrot";
+    my $build_status = system("cd $lang_dir; $parrot_exe setup.pir");
+    ok($? == 0, "language builds");
+    my $test_status = system("cd $lang_dir; $parrot_exe setup.pir test");
+    ok($? == 0, "language passes all tests");
+}
 
 =head1 HELPER SUBROUTINES