1// ============================================================================= 2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab 3// Copyright (C) 2011 - DIGITEO - Allan CORNET 4// 5// This file is distributed under the same license as the Scilab package. 6// ============================================================================= 7 8// <-- CLI SHELL MODE --> 9 10ierr = execstr("fullpath();","errcatch"); 11assert_checkequal(ierr, 77); 12 13ierr = execstr("fullpath(''test.sce'',''test.sce'');","errcatch"); 14assert_checkequal(ierr, 77); 15 16assert_checkequal(fullpath("."), pwd()); 17 18cd(TMPDIR); 19mkdir(TMPDIR+"/niv1"); 20mkdir(TMPDIR+"/niv1/niv2"); 21mkdir(TMPDIR+"/niv1/niv2/niv3"); 22mputl(" ",TMPDIR+"/niv1/test1.txt"); 23mputl(" ",TMPDIR+"/niv1/niv2/test2.txt"); 24mputl(" ",TMPDIR+"/niv1/niv2/niv3/test3.txt"); 25 26REF3 = TMPDIR + filesep() + "niv1" + filesep() + "niv2" + filesep() + "niv3" + filesep() + "test3.txt"; 27REF2 = TMPDIR + filesep() + "niv1" + filesep() + "niv2" + filesep() + "test2.txt"; 28REF1 = TMPDIR + filesep() + "niv1" + filesep() + "test1.txt"; 29 30cd(TMPDIR+"/niv1/niv2/niv3"); 31 32r1 = fullpath("../../test1.txt"); 33assert_checkequal(r1, REF1); 34 35r2 = fullpath("../test2.txt"); 36assert_checkequal(r2, REF2); 37 38r3 = fullpath("test3.txt"); 39assert_checkequal(r3, REF3); 40 41r1 = fullpath(REF1); 42assert_checkequal(r1, REF1); 43 44r2 = fullpath(REF2); 45assert_checkequal(r2, REF2); 46 47r3 = fullpath(REF3); 48assert_checkequal(r3, REF3); 49 50REF_M = [REF1, REF2, REF3]; 51M = ["../../test1.txt", "../test2.txt", "test3.txt"]; 52assert_checkequal(REF_M, fullpath(M)); 53 54