various small tests ... (#1786)

unclear but I want to and another file ...

Author: alaingdl

src/basic_fun_jmg.cpp

@@ -207,8 +207,8 @@ namespace lib {
     }
 
     if(type == "OBJREF"){
-      rank=1; // alway array following ISA() doc.
-      //cout << "OBJREF" << endl;
+      // AC 2024/03/21 wrong here rank=1; // alway array following ISA() doc.
+      // cout << "OBJREF" << endl;
       DObjGDL* obj = static_cast<DObjGDL*>(p0);
       DObj objID = (*obj)[0];
       if(objID == 0) res = false; else res = true;
@@ -224,7 +224,11 @@ namespace lib {
 	else {
 	  objectName = str->Desc()->Name();
 	}
-	// cout << objectName << endl;
+	SizeT nEl;
+	if (str->Desc()->IsParent("LIST")) nEl=LIST_count(str);
+	if (str->Desc()->IsParent("HASH")) nEl=HASH_count(str);
+	if (debug) cout << objectName << " " << nEl<< endl;
+	if (nEl > 0) rank=1;
       }
     }
 
@@ -456,22 +460,21 @@ namespace lib {
 	    if( oStructGDL != NULL) // if object not valid -> default behaviour
 	      {  
 		DStructDesc* desc = oStructGDL->Desc();
-
 		if( desc->IsParent("LIST"))
 		  {
-				isObjectContainer = true; nEl = LIST_count(oStructGDL);
+		    isObjectContainer = true; nEl = LIST_count(oStructGDL);
 		  }
 		if( desc->IsParent("HASH"))
 		  {
-				isObjectContainer = true; nEl = HASH_count(oStructGDL);
+		    isObjectContainer = true; nEl = HASH_count(oStructGDL);
 		  }
 	      }
 	  }
       }
 
     if( isObjectContainer)
       {
-	LogicalRank = 1;
+	if (nEl > 0) LogicalRank = 1; // AC2024/03/21 bug  #1725
       }
 
     // DIMENSIONS

src/list.cpp

@@ -2125,7 +2125,8 @@ BaseGDL* list__toarray( EnvUDT* e)
 
 BaseGDL* list__isempty( EnvUDT* e)
 {
-      
+             std::cout << "par par ici et là" << std::endl;
+   
     GDL_LIST_STRUCT()
 
   static int kwSELFIx = 0;
@@ -2137,16 +2138,20 @@ BaseGDL* list__isempty( EnvUDT* e)
 
 SizeT LIST_count( DStructGDL* list)
 {// straight through, no checks
-  static unsigned nListTag = structDesc::LIST->TagIndex( "NLIST");
-    return (*static_cast<DLongGDL*>( list->GetTag( nListTag, 0)))[0];         
 
+  static unsigned nListTag = structDesc::LIST->TagIndex( "NLIST");
+  
+  //  std::cout << nListTag << std::endl;
+  return (*static_cast<DLongGDL*>( list->GetTag( nListTag, 0)))[0];
 }
+
 BaseGDL* list__count( EnvUDT* e)
 {
     static int kwSELFIx = 0; // no keywords
     static int kwVALUEIx = 1;
-   
-//    DStructGDL* self = GetOBJ( e->GetKW( kwSELFIx), e);
+
+    //    std::cout << "ici ici" << std::endl;
+    //    DStructGDL* self = GetOBJ( e->GetKW( kwSELFIx), e);
     SizeT nParam = e->NParam(1);
     if( nParam == 1)
         return new DLongGDL( LIST_count( GetOBJ( e->GetTheKW( kwSELFIx), e)));

testsuite/LIST

@@ -38,7 +38,6 @@ test_bug_3189072.pro
 test_bug_3199465.pro
 test_bug_3285659.pro
 test_bug_3286031.pro
-test_bug_3288652.pro
 test_bug_3290532.pro
 test_bug_3296360.pro
 test_bug_3298378.pro
@@ -96,6 +95,7 @@ test_file_readlink.pro
 test_file_which.pro
 test_finite.pro
 test_fixprint.pro
+test_foreach.pro
 test_fx_root.pro
 test_fz_roots.pro
 test_gaussfit.pro
@@ -144,6 +144,7 @@ test_null.pro
 test_numeric_limits.pro
 test_obj_hasmethod.pro
 test_obj_valid.pro
+test_operators.pro
 test_parse_url.pro
 test_plot_ranges.pro
 test_plot_usersym.pro
@@ -202,5 +203,6 @@ test_wordexp.pro
 test_wordexp_null_string.pro
 test_xdr.pro
 test_xmlsax.pro
+test_xyztick_get.pro
 test_zeropoly.pro
 test_write_csv.pro