From: Nathan Wagner <nw@hydaspes.if.org>
Date: Fri, 14 Sep 2012 08:38:54 +0000 (+0000)
Subject: Added test cases for name based uuids.
X-Git-Url: https://pd.if.org/git/?p=uuid;a=commitdiff_plain;h=0dd60dc0394ba687e8bb4116aefc12dbd2c69402

Added test cases for name based uuids.
---

diff --git a/Makefile b/Makefile
index 348c3aa..3dd183c 100644
--- a/Makefile
+++ b/Makefile
@@ -20,7 +20,7 @@ libpduuid.a:	$(OBJ)
 t/%.t:	t/%.o t/ctap.o libpduuid.a
 	$(CC) $(CFLAGS) -Wall -I. -o $@ $< t/ctap.o -lpduuid
 
-test:	t/uuidgen.t libpduuid.a
+test:	t/md5.t t/sha1.t t/uuidgen.t libpduuid.a
 	prove t/*.t
 
 md5.o:	md5.c
diff --git a/t/uuidgen.c b/t/uuidgen.c
index 8a6e45f..4ab3cf4 100644
--- a/t/uuidgen.c
+++ b/t/uuidgen.c
@@ -78,7 +78,7 @@ int main(int ac, char *av[]) {
 	srandom(time(0));
 #endif
 
-	plan(13);
+	plan(15);
 
 	pd_uuid_init_state(0);
 	pd_uuid_make_v1mc(0, &uuid);
@@ -141,6 +141,11 @@ int main(int ac, char *av[]) {
 	pd_set_uuid_hash(&uuid, hash, 5);
 	str_ok(&uuid, "622e4fa5-7481-57ed-9c91-19e1ba69bf88", "set from hash");
 
+	pd_uuid_make_v3(0, &uuid, &pd_uuid_ns_dns, "www.widgets.com", strlen("www.widgets.com"));
+	str_ok(&uuid, "3d813cbb-47fb-32ba-91df-831e1593ac29", "md5 dns");
+	pd_uuid_make_v5(0, &uuid, &pd_uuid_ns_dns, "www.widgets.com", strlen("www.widgets.com"));
+	str_ok(&uuid, "21f7f8de-8051-5b89-8680-0195ef798b6a", "md5 dns");
+
 	pd_uuid_rng_get_bytes(hash, 5);
 
 	/* try to get two in very short sequence */