Diff of /trunk/Toss/GGP/TranslateGameTest.ml [r1812] .. [r1813] Maximize Restore

  Switch to side-by-side view

--- a/trunk/Toss/GGP/TranslateGameTest.ml
+++ b/trunk/Toss/GGP/TranslateGameTest.ml
@@ -55,6 +55,8 @@
   (* * output_string resf res_str;
   close_out resf; * *)
   (* let eq, msg = Arena.compare_diff goal res in *)
+  let goal_str, res_str = 
+    Aux.normalize_spaces goal_str, Aux.normalize_spaces res_str in
   let eq, msg = goal_str = res_str, "sorry, just comparing as strings" in
   assert_bool ("tests for " ^ game_name ^ " failed (" ^ goal_name ^ ")")
 	(* "GGP/examples/"^game_name^".gdl to GGP/tests/"^goal_name^
@@ -109,6 +111,8 @@
   (* * output_string resf res_str;
   close_out resf; * *)
   (* let eq, msg = Arena.compare_diff goal res in *)
+  let goal_str, res_str = 
+    Aux.normalize_spaces goal_str, Aux.normalize_spaces res_str in
   let eq, msg = goal_str = res_str, "sorry, just comparing as strings" in
   assert_bool ("tests for " ^ game_name ^ " failed (" ^ goal_name ^ ")")
 	(*"GGP/examples/"^game_name^".gdl to GGP/tests/"^goal_name^