Changeset 93 for trunk/src/compiler_test.erl

Timestamp:

01/29/10 07:56:02 (2 years ago)

Author:

dom

Message:

Include directories can be given to compiler

File:

• trunk/src/compiler_test.erl (modified) (3 diffs)

trunk/src/compiler_test.erl

@@ -13 +13 @@
 -export ([notifies_removed_files_even_if_never_compiled/0]).
 -export ([provides_all_binaries_not_just_latest_when_all_compiled/0]).
+-export ([can_be_given_include_directories/0]).
 -include_lib("stdlib/include/ms_transform.hrl").
 
@@ -63 +64 @@
     ok = fixtures: use_tree (Tree, F).
 
+can_be_given_include_directories () ->
+    Src = "-module(inc).\n-include(\"inc.hrl\").",
+    Inc = "-define(yo,\"YO\").",
+    Tree = [{directory, "include", [{file, "inc.hrl", Inc}]},
+            {directory, "src", [{file, "inc.erl", Src}]}],
+    ok = fixtures: use_tree (Tree, fun include_no_directory/2),
+    ok = fixtures: use_tree (Tree, fun include_with_directory/2).
+
 provides_binaries_when_all_compiled (Root, _) ->
     Compiler = spawn_link (compiler, init, [notify_me (), Root]),
@@ -136 +145 @@
     ok.
 
+include_no_directory (Root, _) ->
+    Src = filename: join (Root, "src"),
+    Compiler = spawn_link (compiler, init, [notify_me (), Src]),
+    Compiler ! check,
+    [{1, 0, 0}, {_, _}, {1, 1, 0}] = receive_all (),
+    Compiler ! {self (), stop},
+    ok.
+
+include_with_directory (Root, _) ->
+    Src = filename: join (Root, "src"),
+    Inc = filename: join (Root, "include"),
+    Compiler = spawn_link (compiler, init, [notify_me (), Src, [{i, Inc}]]),
+    Compiler ! check,
+    [{1, 0, 0}, {1, 1, 1}, {{binaries, _}, _}] = receive_all (),
+    Compiler ! {self (), stop},
+    ok.
+    
 check ([{Total, 0, 0} | _] = Xs, unknown) ->
     check (Xs, Total);