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