Fix mistypings

[gdcm.git] / Testing / TestAllVM.cxx

diff --git a/Testing/TestAllVM.cxx b/Testing/TestAllVM.cxx
index 1dce8206204ea1a16d8749ad6ea56ba45a726ab6..0abb80701e060e599e57c2475cba0f17a11c832f 100644 (file)
--- a/Testing/TestAllVM.cxx
+++ b/Testing/TestAllVM.cxx
@@ -3,8 +3,8 @@
   Program:   gdcm
   Module:    $RCSfile: TestAllVM.cxx,v $
   Language:  C++
-  Date:      $Date: 2005/10/23 14:53:51 $
-  Version:   $Revision: 1.7 $
+  Date:      $Date: 2007/06/21 14:59:06 $
+  Version:   $Revision: 1.15 $
                                                                                 
   Copyright (c) CREATIS (Centre de Recherche et d'Applications en Traitement de
   l'Image). All rights reserved. See Doc/License.txt or
@@ -24,41 +24,48 @@
 
 int DoTheVMTest(std::string const &filename)
 {
-   gdcm::File file;
+   GDCM_NAME_SPACE::File *file = GDCM_NAME_SPACE::File::New();
    // - Do not test unknow VM in shadow groups (if element 0x0000 is present)
    // - Skip Sequences (if they are 'True Length'); loading will be quicker
    //                  (anyway, Sequences are skipped at processing time ...)
-   file.SetLoadMode( gdcm::LD_NOSHADOW | gdcm::LD_NOSEQ );
+   file->SetLoadMode( GDCM_NAME_SPACE::LD_NOSHADOW | GDCM_NAME_SPACE::LD_NOSEQ );
 
-   file.SetFileName( filename );
-   if( !file.Load() ) //would be really bad...
+   file->SetFileName( filename );
+   if( !file->Load() ) //would be really bad...
       return 1;
 
-   gdcm::DocEntry *d = file.GetFirstEntry();
+   GDCM_NAME_SPACE::DocEntry *d = file->GetFirstEntry();
    std::cerr << "Testing file : " << filename << std::endl;
+   GDCM_NAME_SPACE::DataEntry *de;
    while(d)
    {
-      if ( gdcm::DataEntry *de = dynamic_cast<gdcm::DataEntry *>(d) )
+      if ( (de = dynamic_cast<GDCM_NAME_SPACE::DataEntry *>(d)) )
       {
          if ( !(de->GetGroup() % 2) ) // Don't check shadow elements. Righ now,
                                       // Private Dictionnary are not dealt with
          {    
-            if( !de->IsValueCountValid() )
-            {
-               std::cerr << "Element: " << de->GetKey() <<
+            // We know OB and OW VM is always 1, whatever the actual
+            //  found value is.
+     
+            if (de->GetVR() != "OB" && de->GetVR() != "OW" )
+               if( !de->IsValueCountValid() )
+               {
+                  std::cerr << "Element: " << de->GetKey() <<
                     " (" << de->GetName() << ") " <<
                     "Contains a wrong VM: " << de->GetValueCount() 
                     << " should be: " << de->GetVM() << std::endl;;
-            }
+               }
          }
       }
       else
       {
           // We skip pb of SQ recursive exploration
       }
-      d = file.GetNextEntry();
+      d = file->GetNextEntry();
    }
-      return 0;
+   file->Delete();
+
+   return 0;
 }
 
 int TestAllVM(int argc, char *argv[])
@@ -78,6 +85,11 @@ int TestAllVM(int argc, char *argv[])
       std::string filename = GDCM_DATA_ROOT;
       filename += "/";
       filename += gdcmDataImages[i];
+      
+      if (!strcmp(gdcmDataImages[i],"00191113.dcm")) // Track bug on Darwin
+          GDCM_NAME_SPACE::Debug::DebugOn();
+      else
+         GDCM_NAME_SPACE::Debug::DebugOff();
 
       if( DoTheVMTest( filename ) )
         return 1;