Changeset 92 for trunk/src/modules_test.erl

Timestamp:

01/28/10 16:21:51 (2 years ago)

Author:

dom

Message:

File and line is now provided for test failures

File:

• trunk/src/modules_test.erl (modified) (2 diffs)

trunk/src/modules_test.erl

@@ -6 +6 @@
 -test (exports).
 -export ([module_name/0]).
+-export ([locate/0]).
 
 module_name () ->
@@ -11 +12 @@
     hello = modules: module_name ("bla/hello.erl").
     
+locate () ->
+    ok = fixtures: use_tree (tree (), fun locate/2).
+
+tree () ->
+    [{file, "eg_code.erl",
+      ["-module (eg_code).",
+       "-export ([ok/0]).",
+       "ok () ->",
+       "    ok.",
+       "yo () ->",
+       "    yo."]}].
+
+locate (Root, _) ->
+    File = filename: join (Root, "eg_code.erl"),
+    Binary = modules: to_binary (File),
+    {File, 3} = modules: locate ({eg_code, ok, 0}, Binary),
+    ok.