Mercurial > hg > octave-nkf
changeset 11933:205f10f5cbe8 release-3-0-x
more fixes to fileparts.m tests
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Sat, 14 Feb 2009 21:15:23 +0100 |
parents | 8d1427a14f45 |
children | 7518126401ac |
files | scripts/ChangeLog scripts/miscellaneous/fileparts.m |
diffstat | 2 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,7 @@ +2009-02-14 Tatsuro MATSUOKA <tmacchant@yahoo.co.jp> + + * miscellaneous/fileparts.m: Fix again. + 2009-01-29 Jaroslav Hajek <highegg@gmail.com> * miscellaneous/fileparts.m: Fix test for Windows.
--- a/scripts/miscellaneous/fileparts.m +++ b/scripts/miscellaneous/fileparts.m @@ -82,15 +82,15 @@ %!test %! [d, n, e] = fileparts (["d1" filesep "d2" filesep "file.ext"]); -%! assert (strcmp (d, "d1/d2") && strcmp (n, "file") && strcmp (e, ".ext")); +%! assert (strcmp (d, ["d1" filesep "d2"]) && strcmp (n, "file") && strcmp (e, ".ext")); %!test %! [d, n, e] = fileparts ([filesep "d1" filesep "d2" filesep "file.ext"]); -%! assert (strcmp (d, "/d1/d2") && strcmp (n, "file") && strcmp (e, ".ext")); +%! assert (strcmp (d, [filesep "d1" filesep "d2"]) && strcmp (n, "file") && strcmp (e, ".ext")); %!test %! [d, n, e] = fileparts ([filesep ".ext"]); -%! assert (strcmp (d, "/") && strcmp (n, char (zeros (1, 0))) && strcmp (e, ".ext")); +%! assert (strcmp (d, filesep) && strcmp (n, char (zeros (1, 0))) && strcmp (e, ".ext")); %!test %! [d, n, e] = fileparts (".ext");