scilab/modules/elementary_functions/tests/unit_tests/setdiff.dia.ref

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2009 - DIGITEO - Allan CORNET
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7 // <-- CLI SHELL MODE -->
   8 // =============================================================================
   9 a = [223;111;2;4;2;2];
  10 b = [2;3;21;223;123;22];
  11 // =============================================================================
  12 REF_V = [4; 111];
  13 REF_K = [4; 2];
  14 [v,k]= setdiff(a,b);
  15 if and(v == REF_V) <> %t then bugmes();quit;end
  16 if and(k == REF_K) <> %t then bugmes();quit;end
  17 // =============================================================================
  18 REF_V = ['111' ; '4'];
  19 REF_K = [2; 4];
  20 [v,k] = setdiff(string(a),string(b));
  21 if and(v == REF_V) <> %t then bugmes();quit;end
  22 if and(k == REF_K) <> %t then bugmes();quit;end
  23 // =============================================================================