[Bps-public-commit] r11514 - in SVN-PropDB: t

clkao at bestpractical.com clkao at bestpractical.com
Fri Apr 4 20:37:42 EDT 2008


Author: clkao
Date: Fri Apr  4 20:37:41 2008
New Revision: 11514

Modified:
   SVN-PropDB/lib/Prophet/Collection.pm
   SVN-PropDB/t/sd-rt.t

Log:
sort collection order by uuid for now.


Modified: SVN-PropDB/lib/Prophet/Collection.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Collection.pm	(original)
+++ SVN-PropDB/lib/Prophet/Collection.pm	Fri Apr  4 20:37:41 2008
@@ -61,7 +61,7 @@
 
     # run coderef against each item;
     # if it matches, add it to _items
-    foreach my $key ( keys %$nodes ) {
+    foreach my $key ( sort keys %$nodes ) {
         my $record = $self->record_class->new( { handle => $self->handle, type => $self->type } );
         $record->load( uuid => $key );
         if ( $coderef->($record) ) {

Modified: SVN-PropDB/t/sd-rt.t
==============================================================================
--- SVN-PropDB/t/sd-rt.t	(original)
+++ SVN-PropDB/t/sd-rt.t	Fri Apr  4 20:37:41 2008
@@ -65,7 +65,7 @@
 diag $yatta_uuid;
 
 run_output_matches('sd', ['ticket', '--list', '--regex', '.'],
-                   [ 
+                   [ sort 
                     "$yatta_uuid YATTA new",
                      "$flyman_uuid Fly Man open",
                    ]);
@@ -83,7 +83,7 @@
 
 
 run_output_matches('sd', ['ticket', '--list', '--regex', '.'],
-                   [ 
+                   [ sort
                     "$yatta_uuid YATTA new",
                      "$flyman_uuid Fly Man open",
                    ]);
@@ -94,22 +94,24 @@
         status => 'stalled',
     )->store();
 
+($ret, $out, $err) = run_script('sd', ['pull', $sd_rt_url]);
+
 run_output_matches('sd', ['ticket', '--list', '--regex', '.'],
-                   [ 
+                   [ sort
                     "$yatta_uuid YATTA open",
                      "$flyman_uuid Fly Man stalled",
                    ]);
 
 RT::Client::REST::Ticket->new(
         rt => $rt,
-        id => @tix[0],
+        id => $tix[0],
         status => 'open',
     )->store();
 
 ($ret, $out, $err) = run_script('sd', ['pull', $sd_rt_url]);
 
 run_output_matches('sd', ['ticket', '--list', '--regex', '.'],
-                   [ 
+                   [ sort
                     "$yatta_uuid YATTA open",
                      "$flyman_uuid Fly Man stalled",
                    ]);



More information about the Bps-public-commit mailing list