Atoms 0.2
[scilab.git] / scilab / modules / atoms / tests / unit_tests / atomsIsInstalled.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 // Install toolbox N°1 for all users (SCI/.atoms)
11 atomsInstallRegister("toolbox1","1.0",%T);
12 atomsInstallRegister("toolbox1","1.1",%T);
13 atomsInstallRegister("toolbox1","1.2",%T);
14
15 // Install toolbox N°2 for current user only (SCIHOME/atoms)
16 atomsInstallRegister("toolbox2","0.1",%F);
17 atomsInstallRegister("toolbox2","0.2",%F);
18
19 // Check input parameters
20 if execstr("atomsIsInstalled()","errcatch") == 0 then pause; end
21 if execstr("atomsIsInstalled([""toolbox1"" ""toolbox2""],[""1.0"";""0.1""]  )","errcatch") == 0 then pause, end
22 if execstr("atomsIsInstalled([""toolbox1"" ""toolbox1""],[""1.0""]  )","errcatch") == 0 then pause, end
23
24 // Check output results
25
26 if ~ atomsIsInstalled("toolbox1") then pause, end
27 if atomsIsInstalled("toolbox1",[],%F) then pause, end
28
29 if ~ atomsIsInstalled("toolbox2") then pause, end
30 if ~ atomsIsInstalled("toolbox2",[],%F) then pause, end
31
32 if ~ atomsIsInstalled("toolbox1","1.0") then pause, end
33 if ~ atomsIsInstalled("toolbox1","1.1") then pause, end
34 if ~ atomsIsInstalled("toolbox1","1.2") then pause, end
35
36 if or( atomsIsInstalled(["toolbox1" "toolbox2" "toolbox1" "toolbox1"],["1.0" "1.1" "1.2" "1.3"] ) <> [%T %F %T %F] )  then pause, end
37 if or( atomsIsInstalled(["toolbox1" "toolbox2";"toolbox1" "toolbox1"],["1.0" "1.1";"1.2" "1.3"] ) <> [%T %F;%T %F] )  then pause, end
38 if or( atomsIsInstalled(["toolbox1";"toolbox2";"toolbox1";"toolbox1"],["1.0";"1.1";"1.2";"1.3"] ) <> [%T;%F;%T;%F] )  then pause, end