1 /*=========================================================================
4 Module: $RCSfile: TestAllVM.cxx,v $
6 Date: $Date: 2005/10/23 14:53:51 $
7 Version: $Revision: 1.7 $
9 Copyright (c) CREATIS (Centre de Recherche et d'Applications en Traitement de
10 l'Image). All rights reserved. See Doc/License.txt or
11 http://www.creatis.insa-lyon.fr/Public/Gdcm/License.html for details.
13 This software is distributed WITHOUT ANY WARRANTY; without even
14 the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
15 PURPOSE. See the above copyright notices for more information.
17 =========================================================================*/
20 #include "gdcmDataEntry.h"
23 #include "gdcmDataImages.h"
25 int DoTheVMTest(std::string const &filename)
28 // - Do not test unknow VM in shadow groups (if element 0x0000 is present)
29 // - Skip Sequences (if they are 'True Length'); loading will be quicker
30 // (anyway, Sequences are skipped at processing time ...)
31 file.SetLoadMode( gdcm::LD_NOSHADOW | gdcm::LD_NOSEQ );
33 file.SetFileName( filename );
34 if( !file.Load() ) //would be really bad...
37 gdcm::DocEntry *d = file.GetFirstEntry();
38 std::cerr << "Testing file : " << filename << std::endl;
41 if ( gdcm::DataEntry *de = dynamic_cast<gdcm::DataEntry *>(d) )
43 if ( !(de->GetGroup() % 2) ) // Don't check shadow elements. Righ now,
44 // Private Dictionnary are not dealt with
46 if( !de->IsValueCountValid() )
48 std::cerr << "Element: " << de->GetKey() <<
49 " (" << de->GetName() << ") " <<
50 "Contains a wrong VM: " << de->GetValueCount()
51 << " should be: " << de->GetVM() << std::endl;;
57 // We skip pb of SQ recursive exploration
59 d = file.GetNextEntry();
64 int TestAllVM(int argc, char *argv[])
69 const char *filename = argv[1];
70 if( DoTheVMTest( filename ) )
76 while( gdcmDataImages[i] != 0 )
78 std::string filename = GDCM_DATA_ROOT;
80 filename += gdcmDataImages[i];
82 if( DoTheVMTest( filename ) )
85 std::cerr << std::endl; // skip a line after each file