6210bf760e70f6fcc9e1cd245361db0f2703992a
[scilab.git] / scilab / modules / atoms / tests / unit_tests / atomsRepositoryDel.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 // <-- ENGLISH IMPOSED -->
9 // <-- CLI SHELL MODE -->
10
11 if isempty([ atomsRepositoryList("user") ; atomsRepositoryList("allusers")]) then
12
13     rep1 = "http://scene10.test.atoms.scilab.org";
14     rep2 = "http://scene11.test.atoms.scilab.org";
15
16     if atomsRepositoryAdd(rep1,"user")     <> 1 then pause, end
17     if atomsRepositoryAdd(rep2,"allusers") <> 1 then pause, end
18
19     if or(atomsRepositoryList("user")     <> [rep1,"user"]) then pause, end
20     if or(atomsRepositoryList("allusers") <> [rep2,"allusers"]) then pause, end
21
22     if find( atomsRepositoryList("all") == [rep1]) == [] then pause, end
23     if find( atomsRepositoryList("all") == [rep2]) == [] then pause, end
24
25     if atomsRepositoryDel(rep1,"user") <> 1 then pause, end
26     if atomsRepositoryDel(rep2,"allusers") <> 1 then pause, end
27
28     if atomsRepositoryAdd( [rep1;rep2],"user") <> 2 then pause, end
29     if or(atomsRepositoryList("user")     <> [rep1 "user";rep2 "user"]) then pause, end
30     if or(atomsRepositoryList("allusers") <> []) then pause, end
31     if atomsRepositoryDel([rep1;rep2],"user") <> 2 then pause, end
32
33     if ~isempty([ atomsRepositoryList("user") ; atomsRepositoryList("allusers")]) then pause, end
34 end