ATOMS: Add tests
[scilab.git] / 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");