Changeset 84 for trunk

Timestamp:

08/03/09 04:53:48 (3 years ago)

Author:

dom

Message:

Replace fix/eg_... files by fixtures:use_tree/2 files

File:

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

trunk/src/directory_watcher_test.erl

@@ -1 @@
-%%% Copyright (C) 2009 Dominic Williams, Nicolas Charpentier
+%%% Copyright (C) Dominic Williams, Nicolas Charpentier
 %%% All rights reserved.
 %%% See file COPYING.
@@ -78 +78 @@
 
 insensitive_to_cwd () ->
-    Watcher = spawn_link (directory_watcher, init, ["fix", send_me ()]),
-    receive_all (),
-    ok = file: set_cwd ("/tmp"),
+    Tree = [{directory, "mydir", []}],
+    Fun = fun insensitive_to_cwd/2,
+    ok = fixtures: use_tree (Tree, Fun).
+    
+insensitive_to_cwd (Root, [{directory, Name, _}]) ->
+    Dir = filename: join (Root, Name),
+    Watcher = spawn_link (directory_watcher, init, [Dir, send_me ()]),
+    receive_all (),
+    {ok, Cwd} = file: get_cwd (),
+    ok = file: set_cwd (Root),
     Watcher ! check,
     true = is_process_alive (Watcher),
     [] = receive_all (),
+    ok = file: set_cwd (Cwd),
     ok.