[svn:parrot] r37612 - trunk/t/examples

[coke at svn.parrot.org]

Author: coke
Date: Fri Mar 20 18:27:52 2009
New Revision: 37612
URL: https://trac.parrot.org/parrot/changeset/37612

Log:
[t] fix argv handling to actually so specifying files on the command line actually works.

Modified:
   trunk/t/examples/pod.t

Modified: trunk/t/examples/pod.t
==============================================================================
--- trunk/t/examples/pod.t	Fri Mar 20 18:23:35 2009	(r37611)
+++ trunk/t/examples/pod.t	Fri Mar 20 18:27:52 2009	(r37612)
@@ -22,13 +22,14 @@
     }
 }
 
-my $self = Parrot::Test::Pod->new( {
-    argv => [ @ARGV ],
-} );
+my @files = @ARGV;
 
-my $need_testing_ref = $self->identify_files_for_POD_testing();
+if (!@files) {
+  my $podTester = Parrot::Test::Pod->new();
+  @files = @{$podTester->identify_files_for_POD_testing()};
+}
 
-foreach my $file ( @{ $need_testing_ref } ) {
+foreach my $file ( @files ) {
     foreach my $contents (get_samples($file)) {
         compile_pir_ok($contents, $file);
     }