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