Merge remote-tracking branch 'origin/master' into YaSp
[scilab.git] / scilab / modules / atoms / tests / unit_tests / atomsIsLoaded.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
12
13 load("SCI/modules/atoms/macros/atoms_internals/lib");
14
15 // If previous test did not end properly, restore, else backup config file
16 atomsRestoreConfig(%T);
17 atomsSaveConfig();
18
19 // Do not use the autoload system
20 atomsSetConfig("autoloadAddAfterInstall","False");
21 atomsSetConfig("Verbose" ,"False");
22
23 //force official ATOMS repository
24 atomsRepositorySetOfl(mgetl(SCI+"/modules/atoms/tests/unit_tests/repositories.orig"));
25
26 // Install toolbox N°2
27 atomsInstall(["toolbox_2","2.1"],"user");
28
29 // Check installation
30 if ~ atomsIsInstalled(["toolbox_1","2.0","user"]) then pause, end
31 if ~ atomsIsInstalled(["toolbox_2","2.1","user"]) then pause, end
32
33 atomsLoad(["toolbox_2","2.1","user"]);
34
35 if ~ atomsIsLoaded("toolbox_2")                  then pause, end
36 if ~ atomsIsLoaded(["toolbox_2","2.1"])          then pause, end
37 if ~ atomsIsLoaded(["toolbox_2","2.1","user"])   then pause, end
38
39 if ~ atomsIsLoaded("toolbox_1")                  then pause, end
40 if ~ atomsIsLoaded(["toolbox_1","2.0"])          then pause, end
41 if ~ atomsIsLoaded(["toolbox_1","2.0","user"])   then pause, end
42
43 if atomsIsLoaded(["toolbox_1","2.0","allusers"]) then pause, end
44 if atomsIsLoaded(["toolbox_2","2.1","allusers"]) then pause, end
45
46 A = [ "toolbox_1" "2.0" "user"     ; ..
47 "toolbox_2" "2.1" "user"     ; ..
48 "toolbox_2" ""    "user"     ; ..
49 "toolbox_2" "2.1" ""         ; ..
50 "toolbox_2" ""    ""         ; ..
51 "toolbox_2" "2.1" "allusers" ];
52
53 if or(atomsIsLoaded(A) <> [%T ; %T ; %T ; %T ; %T ; %F]) then pause, end
54
55 // Remove toolbox_2
56 // =============================================================================
57 atomsRemove("toolbox_2","user");
58
59 // Restore original values
60 // =============================================================================
61 atomsRestoreConfig(%T);