1 /*=========================================================================
4 Module: $RCSfile: TestAllVM.cxx,v $
6 Date: $Date: 2005/11/21 11:31:06 $
7 Version: $Revision: 1.11 $
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)
27 gdcm::File *file = gdcm::File::New();
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 // We know OB and OW VM is always 1, whatever the actual
49 if (de->GetVR() != "OB" && de->GetVR() != "OW" )
50 if( !de->IsValueCountValid() )
52 std::cerr << "Element: " << de->GetKey() <<
53 " (" << de->GetName() << ") " <<
54 "Contains a wrong VM: " << de->GetValueCount()
55 << " should be: " << de->GetVM() << std::endl;;
61 // We skip pb of SQ recursive exploration
63 d = file->GetNextEntry();
70 int TestAllVM(int argc, char *argv[])
75 const char *filename = argv[1];
76 if( DoTheVMTest( filename ) )
82 while( gdcmDataImages[i] != 0 )
84 std::string filename = GDCM_DATA_ROOT;
86 filename += gdcmDataImages[i];
88 if (gdcmDataImages[i] == "00191113.dcm") // Track bug on Darwin
89 gdcm::Debug::DebugOn();
91 gdcm::Debug::DebugOff();
93 if( DoTheVMTest( filename ) )
96 std::cerr << std::endl; // skip a line after each file