b89bb78da19dfd5d103688efd4c5429fc8393ed2
[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 //force official ATOMS repository
22 atomsRepositorySetOfl(mgetl(SCI+"/modules/atoms/tests/unit_tests/repositories.orig"));
23
24 // Set some parameters for the test
25 // =============================================================================
26 atomsSetConfig("autoloadAddAfterInstall","False");
27 atomsSetConfig("Verbose" ,"False");
28
29 // 1st test-case : Just install the toolbox 5
30 // =============================================================================
31 atomsInstall("toolbox_5");
32
33 // Check if the module is really installed
34
35 if ~ and( atomsIsInstalled( ["toolbox_5" "1.2" ; ..
36                              "toolbox_4" "1.1" ; ..
37                              "toolbox_2" "1.0" ; ..
38                              "toolbox_1" "2.0"])) then pause, end
39
40 atomsLoad("toolbox_5");
41
42 if ~ atomsIsLoaded("toolbox_5") then pause, end
43 if ~ atomsIsLoaded(["toolbox_5" "1.2"]) then pause, end
44
45 if ~ and(atomsIsLoaded(["toolbox_5"; ..
46                         "toolbox_2"; ..
47                         "toolbox_1"; ..
48                         "toolbox_4"])) then pause, end
49
50 if ~ and(atomsIsLoaded(["toolbox_5" "1.2"; ..
51                         "toolbox_2" "1.0"; ..
52                         "toolbox_1" "2.0"; ..
53                         "toolbox_4" "1.1"])) then pause, end
54
55 if or( t5_version() <> ["Toolbox 5 -> version = 1.2"; ..
56                         "Toolbox 4 -> version = 1.1"; ..
57                         "Toolbox 2 -> version = 1.0"; ..
58                         "Toolbox 1 -> version = 2.0" ] ) then pause, end
59
60 atomsRemove("toolbox_5");
61
62 // Restore original values
63 // =============================================================================
64 atomsRestoreConfig(%T);