From e03f3cf69d475b2aa90a133cdd39835dcc3c1781 Mon Sep 17 00:00:00 2001
From: Jeena Paradies <spam@jeenaparadies.net>
Date: Tue, 22 Feb 2011 00:15:21 +0100
Subject: [PATCH] better js_erlang_test

---
 src/ggs_gamevm.erl | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/src/ggs_gamevm.erl b/src/ggs_gamevm.erl
index 294eb10..6dd19a7 100644
--- a/src/ggs_gamevm.erl
+++ b/src/ggs_gamevm.erl
@@ -120,14 +120,11 @@ user_command_test() ->
     user_command(GameVM, "'jeena", "thecommand", "theargs'"),
     ?assertMatch(<<"'jeenathecommandtheargs'">>, gen_server:call(GameVM, {eval, "t;"})).
 
-to_string({A, B, C}) ->
-  "{" ++ integer_to_list(A) ++ ", " ++ integer_to_list(B) ++ ", " ++ integer_to_list(C) ++ "}".
-    
-user_command2_test() ->
+js_erlang_test() ->
     GameVM = start_link(test_table),
     define(GameVM, "var t = '';\nfunction userCommand(user, command, args) { t = callErlang('erlang time') + ''; }\n"),
     user_command(GameVM, "", "", ""),
-	T = to_string(erlang:time()),
-    io:format("test ~p~n", [T]),
-    ?assertMatch(T, binary_to_list(gen_server:call(GameVM, {eval, "t;"}))).
+	{A, B, C} = erlang:time(),
+	T = "{" ++ integer_to_list(A) ++ ", " ++ integer_to_list(B) ++ ", " ++ integer_to_list(C) ++ "}",
+	?assertMatch(T, binary_to_list(gen_server:call(GameVM, {eval, "t;"}))).