[Bps-public-commit] r11602 - in SVN-PropDB: .

[jesse at bestpractical.com]

Author: jesse
Date: Sun Apr  6 19:51:57 2008
New Revision: 11602

Modified:
   SVN-PropDB/   (props changed)
   SVN-PropDB/lib/Prophet/Test.pm

Log:
 r29406 at 68-246-109-123:  jesse | 2008-04-06 13:35:01 -1000
 * What a difference a character makes. Path::Class::file is a function that returns a Path::Class object. Path::Class::File is a class.
 * Calling the class method 'new' on a Path::Class generated by Path::Class::file is kind of suckful
 


Modified: SVN-PropDB/lib/Prophet/Test.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Test.pm	(original)
+++ SVN-PropDB/lib/Prophet/Test.pm	Sun Apr  6 19:51:57 2008
@@ -19,7 +19,7 @@
 
 our $REPO_BASE = File::Temp::tempdir();
 Test::More->import;
-diag($REPO_BASE);
+diag("Replicas can be found in". $REPO_BASE);
 
 sub import_extra {
     my $class = shift;
@@ -98,7 +98,8 @@
     @_ = sub {
         my ( $ret, $stdout, $stderr ) = ( run_script( $script, $args ), $msg );
         @_ = ( $ret, $msg );
-        diag($stderr);
+        diag("STDOUT: " . $stdout) if ($stdout);
+        diag("STDERR: " . $stderr) if ($stderr);
         goto &Test::More::ok;
     };
     goto \&lives_and;
@@ -134,7 +135,8 @@
 our $RUNCNT;
 
 sub _get_perl_cmd {
-    my $base_dir = Path::Class::file->new($0)->dir->parent->subdir('bin');
+    my $base_dir = Path::Class::File->new($0)->dir->parent->subdir('bin');
+
     my $script = shift;
     my @cmd = ( $^X, ( map {"-I$_"} @INC ) );
     push @cmd, '-MDevel::Cover' if $INC{'Devel/Cover.pm'};