1// =============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) ????-2008 - INRIA
4//
5//  This file is distributed under the same license as the Scilab package.
6// =============================================================================
7
8// <-- CLI SHELL MODE -->
9
10// <-- Non-regression test for bug 654 -->
11//
12// <-- Bugzilla URL -->
13// http://bugzilla.scilab.org/show_bug.cgi?id=654
14//
15// <-- Short Description -->
16//    listfiles(getenv('SCI')+"/tcl") gives wrong result.
17//
18//    - or the syntax is accepted and the result should be correct
19//    - or an error message should be displayed
20//
21//    of course listfiles(getenv('SCI')+"/tcl/") is OK
22
23if or( listfiles(getenv('SCI')+"/modules/tclsci") <> listfiles(getenv('SCI')+"/modules/tclsci/") ) then pause,end
24