SHA1Stream.st
changeset 12874 c89ad0aca120
parent 12752 8fcec2d8c8a0
child 13878 02134ed737a0
--- a/SHA1Stream.st	Mon Apr 12 21:27:17 2010 +0200
+++ b/SHA1Stream.st	Tue Apr 13 16:36:36 2010 +0200
@@ -443,17 +443,26 @@
     "Test Vectors (from FIPS PUB 180-1)"
 
     ^ #(
-	('abc'
-	 #[16rA9 16r99 16r3E 16r36  16r47 16r06 16r81 16r6A  16rBA 16r3E 16r25 16r71
-	   16r78 16r50 16rC2 16r6C  16r9C 16rD0 16rD8 16r9D])
+        ('Franz jagt im komplett verwahrlosten Taxi quer durch Bayern'
+         '68ac906495480a3404beee4874ed853a037a7a8f')
+
+        ('Frank jagt im komplett verwahrlosten Taxi quer durch Bayern'
+         'd8e8ece39c437e515aa8997c1a1e94f1ed2a0e62')
+
+        (''
+         'da39a3ee5e6b4b0d3255bfef95601890afd80709')
 
-	('abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq'
-	  #[16r84 16r98 16r3E 16r44  16r1C 16r3B 16rD2 16r6E  16rBA 16rAE 16r4A 16rA1
-	    16rF9 16r51 16r29 16rE5  16rE5 16r46 16r70 16rF1])
+        ('abc'
+         #[16rA9 16r99 16r3E 16r36  16r47 16r06 16r81 16r6A  16rBA 16r3E 16r25 16r71
+           16r78 16r50 16rC2 16r6C  16r9C 16rD0 16rD8 16r9D])
+
+        ('abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq'
+          #[16r84 16r98 16r3E 16r44  16r1C 16r3B 16rD2 16r6E  16rBA 16rAE 16r4A 16rA1
+            16rF9 16r51 16r29 16rE5  16rE5 16r46 16r70 16rF1])
        ) copyWith:
-	(Array with:(String new:1000000 withAll:$a)
-	       with:#[16r34 16rAA 16r97 16r3C  16rD4 16rC4 16rDA 16rA4  16rF6 16r1E 16rEB 16r2B
-		      16rDB 16rAD 16r27 16r31  16r65 16r34 16r01 16r6F])
+        (Array with:(String new:1000000 withAll:$a)
+               with:#[16r34 16rAA 16r97 16r3C  16rD4 16rC4 16rDA 16rA4  16rF6 16r1E 16rEB 16r2B
+                      16rDB 16rAD 16r27 16r31  16r65 16r34 16r01 16r6F])
 
     "
      self test
@@ -673,11 +682,11 @@
 !SHA1Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.18 2010-03-04 14:33:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.19 2010-04-13 14:36:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.18 2010-03-04 14:33:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.19 2010-04-13 14:36:36 cg Exp $'
 ! !
 
 SHA1Stream initialize!