X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=Testing%2FTestAllVM.cxx;h=0abb80701e060e599e57c2475cba0f17a11c832f;hb=4552d4ee18f3234af4e037e77abf0622c2702004;hp=be2e7973fffc5cbbd4bd91b41a2af5f26b82342a;hpb=27e8696556eff77e15a7a8fc2976ed31f882e0f1;p=gdcm.git

diff --git a/Testing/TestAllVM.cxx b/Testing/TestAllVM.cxx
index be2e7973..0abb8070 100644
--- 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/21 14:51:36 $
-  Version:   $Revision: 1.2 $
+  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
@@ -22,40 +22,81 @@
 //Generated file:
 #include "gdcmDataImages.h"
 
-int TestAllVM(int, char *[])
+int DoTheVMTest(std::string const &filename)
+{
+   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_NAME_SPACE::LD_NOSHADOW | GDCM_NAME_SPACE::LD_NOSEQ );
+
+   file->SetFileName( filename );
+   if( !file->Load() ) //would be really bad...
+      return 1;
+
+   GDCM_NAME_SPACE::DocEntry *d = file->GetFirstEntry();
+   std::cerr << "Testing file : " << filename << std::endl;
+   GDCM_NAME_SPACE::DataEntry *de;
+   while(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
+         {    
+            // 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();
+   }
+   file->Delete();
+
+   return 0;
+}
+
+int TestAllVM(int argc, char *argv[])
 {
    int i = 0;
+   if( argc >= 2 )
+     {
+     const char *filename = argv[1];
+     if( DoTheVMTest( filename ) )
+       return 1;
+     return 0;
+     }
+   // else
 
    while( gdcmDataImages[i] != 0 )
    {
       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();
 
-      gdcm::File file;
-      file.SetLoadMode( gdcm::LD_ALL );
-      file.SetFileName( filename );
-      if( !file.Load() ) //would be really bad...
+      if( DoTheVMTest( filename ) )
         return 1;
-
-      gdcm::DocEntry *d = file.GetFirstEntry();
-      while(d)
-      {
-         if ( gdcm::DataEntry *de = dynamic_cast<gdcm::DataEntry *>(d) )
-         {
-           if(! de->IsValueCountValid() )
-             std::cerr << "Filename:" << filename << std::endl;
-         }
-         else
-         {
-          // We skip pb of SQ recursive exploration
-         }
-
-         d = file.GetNextEntry();
-      }
-
       i++;
+      std::cerr << std::endl; // skip a line after each file
    }
+
    return 0;
 }