74d6717e20cad884388153e740b6ddbbb189d24f
[scilab.git] / scilab / modules / atoms / tests / unit_tests / atomsIsInstalled.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 // <-- ENGLISH IMPOSED -->
9 // <-- CLI SHELL MODE -->
10
11 load("SCI/modules/atoms/macros/atoms_internals/lib");
12
13 // If previous test did not end properly, restore, else backup config file
14 atomsRestoreConfig(%T);
15 atomsSaveConfig();
16
17 // Do not use the autoload system
18 atomsSetConfig("autoloadAddAfterInstall","False");
19 atomsSetConfig("Verbose" ,"False");
20
21 // Load the 2nd scenario : See scene11.test.atoms.scilab.org.txt
22 // =============================================================================
23 atomsRepositorySetOfl("http://scene11.test.atoms.scilab.org");
24
25 // Install toolbox N°2
26 atomsInstall(["toolbox_2","2.0";"toolbox_2","2.1"],"user");
27
28 // Check input parameters
29 if execstr("atomsIsInstalled()","errcatch") == 0 then pause; end
30 if execstr("atomsIsInstalled([""toolbox_1"",""1.0"";""toolbox_2"",""2.0""],[""1.0"";""2.0""]  )","errcatch") == 0 then pause, end
31 if execstr("atomsIsInstalled([""toolbox_1"",""1.0"";""toolbox_2"",""2.0""],[""1.0"";""2.0""]  )","errcatch") == 0 then pause, end
32
33 // Check output results
34 if ~ atomsIsInstalled("toolbox_1") then pause, end
35 if ~ atomsIsInstalled("toolbox_2") then pause, end
36
37 if ~ atomsIsInstalled(["toolbox_1","1.0"]) then pause, end
38 if ~ atomsIsInstalled(["toolbox_2","2.0"]) then pause, end
39 if ~ atomsIsInstalled(["toolbox_2","2.1"]) then pause, end
40
41 if ~ atomsIsInstalled(["toolbox_1","1.0-1"]) then pause, end
42 if ~ atomsIsInstalled(["toolbox_2","2.0-1"]) then pause, end
43 if ~ atomsIsInstalled(["toolbox_2","2.1-1"]) then pause, end
44
45 if atomsIsInstalled(["toolbox_1","1.0"],"allusers") then pause, end
46 if atomsIsInstalled(["toolbox_2","2.0"],"allusers") then pause, end
47 if atomsIsInstalled(["toolbox_2","2.1"],"allusers") then pause, end
48
49 if atomsIsInstalled(["toolbox_1","1.0-1"],"allusers") then pause, end
50 if atomsIsInstalled(["toolbox_2","2.0-1"],"allusers") then pause, end
51 if atomsIsInstalled(["toolbox_2","2.1-1"],"allusers") then pause, end
52
53 if ~ atomsIsInstalled(["toolbox_1","1.0"],"user") then pause, end
54 if ~ atomsIsInstalled(["toolbox_2","2.0"],"user") then pause, end
55 if ~ atomsIsInstalled(["toolbox_2","2.1"],"user") then pause, end
56
57 if ~ atomsIsInstalled(["toolbox_1","1.0-1"],"user") then pause, end
58 if ~ atomsIsInstalled(["toolbox_2","2.0-1"],"user") then pause, end
59 if ~ atomsIsInstalled(["toolbox_2","2.1-1"],"user") then pause, end
60
61 if ~ atomsIsInstalled(["toolbox_1","1.0"],"all") then pause, end
62 if ~ atomsIsInstalled(["toolbox_2","2.0"],"all") then pause, end
63 if ~ atomsIsInstalled(["toolbox_2","2.1"],"all") then pause, end
64
65 if ~ atomsIsInstalled(["toolbox_1","1.0-1"],"all") then pause, end
66 if ~ atomsIsInstalled(["toolbox_2","2.0-1"],"all") then pause, end
67 if ~ atomsIsInstalled(["toolbox_2","2.1-1"],"all") then pause, end
68
69 if or( atomsIsInstalled(["toolbox_1","1.0";"toolbox_2","0.0";"toolbox_2","2.1";"toolbox_99","1.0"]) <> [%T;%F;%T;%F] )  then pause, end
70
71 A = ["toolbox_1","1.0" "allusers" ;
72 "toolbox_2","2.0" "allusers" ;
73 "toolbox_2","2.1" "allusers" ;
74 "toolbox_1","1.0" "user"     ;
75 "toolbox_2","2.0" "user"     ;
76 "toolbox_2","2.1" "user"     ;
77 "toolbox_1","1.0" "all"      ;
78 "toolbox_2","2.0" "all"      ;
79 "toolbox_2","2.1" "all"      ;
80 "toolbox_1","1.0" ""         ;
81 "toolbox_2","2.0" ""         ;
82 "toolbox_2","2.1" ""         ];
83
84 B = ["toolbox_1","1.0-1" "allusers" ;
85 "toolbox_2","2.0-1" "allusers" ;
86 "toolbox_2","2.1-1" "allusers" ;
87 "toolbox_1","1.0-1" "user"     ;
88 "toolbox_2","2.0-1" "user"     ;
89 "toolbox_2","2.1-1" "user"     ;
90 "toolbox_1","1.0-1" "all"      ;
91 "toolbox_2","2.0-1" "all"      ;
92 "toolbox_2","2.1-1" "all"      ;
93 "toolbox_1","1.0-1" ""         ;
94 "toolbox_2","2.0-1" ""         ;
95 "toolbox_2","2.1-1" ""         ];
96
97 if or( atomsIsInstalled(A,"all")      <> [ %F ; %F ; %F ; %T ; %T ; %T ; %T ; %T ; %T ; %T ; %T ; %T ]) then pause, end
98 if or( atomsIsInstalled(A,"user")     <> [ %F ; %F ; %F ; %T ; %T ; %T ; %T ; %T ; %T ; %T ; %T ; %T ]) then pause, end
99 if or( atomsIsInstalled(A,"allusers") <> [ %F ; %F ; %F ; %F ; %F ; %F ; %F ; %F ; %F ; %F ; %F ; %F ]) then pause, end
100
101 if or( atomsIsInstalled(B,"all")      <> [ %F ; %F ; %F ; %T ; %T ; %T ; %T ; %T ; %T ; %T ; %T ; %T ]) then pause, end
102 if or( atomsIsInstalled(B,"user")     <> [ %F ; %F ; %F ; %T ; %T ; %T ; %T ; %T ; %T ; %T ; %T ; %T ]) then pause, end
103 if or( atomsIsInstalled(B,"allusers") <> [ %F ; %F ; %F ; %F ; %F ; %F ; %F ; %F ; %F ; %F ; %F ; %F ]) then pause, end
104
105 // Remove toolbox_5 & toolbox_3
106 // =============================================================================
107 atomsRemove("toolbox_2","user");
108
109 // no module should be installed
110 if ~isempty( atomsGetInstalled() ) then pause, end
111
112 // Restore original values
113 // =============================================================================
114 atomsRestoreConfig(%T);
115
116 atomsRepositorySetOfl(mgetl(SCI+"/modules/atoms/tests/unit_tests/repositories.orig"));