# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1520274183 18000
# Node ID c644c53c8d3737fb7052b04634bb37a5af6e2017
# Parent  6daf8a9bd1edfcd29fb58ba4157d079517bcddba
use unique directory names in getpref and setpref tests

* getpref.m, setpref.m: Use tempname to get unique directory names.
Create directory for test and remove in unwind protect block.

diff -r 6daf8a9bd1ed -r c644c53c8d37 scripts/prefs/getpref.m
--- a/scripts/prefs/getpref.m	Mon Mar 05 07:48:37 2018 +0100
+++ b/scripts/prefs/getpref.m	Mon Mar 05 13:23:03 2018 -0500
@@ -108,8 +108,11 @@
 
 %!test
 %! HOME = getenv ("HOME");
+%! tmp_home = tempname ();
 %! unwind_protect
-%!   setenv ("HOME", P_tmpdir ());
+%!   mkdir (tmp_home);
+%!   setenv ("HOME", tmp_home);
+%!
 %!   addpref ("group1", "pref1", [1 2 3]);
 %!   addpref ("group2", {"prefA", "prefB"}, {"StringA", {"StringB"}});
 %!
@@ -141,7 +144,10 @@
 %!         "preference prefD does not exist in GROUP group2");
 %!
 %! unwind_protect_cleanup
-%!   unlink (fullfile (P_tmpdir (), ".octave_prefs"));
+%!   unlink (fullfile (tmp_home, ".octave_prefs"));
+%!   if (exist (tmp_home, "dir"))
+%!     rmdir (tmp_home);
+%!   endif
 %!   if (isempty (HOME))
 %!     unsetenv ("HOME");
 %!   else
diff -r 6daf8a9bd1ed -r c644c53c8d37 scripts/prefs/setpref.m
--- a/scripts/prefs/setpref.m	Mon Mar 05 07:48:37 2018 +0100
+++ b/scripts/prefs/setpref.m	Mon Mar 05 13:23:03 2018 -0500
@@ -71,8 +71,10 @@
 
 %!test
 %! HOME = getenv ("HOME");
+%! tmp_home = tempname ();
 %! unwind_protect
-%!   setenv ("HOME", P_tmpdir ());
+%!   mkdir (tmp_home);
+%!   setenv ("HOME", tmp_home);
 %!
 %!   setpref ("group1", "pref1", [1 2 3]);
 %!   assert (getpref ("group1", "pref1"), [1 2 3]);
@@ -88,7 +90,10 @@
 %!   fail ('setpref ("group1", {"p1", "p2"}, 1)', ...
 %!         "size mismatch for PREF and VAL");
 %! unwind_protect_cleanup
-%!   unlink (fullfile (P_tmpdir (), ".octave_prefs"));
+%!   unlink (fullfile (tmp_home, ".octave_prefs"));
+%!   if (exist (tmp_home, "dir"))
+%!     rmdir (tmp_home);
+%!   endif
 %!   if (isempty (HOME))
 %!     unsetenv ("HOME");
 %!   else