All unit_tests now pass for ATOMS:
[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_5V6");
32
33 // Check if the module is really installed
34
35 if ~ and( atomsIsInstalled( ["toolbox_5V6" "1.2" ; ..
36     "toolbox_4V6" "1.1" ; ..
37     "toolbox_2V6" "1.0" ; ..
38 "toolbox_1V6" "2.0"])) then pause, end
39
40 atomsLoad("toolbox_5V6");
41
42 if ~ atomsIsLoaded("toolbox_5V6") then pause, end
43 if ~ atomsIsLoaded(["toolbox_5V6" "1.2"]) then pause, end
44
45 if ~ and(atomsIsLoaded(["toolbox_5V6"; ..
46     "toolbox_2V6"; ..
47     "toolbox_1V6"; ..
48 "toolbox_4V6"])) then pause, end
49
50 if ~ and(atomsIsLoaded(["toolbox_5V6" "1.2"; ..
51     "toolbox_2V6" "1.0"; ..
52     "toolbox_1V6" "2.0"; ..
53 "toolbox_4V6" "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_5V6");
61
62 // Restore original values
63 // =============================================================================
64 atomsRestoreConfig(%T);