Got Eunit tests working with R12B-5.

Emakefile

@@ -1,5 +1,6 @@
 { './src/*', [
 	{ i, "./include" },
 	{ outdir, "./ebin" },
+	{ d, 'TEST', true },
 	debug_info
 ]}.

README.md

@@ -1,9 +1,16 @@
 This is an implementation of OpenID version 1.1.
 
+Requirements: R12B-5 and Mochiweb
+
 To run the currently working parts:
 
     erl -pa ./ebin -pa ~/svn/mochiweb-read-only/ebin -s inets
 
     eopenid_v1:discover("www.tornkvist.org").
+
+    % To run the Unit Tests
+    eopenid_v1:test().
+
+
 
 

src/eopenid_v1.erl

@@ -6,9 +6,13 @@
 -module(eopenid_v1).
 
 -export([discover/1
-         ,t/1
         ]).
 
+-ifdef(TEST).
+-export([t/1
+        ]).
+-endif.
+
 -import(eopenid_lib, 
         [new/0
          ,in/2
@@ -21,7 +25,6 @@
 
 -include_lib("xmerl/include/xmerl.hrl").
 
-%%-define(TEST, true). % temporary
 -ifdef(TEST).
 -include_lib("eunit/include/eunit.hrl").
 -endif.
@@ -123,7 +126,11 @@ gelems([E|T], L, S) when is_list(L) ->
                 end, S, L);
 gelems(_, _, S) -> S.
 
+
+
+
 -ifdef(EUNIT).
+
 gelem_test() ->
     ?assertMatch([{<<"link">>,
                    [{<<"rel">>,<<"openid.delegate">>},
@@ -135,7 +142,6 @@ gelem_test() ->
                    []}],
                  t(1)).
 
--endif.
 
 t(1) ->
     gelems([<<"html">>,<<"head">>,<<"link">>], data()).
@@ -175,3 +181,5 @@ data() ->
                [{<<"href">>,<<"http://domerl.tornkvist.org/">>}],
                [<<"A Domerl Example">>]}]}]}]}]}]}.
 
+
+-endif.