[Bps-public-commit] SD - A distributed issue tracker branch, master, updated. 020aa9b513bed8e5a31ac232670e76a22aea3ccd

[spang at bestpractical.com]

The branch, master has been updated
       via  020aa9b513bed8e5a31ac232670e76a22aea3ccd (commit)
      from  b92a8441e6b92dbfad6cf24928622e634c47022a (commit)

Summary of changes:
 lib/App/SD/CLI/Command/Log.pm |    3 ++-
 t/sd-log.t                    |    4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit 020aa9b513bed8e5a31ac232670e76a22aea3ccd
Author: Christine Spang <spang at bestpractical.com>
Date:   Fri Jan 30 17:51:26 2009 +0200

    expose sequence numbers when printing history

diff --git a/lib/App/SD/CLI/Command/Log.pm b/lib/App/SD/CLI/Command/Log.pm
index e5b7f5e..769ad03 100644
--- a/lib/App/SD/CLI/Command/Log.pm
+++ b/lib/App/SD/CLI/Command/Log.pm
@@ -18,8 +18,9 @@ sub handle_changeset {
         },
         header_callback => sub {
             my $c = shift;
-            sprintf "%s - %s @ %s\n",
+            sprintf "%s - %s : %s @ %s\n",
                 $c->created,
+                $c->original_sequence_no,
                 ( $c->creator || '(unknown)' ),
                 $c->original_source_uuid
                 ;
diff --git a/t/sd-log.t b/t/sd-log.t
index a830113..2b294e8 100644
--- a/t/sd-log.t
+++ b/t/sd-log.t
@@ -26,7 +26,7 @@ my ($log_id, $log_uuid) = create_ticket_ok( '--', 'summary', 'logs rock!');
 
 run_output_matches_unordered( 'sd', [ 'log', 'LATEST' ],
     [
-        qr/^\d{4}-\d{2}-\d{2}.+ - $ENV{USER} @ $replica_uuid$/,
+        qr/^\d{4}-\d{2}-\d{2}.+ - \d+ : $ENV{USER} @ $replica_uuid$/,
         qr/^ # Ticket \d+ \(logs rock!\)$/,
         '  + "original_replica" set to "'.$replica_uuid.'"',
         '  + "creator" set to "'.$ENV{USER}.'"',
@@ -49,7 +49,7 @@ run_output_matches( 'sd', [ 'ticket',
 # check the log
 run_output_matches( 'sd', [ 'log', 'LATEST' ],
     [
-        qr/^\d{4}-\d{2}-\d{2}.+ - $ENV{USER} @ $replica_uuid$/,
+        qr/^\d{4}-\d{2}-\d{2}.+ - \d+ : $ENV{USER} @ $replica_uuid$/,
         qr/^ # Ticket \d+ \(logs rock!\)$/,
         '  > "reporter" changed from "'.$ENV{EMAIL}.'" to "foo at bar.com".',
         '',

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