[svn:parrot] r33247 - branches/rm_miniparrot/t/configure

[jkeenan]

Author: jkeenan
Date: Wed Nov 26 16:33:20 2008
New Revision: 33247

Modified:
   branches/rm_miniparrot/t/configure/034-step.t

Log:
For consistency with other tests, substitute something for 'miniparrot' in 
test.  Add one test for captured error message.

Modified: branches/rm_miniparrot/t/configure/034-step.t
==============================================================================
--- branches/rm_miniparrot/t/configure/034-step.t       (original)
+++ branches/rm_miniparrot/t/configure/034-step.t       Wed Nov 26 16:33:20 2008
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 14;
+use Test::More tests => 15;
 use Carp;
 use Cwd;
 use File::Temp 0.13 qw/ tempdir /;
@@ -85,13 +85,14 @@
     print $IN q{#perl\nuse strict;\n$something = 'something';\n};
     print $IN <<'END_DUMMY';
 #perl
-if (@miniparrot@) { sprint "Hello world\n"; }
+if (@verbose@) { sprint "Hello world\n"; }
 END_DUMMY
     close $IN or croak "Unable to close temp file";
     my ($stdout, $stderr);
     capture ( sub { eval { $conf->genfile( $dummy => 'CFLAGS', feature_file => 
1, ) } },
         \$stdout, \$stderr );
     ok( $stderr, "Error message caught" );
+    like( $stderr, qr/sprint/, "Error message had expected content" );
     ok( $@,     "Bad Perl code caught by genfile()" );
 
     unlink $dummy or croak "Unable to delete file after testing";