0d56c95cff6ce79b1e5d703feb2a7aaff039ef47
[scilab.git] / scilab / modules / atoms / tests / unit_tests / atomsLoad.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 // <-- CLI SHELL MODE -->
9 // <-- ENGLISH IMPOSED -->
10
11 load("SCI/modules/atoms/macros/atoms_internals/lib");
12
13 // We need a clean version
14 // =============================================================================
15 if ~isempty( atomsGetInstalled() ) then pause, end 
16
17 // If previous test did not end properly, restore, else backup config file
18 atomsRestoreConfig(%T);
19 atomsSaveConfig();
20
21 // Set some parameters for the test
22 // =============================================================================
23 atomsSetConfig("autoloadAddAfterInstall","False");
24 atomsSetConfig("Verbose" ,"False");
25
26 // 1st test-case : Just install the toolbox 5
27 // =============================================================================
28
29 // Load the 1st scenario : See scene10.test.atoms.scilab.org.txt
30 atomsRepositorySetOfl("http://scene10.test.atoms.scilab.org");
31
32 atomsInstall("toolbox_5");
33
34 // Check if the module is really installed
35
36 if ~ and( atomsIsInstalled( ["toolbox_5" "1.0" ; ..
37                              "toolbox_4" "1.0" ; ..
38                              "toolbox_2" "1.0" ; ..
39                              "toolbox_1" "1.0"])) then pause, end
40
41 atomsLoad("toolbox_5");
42
43 if ~ atomsIsLoaded("toolbox_5") then pause, end
44 if ~ atomsIsLoaded(["toolbox_5" "1.0"]) then pause, end
45
46 if ~ and(atomsIsLoaded(["toolbox_5"; ..
47                         "toolbox_2"; ..
48                         "toolbox_1"; ..
49                         "toolbox_4"])) then pause, end
50
51 if ~ and(atomsIsLoaded(["toolbox_5" "1.0"; ..
52                         "toolbox_2" "1.0"; ..
53                         "toolbox_1" "1.0"; ..
54                         "toolbox_4" "1.0"])) then pause, end
55
56 if or( t5_version() <> ["Toolbox 5 -> version = 1.0"; ..
57                         "Toolbox 4 -> version = 1.0"; ..
58                         "Toolbox 2 -> version = 1.0"; ..
59                         "Toolbox 1 -> version = 1.0" ] ) then pause, end
60
61 atomsRemove("toolbox_5");
62
63 // Restore original values
64 // =============================================================================
65 atomsRestoreConfig(%T);
66
67 atomsRepositorySetOfl(mgetl(SCI+"/modules/atoms/tests/unit_tests/repositories.orig"));