Changeset 85 for trunk/src/fixtures.erl

Timestamp:

08/04/09 06:06:37 (3 years ago)

Author:

dom

Message:

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

File:

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

trunk/src/fixtures.erl

@@ -9 +9 @@
 -export ([use_tree/3]).
 -export ([use_tree/2]).
+-export ([unique_string/0]).
 -include_lib ("kernel/include/file.hrl").
 
@@ -28 +29 @@
 unique_string () ->
     Node = atom_to_list (node ()),
+    [Name, Host] = string: tokens (Node, "@"),
     [Mega, Sec, Micro] = [integer_to_list (X) || X <- tuple_to_list (now ())],
-    Node ++ "_" ++ Mega ++ "_" ++ Sec ++ "_" ++ Micro.
+    Name ++ "_at_" ++ Host ++ "_" ++ Mega ++ "_" ++ Sec ++ "_" ++ Micro.
 
 populate (Directory, [{file, Name, Content} | Tail]) ->