develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33739 - branches/testparrottest/t/perl

From:
jkeenan
Date:
December 9, 2008 19:33
Subject:
[svn:parrot] r33739 - branches/testparrottest/t/perl
Message ID:
20081210033342.4D0A7CB9AF@x12.develooper.com
Author: jkeenan
Date: Tue Dec  9 19:33:40 2008
New Revision: 33739

Modified:
   branches/testparrottest/t/perl/Parrot_Test.t

Log:
Begin developing tests for $ENV{POSTMORTEM}.

Modified: branches/testparrottest/t/perl/Parrot_Test.t
==============================================================================
--- branches/testparrottest/t/perl/Parrot_Test.t	(original)
+++ branches/testparrottest/t/perl/Parrot_Test.t	Tue Dec  9 19:33:40 2008
@@ -19,6 +19,9 @@
 use strict;
 use warnings;
 use Test::More;
+#use Test::More qw( no_plan );;
+use Carp;
+use Data::Dumper;$Data::Dumper::Indent=1;
 use File::Spec;
 use lib qw( lib );
 use Parrot::Config;
@@ -124,6 +127,7 @@
 OUTPUT
 test_test($desc);
 
+
 $desc = 'pasm_output_isnt: success';
 test_out("ok 1 - $desc");
 pasm_output_isnt( <<'CODE', <<"OUTPUT", $desc );
@@ -627,6 +631,20 @@
 test_test($desc);
 }
 
+# Cleanup t/perl/
+
+unless ( $ENV{POSTMORTEM} ) {
+    my $tdir = q{t/perl};
+    opendir my $DIRH, $tdir or croak "Unable to open $tdir for reading: $!";
+    my @need_cleanup =
+        grep { m/Parrot_Test_\d+\.(?:pir|pasm|out|c|o|build)$/ }
+        readdir $DIRH;
+    closedir $DIRH or croak "Unable to close $tdir after reading: $!";
+    for my $f (@need_cleanup) {
+        unlink qq{$tdir/$f} or croak "Unable to remove $f: $!";
+    }
+}
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About