more test cases

src/emqttd_guid.erl

@@ -35,6 +35,10 @@
 
 -type guid() :: <<_:128>>.
 
+-ifdef(TEST).
+-compile(export_all).
+-endif.
+
 %% @doc Generate a global unique id.
 -spec gen() -> guid().
 gen() ->

src/emqttd_packet.erl

@@ -26,6 +26,10 @@
 
 -export([format/1]).
 
+-ifdef(TEST).
+-compile(export_all).
+-endif.
+
 %% @doc Protocol name of version
 -spec protocol_name(mqtt_vsn()) -> binary().
 protocol_name(Ver) when Ver =:= ?MQTT_PROTO_V31; Ver =:= ?MQTT_PROTO_V311 ->

src/emqttd_pubsub_sup.erl

@@ -31,6 +31,10 @@
 %% Supervisor callbacks
 -export([init/1]).
 
+-ifdef(TEST).
+-compile(export_all).
+-endif.
+
 start_link() ->
     supervisor:start_link({local, ?MODULE}, ?MODULE, [emqttd_broker:env(pubsub)]).
 

test/emqttd_guid_tests.erl

@@ -25,7 +25,6 @@ gen_test() ->
     Guid2 = emqttd_guid:gen(),
     ?assertMatch(<<_:128>>, Guid1),
     ?assertEqual(true, Guid2 >= Guid1),
-    emqttd_guid:ts(r17),
     {Ts, _, 0} = Tup = emqttd_guid:new(),
     ?assertEqual(Ts, emqttd_guid:timestamp(emqttd_guid:bin(Tup))).