[Rt-commit] r4155 - in rt/branches/QUEBEC-EXPERIMENTAL: . lib/t/regression

[alexmv at bestpractical.com]

Author: alexmv
Date: Wed Nov 30 15:26:08 2005
New Revision: 4155

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
   rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/20-sort-by-requestor.t
Log:
 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/QUEBEC-EXPERIMENTAL/lib/t/regression/20-sort-by-requestor.t
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/20-sort-by-requestor.t	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/20-sort-by-requestor.t	Wed Nov 30 15:26:08 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: