;;;; tiger-hash-test.scm

(use test)
(use tiger-hash)

;;;

(test-group "Tiger Hash"

	(test-group "Strings"
		(test "S1" "24f0130c63ac933216166e76b1bb925ff373de2d49584e7a" (tiger192-digest ""))
		(test "S2" "f258c1e88414ab2a527ab541ffc5b8bf935f7b951c132951" (tiger192-digest "abc"))
		(test "S3" "9f00f599072300dd276abb38c8eb6dec37790c116f9d2bdf" (tiger192-digest "Tiger"))
		(test "S4" "87fb2a9083851cf7470d2cf810e6df9eb586445034a5a386" (tiger192-digest "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+-"))
		(test "S5" "467db80863ebce488df1cd1261655de957896565975f9197" (tiger192-digest "ABCDEFGHIJKLMNOPQRSTUVWXYZ=abcdefghijklmnopqrstuvwxyz+0123456789"))
		(test "S6" "0c410a042968868a1671da5a3fd29a725ec1e457d3cdb303" (tiger192-digest "Tiger - A Fast New Hash Function, by Ross Anderson and Eli Biham"))
		(test "S7" "00b83eb4e53440c576ac6aaee0a7485825fd15e70a59ffe4" (tiger192-digest "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+-ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+-"))
	)
)