From ca4633fd683527097451ca1398c90c87bb5c14fc Mon Sep 17 00:00:00 2001
From: Stavros Aronis <aronisstav@gmail.com>
Date: Sat, 2 Apr 2011 18:57:42 +0300
Subject: Rename suite data directories

---
 lib/dialyzer/test/small_SUITE_data/src/flatten.erl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 lib/dialyzer/test/small_SUITE_data/src/flatten.erl

(limited to 'lib/dialyzer/test/small_SUITE_data/src/flatten.erl')

diff --git a/lib/dialyzer/test/small_SUITE_data/src/flatten.erl b/lib/dialyzer/test/small_SUITE_data/src/flatten.erl
new file mode 100644
index 0000000000..e424d5404c
--- /dev/null
+++ b/lib/dialyzer/test/small_SUITE_data/src/flatten.erl
@@ -0,0 +1,18 @@
+%%%-------------------------------------------------------------------
+%%% File    : flatten.erl
+%%% Author  : Tobias Lindahl <tobiasl@csd.uu.se>
+%%% Description :
+%%%
+%%% Created :  4 Nov 2007 by Tobias Lindahl <tobiasl@csd.uu.se>
+%%%-------------------------------------------------------------------
+-module(flatten).
+
+-export([t/1]).
+
+t(Dir) ->
+  case file:list_dir(Dir) of
+    {ok,FileList} ->
+      FileList;
+    {error,Reason} ->
+      {error,lists:flatten("Can't open directory "++Dir++": "++Reason)}
+  end.
-- 
cgit v1.2.3