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