Changeset 96 for trunk/src/modules_test.erl

Timestamp:

08/19/10 09:26:03 (21 months ago)

Author:

dom

Message:

Continue work on include files

File:

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

trunk/src/modules_test.erl

@@ -4 +4 @@
 
 -module (modules_test).
--test (exports).
+-test (module_name).
+-test (locate).
+-test (includes).
 -export ([module_name/0]).
 -export ([locate/0]).
+-export ([includes_tree/0]).
+-export ([includes/0]).
 
 module_name () ->
@@ -29 +33 @@
     {File, 3} = modules: locate ({eg_code, ok, 0}, Binary),
     ok.
+
+includes_tree () ->
+    [{file, "eg_include.hrl", "-define(eg_macro,ok)."},
+     {file, "eg_code_with_include.erl",
+      ["-module (eg_code_with_include).",
+       "-export ([ok/0]).",
+       "-include (\"eg_include.hrl\").",
+       "ok () -> ?eg_macro."]},
+     {file, "eg_code_no_include.erl",
+      ["-module (eg_code_no_include).",
+       "-export ([ok/0]).",
+       "ok () -> ok."]},
+     {directory, "dir",
+      [{file, "eg_include_in_dir.hrl", "-define(eg_macro2,nok)."}]},
+     {file, "eg_code_include_with_path.erl",
+      ["-module (eg_code_include_with_path).",
+       "-include (\"dir/eg_include_in_dir.hrl\").",
+       "-export ([ok/0]).",
+       "ok () -> ok."]}].
+
+includes () ->
+    ok = fixtures: use_tree (includes_tree (), fun includes/2).
+
+includes (Root, _) ->
+    Without = filename: join (Root, "eg_code_no_include.erl"),
+    [] = modules: includes (Without),
+    With = filename: join (Root, "eg_code_with_include.erl"),
+    ["eg_include.hrl"] = modules: includes (With),
+    With_path = filename: join (Root, "eg_code_include_with_path.erl"),
+    ["dir/eg_include_in_dir.hrl"] = modules: includes (With_path),
+    ok.