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