[svn:parrot] r43942 - trunk/t/run

[chromatic at svn.parrot.org]

Author: chromatic
Date: Sat Feb 13 21:00:20 2010
New Revision: 43942
URL: https://trac.parrot.org/parrot/changeset/43942

Log:
[t] Added diagnostic output to display failed command when testing command-line
arguments in t/run/options.t.

Modified:
   trunk/t/run/options.t

Modified: trunk/t/run/options.t
==============================================================================
--- trunk/t/run/options.t	Sat Feb 13 21:00:14 2010	(r43941)
+++ trunk/t/run/options.t	Sat Feb 13 21:00:20 2010	(r43942)
@@ -1,5 +1,5 @@
 #!perl
-# Copyright (C) 2005-2007, Parrot Foundation.
+# Copyright (C) 2005-2010, Parrot Foundation.
 # $Id$
 
 =head1 NAME
@@ -80,7 +80,7 @@
     for my $val (qw/ slow fast bounds trace /) {
         for my $opt ( '-R ', '--runcore ', '--runcore=' ) {
             $cmd = qq{"$PARROT" $opt$val "$second_pir_file" $redir};
-            is( qx{$cmd}, "second\n", "<$opt$val> option" );
+            is( qx{$cmd}, "second\n", "<$opt$val> option)" ) or diag $cmd;
         }
     }