ATOMS: Switch to repository http://atoms.scilab.org/5.3
[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 // <-- 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("autoloadAddAfterInstall");
14 config_Verbose  = atomsGetConfig("Verbose");
15 atomsSetConfig("autoloadAddAfterInstall","False");
16 atomsSetConfig("Verbose" ,"False");
17
18 // Load the 2nd scenario : See scene11.test.atoms.scilab.org.txt
19 // =============================================================================
20 atomsRepositorySetOfl("http://scene10.test.atoms.scilab.org");
21
22 // Install toolbox N°2
23 atomsInstall(["toolbox_2","2.0"],"user");
24
25 // Check installation
26 if ~ atomsIsInstalled(["toolbox_1","1.0","user"]) then pause, end
27 if ~ atomsIsInstalled(["toolbox_2","2.0","user"]) then pause, end
28
29 atomsLoad(["toolbox_2","2.0","user"]);
30
31 if ~ atomsIsLoaded("toolbox_2")                  then pause, end
32 if ~ atomsIsLoaded(["toolbox_2","2.0"])          then pause, end
33 if ~ atomsIsLoaded(["toolbox_2","2.0","user"])   then pause, end
34
35 if ~ atomsIsLoaded("toolbox_1")                  then pause, end
36 if ~ atomsIsLoaded(["toolbox_1","1.0"])          then pause, end
37 if ~ atomsIsLoaded(["toolbox_1","1.0","user"])   then pause, end
38
39 if atomsIsLoaded(["toolbox_1","1.0","allusers"]) then pause, end
40 if atomsIsLoaded(["toolbox_2","2.0","allusers"]) then pause, end
41
42 A = [ "toolbox_1" "1.0" "user"     ; ..
43       "toolbox_2" "2.0" "user"     ; ..
44       "toolbox_2" ""    "user"     ; ..
45       "toolbox_2" "2.0" ""         ; ..
46       "toolbox_2" ""    ""         ; ..
47       "toolbox_2" "2.0" "allusers" ];
48
49 if or(atomsIsLoaded(A) <> [%T ; %T ; %T ; %T ; %T ; %F]) then pause, end
50
51 // Remove toolbox_2
52 // =============================================================================
53 atomsRemove("toolbox_2","user");
54
55 // Restore original values
56 // =============================================================================
57 atomsSetConfig("autoloadAddAfterInstall",config_autoload);
58 atomsSetConfig("Verbose" ,config_Verbose);
59 atomsRepositorySetOfl(mgetl(SCI+"/modules/atoms/tests/unit_tests/repositories.orig"));