From da3d4c3bc803a8697c2e35c95d05417ac39ad497 Mon Sep 17 00:00:00 2001
From: Gustav Simonsson <gustav@erlang.org>
Date: Tue, 14 Feb 2012 17:47:27 +0100
Subject: Change test to use CT Config PrivDir

---
 lib/asn1/test/asn1_SUITE.erl.src | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'lib/asn1/test')

diff --git a/lib/asn1/test/asn1_SUITE.erl.src b/lib/asn1/test/asn1_SUITE.erl.src
index dd24feeda9..3f51b125ec 100644
--- a/lib/asn1/test/asn1_SUITE.erl.src
+++ b/lib/asn1/test/asn1_SUITE.erl.src
@@ -2370,11 +2370,11 @@ test_modules() ->
 	 "LDAP"
 	].
 
-test_OTP_9688(_Config) ->
+test_OTP_9688(Config) ->
     Asn1Mod = "OTP-9688.asn1",
-    Files = [Asn1Mod, "OTP-9688.asn1db", "OTP-9688.beam", "OTP-9688.erl", "OTP-9688.hrl"],
-    Data = 
-        "
+    %%DataDir = ?config(data_dir,Config),     
+    PrivDir = ?config(priv_dir,Config),
+    Data = "
 OTP-9688 DEFINITIONS ::= BEGIN
 
  foo INTEGER ::= 1
@@ -2385,9 +2385,8 @@ OTP-9688 DEFINITIONS ::= BEGIN
 
 END
 ",
-    file:write_file(Asn1Mod, Data),
+    File = filename:join(PrivDir,Asn1Mod),
+    ok = file:write_file(File, Data),
     %% Does it compile with changes to asn1ct_check and asn1ct_gen_per_rt2ct?
     %% (see ticket)
-    ok = asn1ct:compile(Asn1Mod),
-    [file:delete(File) || File <- Files],
-    ok.
\ No newline at end of file
+    ok = asn1ct:compile(File, [{outdir, PrivDir}]).
-- 
cgit v1.2.3