1// ============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) 2012 - DIGITEO - Allan CORNET
4//
5//  This file is distributed under the same license as the Scilab package.
6// ============================================================================
7// <-- CLI SHELL MODE -->
8// ============================================================================
9// Unitary tests for dirname function
10// ============================================================================
11//
12REF = pathconvert(getlongpathname(SCI + '/modules/fileio/macros'), %F);
13pathRes = dirname('SCI/modules/fileio/macros/.myfile');
14assert_checkequal(pathRes, REF);
15REF = pathconvert(getlongpathname(SCI + '/modules/fileio/macros'), %F);
16pathRes = dirname('SCI/modules/fileio/macros/poo.sci');
17assert_checkequal(pathRes, REF);
18REF = pathconvert(getlongpathname(SCI + '/modules/fileio/macros'), %F);
19pathRes = dirname('SCI/modules\fileio/macros/poo.sci');
20assert_checkequal(pathRes, REF);
21REF = pathconvert(getlongpathname(SCI + '/modules/fileio/macros'), %F);
22pathRes = dirname('SCI/modules\fileio/macros/poo.sci.k');
23assert_checkequal(pathRes, REF);
24REF = '.';
25pathRes = dirname('');
26assert_checkequal(pathRes, REF);
27M = ['SCI/modules/fileio/macros/.myfile';
28'SCI/modules/fileio/macros/poo.sci';
29'SCI/modules\fileio/macros/poo.sci';
30'SCI/modules\fileio/macros/poo.sci.k';
31'';
32'SCI/modules\fileio/macros/.sci'];
33REF = pathconvert(getlongpathname(SCI + '/modules/fileio/macros'), %F);
34M_REF = [REF;
35         REF;
36         REF;
37         REF;
38         '.';
39         REF];
40assert_checkequal(dirname(M), M_REF);
41assert_checkequal(dirname([]), []);
42ierr = execstr('dirname(3)','errcatch');
43assert_checkequal(ierr, 999);
44ierr = execstr('dirname(SCI,%t,1)','errcatch');
45assert_checkequal(ierr, 999);
46