ATOMS: atomsRepositoryXXX: Better management of "allusers"/"user" sections
[scilab.git] / scilab / modules / atoms / tests / unit_tests / atomsRepositoryAdd.dia.ref
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 // <-- JVM NOT MANDATORY -->
8 if isempty([ atomsRepositoryList("user") ; atomsRepositoryList("allusers")]) then
9         
10         rep1 = "http://scene1.test.atoms.scilab.org";
11         rep2 = "http://scene2.test.atoms.scilab.org";
12         
13         if atomsRepositoryAdd(rep1,"user")     <> 1 then bugmes();quit;end
14         if atomsRepositoryAdd(rep2,"allusers") <> 1 then bugmes();quit;end
15         
16         if or(atomsRepositoryList("user")     <> [rep1,"user"]) then bugmes();quit;end
17         if or(atomsRepositoryList("allusers") <> [rep2,"allusers"]) then bugmes();quit;end
18         
19         if find( atomsRepositoryList("all") == [rep1]) == [] then bugmes();quit;end
20         if find( atomsRepositoryList("all") == [rep2]) == [] then bugmes();quit;end
21         
22         if atomsRepositoryDel(rep1,"user") <> 1 then bugmes();quit;end
23         if atomsRepositoryDel(rep2,"allusers") <> 1 then bugmes();quit;end
24         
25         if atomsRepositoryAdd( [rep1;rep2],"user") <> 2 then bugmes();quit;end
26         if or(atomsRepositoryList("user")     <> [rep1 "user";rep2 "user"]) then bugmes();quit;end
27         if or(atomsRepositoryList("allusers") <> []) then bugmes();quit;end
28         if atomsRepositoryDel([rep1;rep2],"user") <> 2 then bugmes();quit;end
29         
30 end