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

[cotto at svn.parrot.org]

Author: cotto
Date: Fri Oct  8 18:39:13 2010
New Revision: 49485
URL: https://trac.parrot.org/parrot/changeset/49485

Log:
[t] make language build and test tests less noisy

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:14:33 2010	(r49484)
+++ trunk/t/tools/mk_language_shell.t	Fri Oct  8 18:39:13 2010	(r49485)
@@ -50,15 +50,16 @@
 my $src_dir = catfile($lang_dir, "src");
 my $setup = catfile($lang_dir, "setup.pir");
 my $parrot_exe = catfile($PConfig{build_dir}, $PConfig{test_prog});
+my $to_dev_null = $^O =~ /win/ ? "1> NUL 2>&1" : ">/dev/null 2>&1";
 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");
+    my $build_status = system("cd $lang_dir; $parrot_exe setup.pir $to_dev_null");
     ok($? == 0, "language builds");
-    my $test_status = system("cd $lang_dir; $parrot_exe setup.pir test");
+    my $test_status = system("cd $lang_dir; $parrot_exe setup.pir test $to_dev_null");
     ok($? == 0, "language passes all tests");
 }