scilab/modules/atoms/tests/unit_tests/atomsRemoveList.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2009 - DIGITEO - Pierre MARECHAL <pierre.marechal@scilab.org>
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7
   8 // <-- JVM NOT MANDATORY -->
   9
  10 load("SCI/modules/atoms/macros/atoms_internals/lib");
  11
  12 // Do not use the autoload system
  13 config_autoload = atomsGetConfig("autoload");
  14 config_Verbose  = atomsGetConfig("Verbose");
  15 atomsSetConfig("autoload","False");
  16 atomsSetConfig("Verbose" ,"True");
  17
  18 // Load the 1st scenario : See scene1.test.atoms.scilab.org.txt
  19 // =============================================================================
  20 atomsRepositorySetOfl("http://scene1.test.atoms.scilab.org");
  21 atomsGetTOOLBOXES(%T);
  22
  23 // Install toolbox_5 & toolbox_3
  24 // =============================================================================
  25 atomsInstall("toolbox_5","user");
  26 atomsInstall("toolbox_3","user");
  27
  28 // -----------------------------------------------------------------------------
  29
  30 ref = [ "-" "U" "toolbox_1" "1.0" "user" ;
  31         "-" "P" "toolbox_5" "1.0" "user" ;
  32         "-" "P" "toolbox_4" "1.0" "user" ;
  33         "-" "P" "toolbox_2" "1.0" "user" ;
  34         "-" "P" "toolbox_3" "1.0" "user" ;
  35         "-" "P" "toolbox_2" "2.0" "user" ];
  36
  37 if or(atomsRemoveList(["toolbox_1"]      ,"user")<>ref) then pause, end
  38 if or(atomsRemoveList(["toolbox_1" "1.0"],"user")<>ref) then pause, end
  39
  40 // -----------------------------------------------------------------------------
  41
  42 ref = [ "-" "U" "toolbox_2" "1.0" "user" ;
  43         "-" "P" "toolbox_5" "1.0" "user" ;
  44         "-" "P" "toolbox_4" "1.0" "user" ;
  45         "~" "C" "toolbox_1" "1.0" "user" ];
  46
  47 if or(atomsRemoveList(["toolbox_2" "1.0"],"user")<>ref) then pause, end
  48
  49 // -----------------------------------------------------------------------------
  50
  51 ref = [ "-" "U" "toolbox_2" "2.0" "user" ;
  52         "-" "P" "toolbox_3" "1.0" "user" ;
  53         "~" "C" "toolbox_1" "1.0" "user" ];
  54
  55 if or(atomsRemoveList(["toolbox_2" "2.0"],"user")<>ref) then pause, end
  56
  57 // -----------------------------------------------------------------------------
  58
  59 ref = [ "-" "U" "toolbox_2" "2.0" "user" ;
  60         "-" "U" "toolbox_2" "1.0" "user" ;
  61         "-" "P" "toolbox_3" "1.0" "user" ;
  62         "-" "C" "toolbox_1" "1.0" "user" ;
  63         "-" "P" "toolbox_5" "1.0" "user" ;
  64         "-" "P" "toolbox_4" "1.0" "user" ];
  65
  66 if or(atomsRemoveList(["toolbox_2"],"user")<>ref) then pause, end
  67
  68 // -----------------------------------------------------------------------------
  69
  70 ref = [ "-" "U" "toolbox_2" "2.0" "user" ;
  71         "-" "U" "toolbox_2" "1.0" "user" ;
  72         "-" "U" "toolbox_4" "1.0" "user" ;
  73         "-" "P" "toolbox_3" "1.0" "user" ;
  74         "-" "C" "toolbox_1" "1.0" "user" ;
  75         "-" "P" "toolbox_5" "1.0" "user" ];
  76
  77 if or(atomsRemoveList(["toolbox_2";"toolbox_4"],"user")<>ref) then pause, end
  78
  79
  80 // Remove toolbox_5 & toolbox_3
  81 // =============================================================================
  82 atomsRemove("toolbox_5","user");
  83 atomsRemove("toolbox_3","user");
  84
  85 // Restore original values
  86 // =============================================================================
  87 atomsSetConfig("autoload",config_autoload);
  88 atomsSetConfig("Verbose" ,config_Verbose);
  89 atomsRepositorySetOfl("http://atoms.scilab.org");