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// <-- CLI SHELL MODE --> 8ierr = execstr("fullpath();","errcatch"); 9assert_checkequal(ierr, 77); 10ierr = execstr("fullpath(''test.sce'',''test.sce'');","errcatch"); 11assert_checkequal(ierr, 77); 12assert_checkequal(fullpath("."), pwd()); 13cd(TMPDIR); 14mkdir(TMPDIR+"/niv1"); 15mkdir(TMPDIR+"/niv1/niv2"); 16mkdir(TMPDIR+"/niv1/niv2/niv3"); 17mputl(" ",TMPDIR+"/niv1/test1.txt"); 18mputl(" ",TMPDIR+"/niv1/niv2/test2.txt"); 19mputl(" ",TMPDIR+"/niv1/niv2/niv3/test3.txt"); 20REF3 = TMPDIR + filesep() + "niv1" + filesep() + "niv2" + filesep() + "niv3" + filesep() + "test3.txt"; 21REF2 = TMPDIR + filesep() + "niv1" + filesep() + "niv2" + filesep() + "test2.txt"; 22REF1 = TMPDIR + filesep() + "niv1" + filesep() + "test1.txt"; 23cd(TMPDIR+"/niv1/niv2/niv3"); 24r1 = fullpath("../../test1.txt"); 25assert_checkequal(r1, REF1); 26r2 = fullpath("../test2.txt"); 27assert_checkequal(r2, REF2); 28r3 = fullpath("test3.txt"); 29assert_checkequal(r3, REF3); 30r1 = fullpath(REF1); 31assert_checkequal(r1, REF1); 32r2 = fullpath(REF2); 33assert_checkequal(r2, REF2); 34r3 = fullpath(REF3); 35assert_checkequal(r3, REF3); 36REF_M = [REF1, REF2, REF3]; 37M = ["../../test1.txt", "../test2.txt", "test3.txt"]; 38assert_checkequal(REF_M, fullpath(M)); 39