summaryrefslogtreecommitdiffstats
path: root/tests/nonRegression/bug2014.sci
blob: 726d5f6d5b93d0c01f40c075b58764f709008e57 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
// <-- Non-regression test for bug 2014 -->
//
// <-- Bugzilla URL -->
// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=2014
//
// <-- Short Description -->
//    The function isequal doesn't work properly with list.
//
//    -->a=list("a");b=list("a","b");
//    -->isequal(a,b)
//     ans  =
//
//      T  
//
//    -->isequal(b,a)
//     !--error 21 
//    invalid index
//    at line      10 of function %l_isequal called by :  
//    isequal(b,a)
//
//    I propose this modification of the macro %l_isequal in the file
//    SCI/macros/percent/%l_isequal.sci :
//
//    1 - function r=%l_isequal(x1,varargin)
//    2 -  narg=size(varargin)
//    3 -  if narg==0 then error('isequal requires at least two input arguments'),end
// ...

// Copyright INRIA
// Scilab Project - Serge Steer
// Copyright INRIA 2006
// Date : june  2006

l1=list(1,2,3);l2=list(1,2);l3=list();
r=isequal(l1,l1)&isequal(l3,l3)&~isequal(l1,l2)&~isequal(l3,l1)
affich_result(r,2014);