# HG changeset patch
# User Mike Miller <mtmiller@octave.org>
# Date 1580095736 28800
# Node ID 4f00900ac621c57fa1602b6466aec82ae7dcb4ba
# Parent  e3e26f54bfdcf703ef99c09300622b1c3bdfe56a
dir.m: Add regression BIST test (bug #57666).

* dir.m: Add regression BIST test for bug #57666.

diff -r e3e26f54bfdc -r 4f00900ac621 scripts/miscellaneous/dir.m
--- a/scripts/miscellaneous/dir.m	Sun Jan 26 17:56:48 2020 -0800
+++ b/scripts/miscellaneous/dir.m	Sun Jan 26 19:28:56 2020 -0800
@@ -223,6 +223,20 @@
 %!   endif
 %! end_unwind_protect
 
+%!testif ; isunix () <*57666>
+%! orig_dir = pwd ();
+%! tmp_dir = tempname ();
+%! unwind_protect
+%!   assert (mkdir (tmp_dir));
+%!   list = dir (tmp_dir);
+%!   assert (list(1).name, ".");
+%!   assert (list(1).folder, canonicalize_file_name (tmp_dir));
+%! unwind_protect_cleanup
+%!   if (exist (tmp_dir))
+%!     rmdir (tmp_dir);
+%!   endif
+%! end_unwind_protect
+
 ## Test input validation
 %!error <DIRECTORY argument must be a string> dir (1)
 %!warning <nonexistent directory> dir ("_%UNLIKELY_DIR_NAME%_");