From 0d39716d6493ab31780dc7bba9d376bd7218f233 Mon Sep 17 00:00:00 2001
From: ssmith
Date: Sun, 14 May 2006 02:02:10 -0700
Subject: Misc updates in preparation for encoder

---
 tests.erl | 39 ++++++++++++++++++++++-----------------
 1 file changed, 22 insertions(+), 17 deletions(-)

(limited to 'tests.erl')

diff --git a/tests.erl b/tests.erl
index 92f5646..2fc7569 100644
--- a/tests.erl
+++ b/tests.erl
@@ -3,45 +3,50 @@
 
 -include("eunit.hrl").
 
--export([start/0, 
-	 test_int1/0, test_int2/0, test_int3/0, test_int4/0, 
-	 test_string1/0, test_string2/0, 
-	 test_list1/0, test_list2/0, test_list3/0, test_list4/0, test_list5/0, 
-	 test_dict1/0]).
+-export([start/0]).
+-export([test_dec_int1/0, test_dec_int2/0, test_dec_int3/0, test_dec_int4/0, 
+	 test_dec_string1/0, test_dec_string2/0, 
+	 test_dec_list1/0, test_dec_list2/0, test_dec_list3/0, test_dec_list4/0, test_dec_list5/0, 
+	 test_dec_dict1/0]).
+-export([test_enc_int1/0]).
 
 %% Integer decoding tests
-test_int1() ->
+test_enc_int1() ->
+    ?match("i999e", bencode:bencode(999)).
+
+%% Integer decoding tests
+test_dec_int1() ->
     ?match({{int, 999}, []}, bencode:bdecode("i999e")).
-test_int2() ->
+test_dec_int2() ->
     ?match({{int, 0}, []}, bencode:bdecode("i0e")).
-test_int3() ->
+test_dec_int3() ->
     ?match({{int, 123}, "abc"}, bencode:bdecode("i123eabc")).
-test_int4() ->
+test_dec_int4() ->
     ?match({{int, -10}, []}, bencode:bdecode("i-10e")).
 
 %% String decoding tests
-test_string1() ->
+test_dec_string1() ->
     ?match({{string, ""}, []}, bencode:bdecode("0:")).
-test_string2() ->
+test_dec_string2() ->
     ?match({{string, "abcde"}, []}, bencode:bdecode("5:abcde")).
 
 %% List decoding tests
-test_list1() ->
+test_dec_list1() ->
     ?match({{list, []}, []}, bencode:bdecode("le")).
-test_list2() ->
+test_dec_list2() ->
     ?match({{list, [{int,1}]}, []}, bencode:bdecode("li1ee")).
-test_list3() ->
+test_dec_list3() ->
     ?match({{list, [{int,1}]}, []}, bencode:bdecode("li1ee")).
-test_list4() ->
+test_dec_list4() ->
     ?match({{list, [{int,1}, {int,2}]}, []}, bencode:bdecode("li1ei2ee")).
-test_list5() ->
+test_dec_list5() ->
     ?match({{list, [{int,1},
 		    {list, [{int, 2}, {int, 3}]}]},
 	   []}, 
 	   bencode:bdecode("li1eli2ei3eee")).
 
 %% Dict decoding tests
-test_dict1() ->
+test_dec_dict1() ->
     {{dict, Dict}, []} = bencode:bdecode("d3:agei25e4:eyes4:bluee"),
     ?match([{"age", {int, 25}}, {"eyes", {string, "blue"}}], dict:to_list(Dict)).
 
-- 
cgit v1.2.3