Changeset 88 for trunk

Timestamp:

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

Author:

dom

Message:

Fixed minor bug in fixtures:make_tree/2

Location:

trunk

Files:

• doc/TODO (modified) (1 diff)
• src/fixtures.erl (modified) (1 diff)
• src/fixtures_test.erl (modified) (2 diffs)

trunk/doc/TODO

@@ -3 +3 @@
 Known issues:
 ------------
-
-- fixtures:make_tree doesn't like {file, "a", "a"} in tree.
 
 Check for possible bugs:

trunk/src/fixtures.erl

@@ -44 +44 @@
     ok.
 
-normalise ([H | []]) ->
-    H;
+normalise ([String]) when is_list (String) ->
+    String;
 normalise ([H | T]) when is_list (H) ->
     %% Inserts newlines when list of strings...
     normalise ([string: concat (H, string: concat ("\n", hd (T))) | tl (T)]);
-normalise ([String]) when is_list (String) ->
-    String;
 normalise (String) when is_list (String) ->
     String.

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 (),