Changeset 88 for trunk/src/fixtures_test.erl

Timestamp:

08/06/09 11:28:55 (3 years ago)

Author:

dom

Message:

Fixed minor bug in fixtures:make_tree/2

File:

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

trunk/src/fixtures_test.erl

@@ -12 +12 @@
 -export ([use_tree_destroys_tree_even_if_trapexit/0]).
 -export ([use_tree_destroys_tree_even_if_killed_by_parent_link/0]).
+-export ([make_tree_accepts_single_character_content/0]).
 
 temporary_pathname () ->
@@ -55 +56 @@
     pass.
 
+make_tree_accepts_single_character_content () ->
+    Tmp_dirname = fixtures: temporary_pathname(),
+    Tree = [{file, "myfile", "a"}],
+    ok = fixtures: make_tree (Tmp_dirname, Tree),
+    {ok, B} = file: read_file (filename: join (Tmp_dirname, "myfile")),
+    "a" = binary_to_list (B),
+    fixtures: delete_tree (Tmp_dirname),
+    pass.
+    
 use_tree_passes_a_tree_to_a_fun () ->
     Tmp = fixtures: temporary_pathname (),