From 6af72ef686ecc1c29c18bd0cbfbdd91e4ade9b26 Mon Sep 17 00:00:00 2001
From: Guido Günther <agx@sigxcpu.org>
Date: Tue, 29 Oct 2013 14:32:43 +0100
Subject: Initial commit

---
 test/guid_test.erl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 test/guid_test.erl

(limited to 'test')

diff --git a/test/guid_test.erl b/test/guid_test.erl
new file mode 100644
index 0000000..d98c853
--- /dev/null
+++ b/test/guid_test.erl
@@ -0,0 +1,29 @@
+-module(guid_test).
+-include_lib("eunit/include/eunit.hrl").
+
+% Test descriptions
+v4_test_() ->
+    [{"A v4 uuid must have version 4",
+      check_v4_version()},
+     {"A uuid must be 16 bytes",
+      check_v4_length()}
+    ].
+
+text_test_() ->
+    [{"The text representation must be 38 characters long",
+      check_v4_string_length()}
+    ].
+
+% Tests
+check_v4_version() ->
+    Uuid = guid:v4(),
+    [?_assertEqual(guid:version(Uuid), 4)].
+
+
+check_v4_length() ->
+    Uuid = guid:v4(),
+    [?_assertEqual(byte_size(Uuid), 16)].
+
+check_v4_string_length() ->
+    String = guid:v4string(),
+    [?_assertEqual(length(String), 36)].
-- 
cgit v1.2.3