(use test)
(use blob-hexadecimal)
(use blob-set-int)

(test-begin "Blob Utils")

(test-group "-> Hex"
	(test "414243444546" (blob->hex (string->blob "ABCDEF")))
	(test "4243444546" (blob->hex (string->blob "ABCDEF") 1))
	(test "4243" (blob->hex (string->blob "ABCDEF") 1 3))
)

#;
(test-group "Set Int"
)

(test-end)

(test-exit)