Author: bernhard
Date: Mon May 1 01:59:59 2006
New Revision: 12472
Modified:
trunk/MANIFEST.SKIP
trunk/t/perl/ (props changed)
trunk/t/perl/Parrot_Test.t
Log:
t/perl/Parrot_Test.t:
- Let SVN ignore generated files
- Add a note WRT post env testing
Modified: trunk/MANIFEST.SKIP
==============================================================================
--- trunk/MANIFEST.SKIP (original)
+++ trunk/MANIFEST.SKIP Mon May 1 01:59:59 2006
@@ -1,5 +1,5 @@
# $Id$
-# generated by tools/dev/gen_manifest_skip.pl Sun Apr 30 21:47:43 2006
+# generated by tools/dev/gen_manifest_skip.pl Mon May 1 10:56:40 2006
#
# This file should contain a transcript of the svn:ignore properties
# of the directories in the Parrot subversion repository. (Needed for
@@ -1236,6 +1236,10 @@
^t/op/.*\.pir$
^t/op/.*\.pir/
# generated from svn:ignore of 't/perl/'
+^t/perl/Parrot_Test_1\.pasm$
+^t/perl/Parrot_Test_1\.pasm/
+^t/perl/Parrot_Test_1\.pir$
+^t/perl/Parrot_Test_1\.pir/
# generated from svn:ignore of 't/pmc/'
^t/pmc/.*_pbcexe.*$
^t/pmc/.*_pbcexe.*/
Modified: trunk/t/perl/Parrot_Test.t
==============================================================================
--- trunk/t/perl/Parrot_Test.t (original)
+++ trunk/t/perl/Parrot_Test.t Mon May 1 01:59:59 2006
@@ -5,6 +5,7 @@
use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
+
BEGIN {
eval "use Test::Builder::Tester;";
if ($@) {
@@ -34,11 +35,14 @@
{
my $pre_env = exists $ENV{PARROT_TEST} ? $ENV{PARROT_TEST} : undef;
use_ok('Parrot::Test') or die;
+
+ # XXX Shouldn't this be in an END block
my $post_env = exists $ENV{PARROT_TEST} ? $ENV{PARROT_TEST} : undef;
- if( defined $pre_env )
- { is( $post_env, $pre_env, 'PARROT_TEST env unchanged' ); }
- else
- { is( $post_env, 1, 'PARROT_TEST env set' ); }
+ if ( defined $pre_env ) {
+ is( $post_env, $pre_env, 'PARROT_TEST env unchanged' );
+ } else {
+ is( $post_env, 1, 'PARROT_TEST env set' );
+ }
}
