Diff of /perl/modperl/trunk/ModPerl-Registry/t/ithreads.t

Parent Directory | Revision Log | Patch

--- perl/modperl/trunk/ModPerl-Registry/t/ithreads.t	2005/02/08 00:01:42	151797
+++ perl/modperl/trunk/ModPerl-Registry/t/ithreads.t	2005/02/08 00:17:27	151798
@@ -13,8 +13,11 @@ plan tests => 1, need
     {"perl 5.8.1 or higher w/ithreads enabled is required" => HAS_ITHREADS};
 
 {
-    my $expected = join "\n", map("thread $_", 1..4), "parent";
+    # the order of prints on the server side is not important here,
+    # what's important is that we get all the printed strings
+    my @expected = sort map("thread $_", 1..4), "parent";
     my $url = "/registry_modperl_handler/ithreads_io_n_tie.pl";
-    my $received = GET_BODY_ASSERT($url);
-    ok t_cmp $received, $expected;
+    my $received = GET_BODY_ASSERT($url) || '';
+    my @received = sort split /\n/, $received;
+    ok t_cmp \@received, \@expected;
 }