atoms modules tests fixed 94/17694/2
Cedric Delamarre [Thu, 14 Jan 2016 16:37:56 +0000 (17:37 +0100)]
  * warning about operation and empty matrix
  * toolbox version updated

test_run atoms

Change-Id: I8ba5863df57aa1ce5f7adad0618ea17faed674e3

scilab/modules/atoms/macros/atoms_internals/atomsGetHomeListboxElts.sci
scilab/modules/atoms/macros/atoms_internals/atomsRemoveList.sci
scilab/modules/atoms/tests/unit_tests/atomsIsLoaded.dia.ref
scilab/modules/atoms/tests/unit_tests/atomsLoad.dia.ref

index 6919f13..c671a96 100644 (file)
@@ -10,8 +10,8 @@
 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
 
 function elements = atomsGetHomeListboxElts()
-    items_str  = [];
-    items_mat  = [];
+    items_str  = "";
+    items_mat  = "";
 
     installed  = atomsGetInstalled();
     tmp = atomsAutoloadList("all")
@@ -21,14 +21,13 @@ function elements = atomsGetHomeListboxElts()
 
         items_str  = atomsSetInstalledList(installed)
         items_mat = installed(:,1)
-        items_mat = [emptystr(items_mat)+"module" items_mat ]
-
-        if items_str==[] then
-            elements("items_str") = "";
-        else
-            elements("items_str") = items_str;
+        if isempty(items_str)
+            items_str = "";
+            items_mat = "";
         end
+        items_mat = [emptystr(items_mat)+"module" items_mat ]
 
+        elements("items_str") = items_str;
         elements("items_mat") = items_mat;
     else
         elements = [];
index 5c3d20e..02b2b22 100644 (file)
@@ -142,11 +142,10 @@ function remList = atomsRemoveList(packages,section)
         for j=1:size(this_package_versions,"*")
             for k=1:size(sections,"*")
                 if atomsIsInstalled([package_names(i) this_package_versions(j)],sections(k)) ..
-                    & isempty(find(remList(:,3)+" - "+remList(:,4)+" - "+remList(:,5) == package_names(i)+" - "+this_package_versions(j)+" - "+sections(k))) then
+                    & (remList == [] || isempty(find(remList(:,3)+" - "+remList(:,4)+" - "+remList(:,5) == package_names(i)+" - "+this_package_versions(j)+" - "+sections(k)))) then
                     remList = [ remList ; "-" "U" package_names(i) this_package_versions(j) sections(k) ];
                 end
             end
-
         end
     end
 
index 6e94f00..4c306c2 100644 (file)
@@ -45,7 +45,7 @@ if or(atomsIsLoaded(A) <> [%T ; %T ; %T ; %T ; %T ; %F]) then bugmes();quit;end
 // =============================================================================
 atomsRemove("toolbox_2V6","user");
        the package toolbox_2V6 (2.1-1) is currently loaded, It will be removed at next Scilab start
-       the package toolbox_1V6 (2.0-1) is currently loaded, It will be removed at next Scilab start
+       the package toolbox_1V6 (2.0-4) is currently loaded, It will be removed at next Scilab start
 // Restore original values
 // =============================================================================
 atomsRestoreConfig(%T);
index 517d0d3..11a0a44 100644 (file)
@@ -55,7 +55,7 @@ atomsRemove("toolbox_5V6");
        the package toolbox_5V6 (1.2-1) is currently loaded, It will be removed at next Scilab start
        the package toolbox_4V6 (1.1-1) is currently loaded, It will be removed at next Scilab start
        the package toolbox_2V6 (1.0-1) is currently loaded, It will be removed at next Scilab start
-       the package toolbox_1V6 (2.0-1) is currently loaded, It will be removed at next Scilab start
+       the package toolbox_1V6 (2.0-4) is currently loaded, It will be removed at next Scilab start
 // Restore original values
 // =============================================================================
 atomsRestoreConfig(%T);