]> Creatis software - gdcm.git/blobdiff - Testing/TestDataEntry.cxx
Fix mistypings
[gdcm.git] / Testing / TestDataEntry.cxx
index b9b2e54203a7d22dbccee0e1c0bf63c26185165f..05755d35b1599d2eff7e97d87e808a574553c890 100644 (file)
@@ -3,8 +3,8 @@
   Program:   gdcm
   Module:    $RCSfile: TestDataEntry.cxx,v $
   Language:  C++
-  Date:      $Date: 2005/10/18 08:35:46 $
-  Version:   $Revision: 1.1 $
+  Date:      $Date: 2008/09/15 15:49:21 $
+  Version:   $Revision: 1.13 $
                                                                                 
   Copyright (c) CREATIS (Centre de Recherche et d'Applications en Traitement de
   l'Image). All rights reserved. See Doc/License.txt or
 =========================================================================*/
 #include "gdcmDictEntry.h"
 #include "gdcmDataEntry.h"
+#include <math.h>
 
 // ===============================================================
 
-char data[]="1\\2\\3\\4\\5";
-char fdata[]="1.1\\2.2\\3.3\\4.4\\5.5";
+const char data[] = "1\\2\\3\\4\\5";
+const char fdata[] = "1.1\\2.2\\3.3\\4.4\\5.5";
 
-short svalue[]={1,2,3,4,5};
-long lvalue[]={1,2,3,4,5};
-float fvalue[]={1.1f,2.2f,3.3f,4.4f,5.5f};
-double dvalue[]={1.1,2.2,3.3,4.4,5.5};
+const int16_t svalue[]={1,2,3,4,5};
+const int32_t lvalue[]={1,2,3,4,5};
+const float fvalue[]={1.1f,2.2f,3.3f,4.4f,5.5f};
+const double dvalue[]={1.1,2.2,3.3,4.4,5.5};
 
-unsigned long nbvalue = 5;
+const unsigned long nbvalue = 5;
+const double GDCM_EPS = 1e-6;
 
 /**
   * \brief Test the DataEntry object
   */  
-int TestDataEntry(int argc, char *argv[])
+int TestDataEntry(int , char *[])
 {
-   unsigned int error = 0;
-   gdcm::DictEntry *dict;
-   gdcm::DataEntry *entry;
-
-   //------------------------------------------------------------------
-   dict = new gdcm::DictEntry(0x0000,0x0000);
-   entry = new gdcm::DataEntry(dict);
-   dict->SetVR("US");
+   /* Most of the tests are out of date! 
+   (we don't use any longer DictEntry to build a DocEntry!
+   
+   unsigned int i;
+   GDCM_NAME_SPACE::DictEntry *dict;
+   GDCM_NAME_SPACE::DataEntry *entry;
+      
+   dict = GDCM_NAME_SPACE::DictEntry::New(0x0003,0x0004);
+   // SetVR *before* making the DataEntry!
+   dict->SetVR("US");   
+   entry = GDCM_NAME_SPACE::DataEntry::New(dict);
 
    std::cout << "Test for VR = " << dict->GetVR() << "..." << std::endl;
 
+   std::cout << "TagKey : [" << entry->GetKey() << "]" << std::endl;
+   std::cout << "Group : [" << entry->GetGroup() << "]" << std::endl; 
+   std::cout << "Element : [" << entry->GetElement() << "]" << std::endl; 
+      
    entry->SetString("1");
    std::cout << "1: ";
    entry->Print(std::cout);
@@ -53,10 +62,12 @@ int TestDataEntry(int argc, char *argv[])
    if( entry->GetValueCount() != 1 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Number of content values is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Number of content values is incorrect" << std::endl
+                << "   Found: " << entry->GetValueCount() 
+                << " - Must be: 1" << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
 
    entry->SetString("1\\2");
@@ -66,10 +77,12 @@ int TestDataEntry(int argc, char *argv[])
    if( entry->GetValueCount() != 2 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Number of content values is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Number of content values is incorrect" << std::endl
+                << "   Found: " << entry->GetValueCount() 
+                << " - Must be: 2" << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
 
    entry->SetString("");
@@ -79,20 +92,23 @@ int TestDataEntry(int argc, char *argv[])
    if( entry->GetValueCount() != 0 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Number of content values is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Number of content values is incorrect" << std::endl
+                << "   Found: " << entry->GetValueCount() 
+                << " - Must be: 0" << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
 
    std::cout << std::endl;
-   delete dict;
-   delete entry;
+   dict->Delete();
+   entry->Delete();
 
    //------------------------------------------------------------------
-   dict = new gdcm::DictEntry(0x0000,0x0000);
-   entry = new gdcm::DataEntry(dict);
+   dict = GDCM_NAME_SPACE::DictEntry::New(0x0000,0x0000);
+   // SetVR *before* making the DataEntry!   
    dict->SetVR("LT");
+   entry = GDCM_NAME_SPACE::DataEntry::New(dict);
 
    std::cout << "Test for VR = " << dict->GetVR() << "..." << std::endl;
    entry->SetString(data);
@@ -102,56 +118,65 @@ int TestDataEntry(int argc, char *argv[])
    if( entry->GetLength() != strlen(data) + strlen(data)%2 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Size of string is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Size of string is incorrect" << std::endl
+                << "   Found: " << entry->GetLength() 
+                << " - Must be: " << strlen(data) + strlen(data)%2 << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( entry->GetValueCount() != nbvalue )
    {
       std::cout << "   Failed" << std::endl
-                << "   Number of content values is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Number of content values is incorrect" << std::endl
+                << "   Found: " << entry->GetValueCount() 
+                << " - Must be: " << nbvalue << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( memcmp(entry->GetBinArea(),data,entry->GetLength()) != 0 )
    {
       std::cout << "   Failed" << std::endl
                 << "   Content of bin area is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( memcmp(entry->GetString().c_str(),data,entry->GetLength()) != 0 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Content of string is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Content of string is incorrect" << std::endl
+                << "   Found: " << entry->GetString().c_str()
+                << " - Must be: " << data << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
-   for(unsigned int i=0;i<entry->GetValueCount();i++)
+   for(i=0;i<entry->GetValueCount();i++)
    {
       if( entry->GetValue(i) != svalue[i] )
       {
          std::cout << "   Failed" << std::endl
                    << "   Content of entry's values is incorrect : id " << i << std::endl
-                   << "   Found " << entry->GetValue(i) << " - Must be " << svalue[i] << std::endl;
-         delete dict;
-         delete entry;
-         return(1);
+                   << "   Found " << entry->GetValue(i)
+                   << " - Must be " << svalue[i] << std::endl;
+         dict->Delete();
+         entry->Delete();
+         return 1;
       }
    }
 
    std::cout << std::endl;
-   delete dict;
-   delete entry;
+   dict->Delete();
+   entry->Delete();
 
    //------------------------------------------------------------------
-   dict = new gdcm::DictEntry(0x0000,0x0000);
-   entry = new gdcm::DataEntry(dict);
+   dict = GDCM_NAME_SPACE::DictEntry::New(0x0000,0x0000);
+   // SetVR *before* making the DataEntry! 
    dict->SetVR("US");
+   entry = GDCM_NAME_SPACE::DataEntry::New(dict);
+
 
    std::cout << "Test for VR = " << dict->GetVR() << "..." << std::endl;
    entry->SetString(data);
@@ -162,36 +187,44 @@ int TestDataEntry(int argc, char *argv[])
    if( entry->GetLength() != nbvalue*sizeof(uint16_t) )
    {
       std::cout << "   Failed" << std::endl
-                << "   BinArea length is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   BinArea length is incorrect" << std::endl
+                << "   Found: " << entry->GetLength()
+                << " - Must be: " << nbvalue*sizeof(uint16_t) << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( memcmp(entry->GetString().c_str(),data,strlen(data)) != 0 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Content of string is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Content of string is incorrect" << std::endl
+                << "   Found: " << entry->GetString().c_str()
+                << " - Must be: " << data << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( entry->GetValueCount() != nbvalue )
    {
       std::cout << "   Failed" << std::endl
-                << "   Number of content values is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Number of content values is incorrect" << std::endl
+                << "   Found: " << entry->GetValueCount()
+                << " - Must be: " << nbvalue << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
-   for(unsigned int i=0;i<entry->GetValueCount();i++)
+   for(i=0;i<entry->GetValueCount();i++)
    {
       if( entry->GetValue(i) != svalue[i] )
       {
          std::cout << "   Failed" << std::endl
-                   << "   Content of entry's values is incorrect : id " << i << std::endl;
-         delete dict;
-         delete entry;
-         return(1);
+                   << "   Content of entry's values is incorrect : id " << i << std::endl
+                   << "   Found: " << entry->GetValue(i)
+                   << " - Must be: " << svalue[i] << std::endl;
+         dict->Delete();
+         entry->Delete();
+         return 1;
       }
    }
 
@@ -204,39 +237,45 @@ int TestDataEntry(int argc, char *argv[])
    if( memcmp(entry->GetString().c_str(),data,strlen(data)) != 0 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Content of string is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Content of string is incorrect" << std::endl
+                << "   Found: " << entry->GetString().c_str()
+                << " - Must be: " << data << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( entry->GetValueCount() != nbvalue )
    {
       std::cout << "   Failed" << std::endl
-                << "   Number of content values is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Number of content values is incorrect" << std::endl
+                << "   Found: " << entry->GetValueCount() 
+                << " - Must be: " << nbvalue << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
-   for(unsigned int i=0;i<entry->GetValueCount();i++)
+   for(i=0;i<entry->GetValueCount();i++)
    {
       if( entry->GetValue(i) != svalue[i] )
       {
          std::cout << "   Failed" << std::endl
-                   << "   Content of entry's values is incorrect : id " << i << std::endl;
-         delete dict;
-         delete entry;
-         return(1);
+                   << "   Content of entry's values is incorrect : id " << i << std::endl
+                   << "   Found: " << entry->GetValue(i)
+                   << " - Must be: " << svalue[i] << std::endl;
+         dict->Delete();
+         entry->Delete();
+         return 1;
       }
    }
 
    std::cout << std::endl;
-   delete dict;
-   delete entry;
+   dict->Delete();
+   entry->Delete();
 
    //------------------------------------------------------------------
-   dict = new gdcm::DictEntry(0x0000,0x0000);
-   entry = new gdcm::DataEntry(dict);
+   dict = GDCM_NAME_SPACE::DictEntry::New(0x0000,0x0000);
    dict->SetVR("UL");
+   entry = GDCM_NAME_SPACE::DataEntry::New(dict);
 
    std::cout << "Test for VR = " << dict->GetVR() << "..." << std::endl;
    entry->SetString(data);
@@ -247,37 +286,44 @@ int TestDataEntry(int argc, char *argv[])
    if( entry->GetLength() != nbvalue*sizeof(uint32_t) )
    {
       std::cout << "   Failed" << std::endl
-                << "   BinArea length is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   BinArea length is incorrect" << std::endl
+                << "   Found: " << entry->GetLength()
+                << " - Must be: " << nbvalue*sizeof(uint32_t) << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( memcmp(entry->GetString().c_str(),data,strlen(data)) != 0 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Content of string is incorrect" << std::endl;
-      std::cout<<"#"<<entry->GetString()<<"#"<<" / "<<"#"<<data<<"#"<<std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Content of string is incorrect" << std::endl
+                << "   Found: " << entry->GetString().c_str()
+                << " - Must be: " << data << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( entry->GetValueCount() != nbvalue )
    {
       std::cout << "   Failed" << std::endl
-                << "   Number of content values is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Number of content values is incorrect" << std::endl
+                << "   Found: " << entry->GetValueCount() 
+                << " - Must be: " << nbvalue << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
-   for(unsigned int i=0;i<entry->GetValueCount();i++)
+   for(i=0;i<entry->GetValueCount();i++)
    {
       if( entry->GetValue(i) != lvalue[i] )
       {
          std::cout << "   Failed" << std::endl
-                   << "   Content of entry's values is incorrect : id " << i << std::endl;
-         delete dict;
-         delete entry;
-         return(1);
+                   << "   Content of entry's values is incorrect : id " << i << std::endl
+                   << "   Found: " << entry->GetValue(i)
+                   << " - Must be: " << lvalue[i] << std::endl;
+         dict->Delete();
+         entry->Delete();
+         return 1;
       }
    }
 
@@ -290,39 +336,45 @@ int TestDataEntry(int argc, char *argv[])
    if( memcmp(entry->GetString().c_str(),data,strlen(data)) != 0 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Content of string is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Content of string is incorrect" << std::endl
+                << "   Found: " << entry->GetString().c_str() 
+                << " - Must be: " << data << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( entry->GetValueCount() != nbvalue )
    {
       std::cout << "   Failed" << std::endl
-                << "   Number of content values is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Number of content values is incorrect" << std::endl
+                << "   Found: " << entry->GetValueCount() 
+                << " - Must be: " << nbvalue << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
-   for(unsigned int i=0;i<entry->GetValueCount();i++)
+   for(i=0;i<entry->GetValueCount();i++)
    {
       if( entry->GetValue(i) != lvalue[i] )
       {
          std::cout << "   Failed" << std::endl
-                   << "   Content of entry's values is incorrect : id " << i << std::endl;
-         delete dict;
-         delete entry;
-         return(1);
+                   << "   Content of entry's values is incorrect : id " << i << std::endl
+                   << "   Found: " << entry->GetValue(i)
+                   << " - Must be: " << lvalue[i] << std::endl;
+         dict->Delete();
+         entry->Delete();
+         return 1;
       }
    }
 
    std::cout << std::endl;
-   delete dict;
-   delete entry;
+   dict->Delete();
+   entry->Delete();
 
    //------------------------------------------------------------------
-   dict = new gdcm::DictEntry(0x0000,0x0000);
-   entry = new gdcm::DataEntry(dict);
+   dict = GDCM_NAME_SPACE::DictEntry::New(0x0000,0x0000);
    dict->SetVR("FL");
+   entry = GDCM_NAME_SPACE::DataEntry::New(dict);
 
    std::cout << "Test for VR = " << dict->GetVR() << "..." << std::endl;
    entry->SetString(fdata);
@@ -333,36 +385,44 @@ int TestDataEntry(int argc, char *argv[])
    if( entry->GetLength() != nbvalue*sizeof(float) )
    {
       std::cout << "   Failed" << std::endl
-                << "   BinArea length is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   BinArea length is incorrect" << std::endl
+                << "   Found: " << entry->GetLength() 
+                << " - Must be: " << nbvalue*sizeof(float) << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( memcmp(entry->GetString().c_str(),fdata,strlen(fdata)) != 0 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Content of string is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Content of string is incorrect" << std::endl
+                << "   Found: " << entry->GetString().c_str()
+                << " - Must be: " << fdata << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( entry->GetValueCount() != nbvalue )
    {
       std::cout << "   Failed" << std::endl
-                << "   Number of content values is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Number of content values is incorrect" << std::endl
+                << "   Found: " << entry->GetValueCount() 
+                << " - Must be: " << nbvalue << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
-   for(unsigned int i=0;i<entry->GetValueCount();i++)
+   for(i=0;i<entry->GetValueCount();i++)
    {
       if( entry->GetValue(i) != fvalue[i] )
       {
          std::cout << "   Failed" << std::endl
-                   << "   Content of entry's values is incorrect : id " << i << std::endl;
-         delete dict;
-         delete entry;
-         return(1);
+                   << "   Content of entry's values is incorrect : id " << i << std::endl
+                   << "   Found: " << entry->GetValue(i)
+                   << " - Must be: " << fvalue[i] << std::endl;
+         dict->Delete();
+         entry->Delete();
+         return 1;
       }
    }
 
@@ -375,39 +435,45 @@ int TestDataEntry(int argc, char *argv[])
    if( memcmp(entry->GetString().c_str(),fdata,strlen(fdata)) != 0 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Content of string is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Content of string is incorrect" << std::endl
+                << "   Found: " << entry->GetString().c_str()
+                << " - Must be: " << fdata << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( entry->GetValueCount() != nbvalue )
    {
       std::cout << "   Failed" << std::endl
-                << "   Number of content values is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Number of content values is incorrect" << std::endl
+                << "   Found: " << entry->GetValueCount() 
+                << " - Must be: " << nbvalue << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
-   for(unsigned int i=0;i<entry->GetValueCount();i++)
+   for(i=0;i<entry->GetValueCount();i++)
    {
       if( entry->GetValue(i) != fvalue[i] )
       {
          std::cout << "   Failed" << std::endl
-                   << "   Content of entry's values is incorrect : id " << i << std::endl;
-         delete dict;
-         delete entry;
-         return(1);
+                   << "   Content of entry's values is incorrect : id " << i << std::endl
+                   << "   Found: " << entry->GetValue(i)
+                   << " - Must be: " << fvalue[i] << std::endl;
+         dict->Delete();
+         entry->Delete();
+         return 1;
       }
    }
 
    std::cout << std::endl;
-   delete dict;
-   delete entry;
+   dict->Delete();
+   entry->Delete();
 
    //------------------------------------------------------------------
-   dict = new gdcm::DictEntry(0x0000,0x0000);
-   entry = new gdcm::DataEntry(dict);
+   dict = GDCM_NAME_SPACE::DictEntry::New(0x0000,0x0000);
    dict->SetVR("FD");
+   entry = GDCM_NAME_SPACE::DataEntry::New(dict);
 
    std::cout << "Test for VR = " << dict->GetVR() << "..." << std::endl;
    entry->SetString(fdata);
@@ -418,36 +484,46 @@ int TestDataEntry(int argc, char *argv[])
    if( entry->GetLength() != nbvalue*sizeof(double) )
    {
       std::cout << "   Failed" << std::endl
-                << "   BinArea length is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   BinArea length is incorrect" << std::endl
+                << "   Found: " << entry->GetLength()
+                << " - Must be: " << nbvalue*sizeof(double) << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( memcmp(entry->GetString().c_str(),fdata,strlen(fdata)) != 0 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Content of string is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Content of string is incorrect" << std::endl
+                << "   Found: " << entry->GetString().c_str()
+                << " - Must be: " << fdata << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( entry->GetValueCount() != nbvalue )
    {
       std::cout << "   Failed" << std::endl
-                << "   Number of content values is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
-   }
-   for(unsigned int i=0;i<entry->GetValueCount();i++)
-   {
-      if( entry->GetValue(i) != dvalue[i] )
+                << "   Number of content values is incorrect" << std::endl
+                << "   Found: " << entry->GetValueCount() 
+                << " - Must be: " << nbvalue << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
+   }
+   for(i=0;i<entry->GetValueCount();i++)
+   {
+      // Never compare floating point value...
+      double dif = fabs(entry->GetValue(i) - dvalue[i]);
+      if( dif > GDCM_EPS)
       {
          std::cout << "   Failed" << std::endl
-                   << "   Content of entry's values is incorrect : id " << i << std::endl;
-         delete dict;
-         delete entry;
-         return(1);
+                   << "   Content of entry's values is incorrect : id " << i << std::endl
+                   << "   Found: " << entry->GetValue(i)
+                   << " - Must be: " << dvalue[i] << std::endl;
+         dict->Delete();
+         entry->Delete();
+         return 1;
       }
    }
 
@@ -460,36 +536,43 @@ int TestDataEntry(int argc, char *argv[])
    if( memcmp(entry->GetString().c_str(),fdata,strlen(fdata)) != 0 )
    {
       std::cout << "   Failed" << std::endl
-                << "   Content of string is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Content of string is incorrect" << std::endl
+                << "   Found: " << entry->GetString().c_str()
+                << " - Must be: " << fdata << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
    if( entry->GetValueCount() != nbvalue )
    {
       std::cout << "   Failed" << std::endl
-                << "   Number of content values is incorrect" << std::endl;
-      delete dict;
-      delete entry;
-      return(1);
+                << "   Number of content values is incorrect" << std::endl
+                << "   Found: " << entry->GetValueCount() 
+                << " - Must be: " << nbvalue << std::endl;
+      dict->Delete();
+      entry->Delete();
+      return 1;
    }
-   for(unsigned int i=0;i<entry->GetValueCount();i++)
+   for(i=0;i<entry->GetValueCount();i++)
    {
       if( entry->GetValue(i) != dvalue[i] )
       {
          std::cout << "   Failed" << std::endl
-                   << "   Content of entry's values is incorrect : id " << i << std::endl;
-         delete dict;
-         delete entry;
-         return(1);
+                   << "   Content of entry's values is incorrect : id " << i << std::endl
+                   << "   Found: " << entry->GetValue(i)
+                   << " - Must be: " << dvalue[i] << std::endl;
+         dict->Delete();
+         entry->Delete();
+         return 1;
       }
    }
 
    std::cout << std::endl;
-   delete dict;
-   delete entry;
+   dict->Delete();
+   entry->Delete();
 
    //------------------------------------------------------------------
    std::cout<<std::flush;
+   */
    return 0;
 }