svn commit: rev 6365 - incubator/spamassassin/trunk/t

[fe...@apache.org]

Author: felicity
Date: Fri Jan 30 13:03:54 2004
New Revision: 6365

Modified:
   incubator/spamassassin/trunk/t/sha1.t
Log:
quinlan didn't like my sha1.t modifications, so I'm backing out the patch since it's not a hot issue for me.

Modified: incubator/spamassassin/trunk/t/sha1.t
==============================================================================
--- incubator/spamassassin/trunk/t/sha1.t	(original)
+++ incubator/spamassassin/trunk/t/sha1.t	Fri Jan 30 13:03:54 2004
@@ -22,7 +22,7 @@
 use Mail::SpamAssassin::SHA1;
 use constant HAS_DIGEST_SHA1 => eval { require Digest::SHA1; };
 
-plan tests => 18;
+plan tests => 15;
 
 sub try {
   my ($data, $want) = @_;
@@ -57,7 +57,7 @@
   return $string;
 }
 
-my $text_blob = <<END;
+my $habeas = <<END;
 X-Habeas-SWE-1: winter into spring
 X-Habeas-SWE-2: brightly anticipated
 X-Habeas-SWE-3: like Habeas SWE (tm)
@@ -69,16 +69,9 @@
 X-Habeas-SWE-9: mark in spam to <http://www.habeas.com/report/>.
 END
 
-$text_blob =~ tr/A-Z/a-z/;
-$text_blob =~ tr/ / /s;
-$text_blob =~ s/\/?>/\/>/;
-
-# check the valid one
-ok(try($text_blob, "42ab3d716380503f66c4d44017c7f37b04458a9a"));
-
-# check an invalid one
-$text_blob =~ s/0/O/;
-ok(!try($text_blob, "42ab3d716380503f66c4d44017c7f37b04458a9a"));
+$habeas =~ tr/A-Z/a-z/;
+$habeas =~ tr/ / /s;
+$habeas =~ s/\/?>/\/>/;
 
 # fixed strings
 ok(try("squeamish ossifrage\n", "820550664cf296792b38d1647a4d8c0e1966af57"));
@@ -86,28 +79,6 @@
 ok(try("abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq",
        "84983e441c3bd26ebaae4aa1f95129e5e54670f1"));
 
-# longest word in the english language ...
-ok(try("pneuminoultramicroscopicosilicovolcanokoniosis", "6cd152f7a76fb5c2717cee2fdf9c0cdca798cd33"));
-
-
-$text_blob = <<END;
-"I wonder if they'd use a cow as a heat shield for a space rocket...  Make it
-kind of like a barbeque...  They can land in the ocean, get out, and have
-some hamburgers...  They can mingle and wait for the Navy to arrive..." - Theo
-END
-
-ok(try($text_blob, '65aaa454875b1a5342ecdfe41786117201126aad'));
-
-$text_blob .= <<END;
- if you're happy and you know it eat some spam.    
- if your arteries aren't congested have some ham.
- if you're happy and you know it and your cholesterol isn't bloated have some
-  ham and eggs and bacon while you can.         
-END
-
-ok(!try($text_blob, '65aaa454875b1a5342ecdfe41786117201126aad'));
-
-
 # garbled strings
 ok(try(string(287, 1), "909f99a779adb66a76fc53ab56c7dd1caf35d0fd"));
 ok(try(string(648, 16), "44793ba2b430507c5be08165e5b003977e31d0b2"));
@@ -120,3 +91,9 @@
 ok(try(string(367, 51474), "15201559b3ffb278918a2f7a35d2b702a72fb391"));
 ok(try(string(504, 64273), "73e56c49eecef44a53048e27baa42e491375eb23"));
 
+# habeas
+ok(try($habeas, "42ab3d716380503f66c4d44017c7f37b04458a9a"));
+
+# anti-habeas
+$habeas =~ s/0/O/;
+ok(!try($habeas, "42ab3d716380503f66c4d44017c7f37b04458a9a"));