Mercurial > jwe > octave
diff libinterp/corefcn/dirfns.cc @ 31022:3cb50bb91ccf
maint: Merge stable to default.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Tue, 24 May 2022 22:02:32 +0200 |
parents | e33444cd822f 8475b51b990c |
children | d07218f22447 |
line wrap: on
line diff
--- a/libinterp/corefcn/dirfns.cc Tue May 24 11:38:00 2022 -0700 +++ b/libinterp/corefcn/dirfns.cc Tue May 24 22:02:32 2022 +0200 @@ -660,6 +660,24 @@ %! unwind_protect_cleanup %! cd (old_dir); %! end_unwind_protect + +## retain trailing file separator +%!test <*62414> +%! old_dir = cd (fileparts (which ("plot.m"))); +%! unwind_protect +%! assert (__wglob__ ("private"), {"private"}); +%! assert (__wglob__ ("private/"), {["private), filesep()]}); +%! assert (__wglob__ ("private///"), {["private), filesep()]}); +%! assert (__wglob__ ("./private"), {fullfile(".", "private")}); +%! assert (__wglob__ ("./private/"), ... +%! {[fullfile(".", "private"), filesep()]}); +%! assert (__wglob__ ("./private///"), ... +%! {[fullfile(".", "private"), filesep()]}); +%! assert (__wglob__ (["./p*","/"]), ... +%! {[fullfile(".", "private"), filesep()]}); +%! unwind_protect_cleanup +%! cd (old_dir); +%! end_unwind_protect */ DEFUN (__fnmatch__, args, ,