[Rt-commit] r4179 - in rt/branches/CHALDEA-EXPERIMENTAL: . lib/t/regression

[jesse at bestpractical.com]

Author: jesse
Date: Wed Nov 30 16:26:50 2005
New Revision: 4179

Modified:
   rt/branches/CHALDEA-EXPERIMENTAL/   (props changed)
   rt/branches/CHALDEA-EXPERIMENTAL/lib/t/regression/20-sort-by-requestor.t
Log:
 r19596 at truegrounds:  jesse | 2005-11-30 16:05:00 -0500
  r19553 at truegrounds:  jesse | 2005-11-30 15:26:01 -0500
   r19552 at truegrounds (orig r4155):  alexmv | 2005-11-30 15:26:08 -0500
    r7395 at zoq-fot-pik:  chmrr | 2005-11-30 15:25:32 -0500
     * Sort by requestor tests fail on some database backends because they
    sort nulls differently than Perl does; only compare non-nulls
   
  
 


Modified: rt/branches/CHALDEA-EXPERIMENTAL/lib/t/regression/20-sort-by-requestor.t
==============================================================================
--- rt/branches/CHALDEA-EXPERIMENTAL/lib/t/regression/20-sort-by-requestor.t	(original)
+++ rt/branches/CHALDEA-EXPERIMENTAL/lib/t/regression/20-sort-by-requestor.t	Wed Nov 30 16:26:50 2005
@@ -58,7 +58,7 @@
     my @mails;
     while (my $t = $tix->Next) { push @mails, $t->RequestorAddresses; }
     is(@mails, 6, "found six tickets");
-    is_deeply( \@mails, [ sort @mails ], "Addresses are sorted");
+    is_deeply( [grep {$_} @mails], [ sort grep {$_} @mails ], "Addresses are sorted (exclude nulls, which are db-dependant)");
 }
 
 # vim:ft=perl: