[Bps-public-commit] Test-Chimps-Anna branch, master, updated. e6a5d68e6d66d2c4035bc84cad02bf35d4a6bc75

[sunnavy at bestpractical.com]

The branch, master has been updated
       via  e6a5d68e6d66d2c4035bc84cad02bf35d4a6bc75 (commit)
       via  1ecbed0fb5603de60636062cd1d36188bc82a4ff (commit)
      from  46bcdb5140d5d116b35d22b2c62cbef60e97849e (commit)

Summary of changes:
 lib/Test/Chimps/Anna.pm |   35 ++++++++++++++++++++++++++++++-----
 1 files changed, 30 insertions(+), 5 deletions(-)

- Log -----------------------------------------------------------------
commit 1ecbed0fb5603de60636062cd1d36188bc82a4ff
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Tue Jun 23 20:03:25 2009 +0800

    show committed_date if possible

diff --git a/lib/Test/Chimps/Anna.pm b/lib/Test/Chimps/Anna.pm
index 60dc838..4036005 100644
--- a/lib/Test/Chimps/Anna.pm
+++ b/lib/Test/Chimps/Anna.pm
@@ -158,7 +158,10 @@ sub tick {
     if ($report->total_failed || $report->total_unexpectedly_succeeded) {
       $self->{passing_projects}->{$report->project} = 0;
       my $msg =
-        $report->project ." ". $report->revision ." by ". $report->committer .": "
+        $report->project ." ". $report->revision ." by ". $report->committer .
+        ($report->can('committed_date') ? ( ' at ' . $report->committed_date )
+        : '')
+        . ": "
         . sprintf( "%.2f", $report->total_ratio * 100 ) . "\%, "
         . $report->total_seen . " total, "
         . $report->total_passed . " ok, "

commit e6a5d68e6d66d2c4035bc84cad02bf35d4a6bc75
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Tue Jun 23 21:44:25 2009 +0800

    show commit date in successfuly reports too

diff --git a/lib/Test/Chimps/Anna.pm b/lib/Test/Chimps/Anna.pm
index 4036005..0681463 100644
--- a/lib/Test/Chimps/Anna.pm
+++ b/lib/Test/Chimps/Anna.pm
@@ -181,13 +181,35 @@ sub tick {
       if ( $self->{passing_projects}->{$report->project}++) {
         my @exclam = (qw/Yatta Woo Whee Yay Yippee Yow/, "Happy happy joy joy", "O frabjous day");
         if ($self->{passing_projects}->{$report->project} % 5 == 0) {
-            $self->_say_to_all( $report->project . " rev " . $report->revision . " still passing all " . $report->total_passed . " tests.  " . $exclam[rand @exclam] . "!");
+            $self->_say_to_all(
+                    $report->project . " rev " 
+                  . $report->revision
+                  . (
+                      $report->can('committed_date')
+                    ? ( '(' . $report->committed_date  . ')' )
+                    : ''
+                  )
+                  . " still passing all "
+                  . $report->total_passed
+                  . " tests.  "
+                  . $exclam[ rand @exclam ] . "!"
+            );
         }
       } else {
         $self->_say_to_all(
-            $report->project ." rev ". $report->revision ." by ". $report->committer."; "
-                           . $report->duration . " seconds.  "
-                           . "All " . $report->total_passed . " tests pass"
+                $report->project . " rev "
+              . $report->revision . " by "
+              . $report->committer
+              . (
+                $report->can('committed_date')
+                ? ( ' at ' . $report->committed_date )
+                : ''
+              )
+              . "; "
+              . $report->duration
+              . " seconds.  " . "All "
+              . $report->total_passed
+              . " tests pass"
         );
       }
     }

-----------------------------------------------------------------------