[Rt-commit] r5432 - in Test-Chimps: trunk/lib/Test/Chimps

[zev at bestpractical.com]

Author: zev
Date: Fri Jun 23 17:33:47 2006
New Revision: 5432

Modified:
   Test-Chimps/   (props changed)
   Test-Chimps/trunk/lib/Test/Chimps/Report.pm
   Test-Chimps/trunk/lib/Test/Chimps/Server.pm

Log:
 r4209 at galvatron (orig r13):  zev | 2006-06-21 14:59:39 -0400
  r4205 at galvatron:  zev | 2006-06-21 14:17:02 -0400
  more slight fixes
 


Modified: Test-Chimps/trunk/lib/Test/Chimps/Report.pm
==============================================================================
--- Test-Chimps/trunk/lib/Test/Chimps/Report.pm	(original)
+++ Test-Chimps/trunk/lib/Test/Chimps/Report.pm	Fri Jun 23 17:33:47 2006
@@ -33,7 +33,7 @@
 
     my $model = Test::TAP::Model::Visual->new_with_tests(glob("t/*.t"));
 
-    my $report = Test::Smoke::Report->new(model => $model);
+    my $report = Test::Chimps::Report->new(model => $model);
 
     ...
 

Modified: Test-Chimps/trunk/lib/Test/Chimps/Server.pm
==============================================================================
--- Test-Chimps/trunk/lib/Test/Chimps/Server.pm	(original)
+++ Test-Chimps/trunk/lib/Test/Chimps/Server.pm	Fri Jun 23 17:33:47 2006
@@ -343,8 +343,8 @@
   }
 
   my $report = LoadFile(File::Spec->catfile($self->{base_dir},
-                                          $self->{report_dir},
-                                          $id . ".yml"));
+                                            $self->{report_dir},
+                                            $id . ".yml"));
 
   print $report->report_text;
 }
@@ -359,8 +359,7 @@
                                        $self->{report_dir},
                                        "*.yml");
 
-  my @reports = map { bless LoadFile($_), 'Test::Chimps::Report' }
-    @files;
+  my @reports = map { LoadFile($_) } @files;
 
   for (my $i = 0; $i < scalar @reports ; $i++) {
     my ($filename, $directories, $suffix) = fileparse($files[$i], '.yml');