exiftool_vendored 10.49.0 → 10.56.0

data/bin/Image-ExifTool-10.49/t/DNG_3.out

@@ -1,4 +0,0 @@
-[XMP, XMP-aux, Camera] OwnerName - Owner Name: Just Me
-[EXIF, ExifIFD, Image] 42032 - Owner Name: Just Me
-[MakerNotes, Canon, Camera] 9 - Owner Name: Just Me
-[Composite, Composite, Camera] OriginalDecisionData - Original Decision Data: (Binary data 24 bytes)

data/bin/Image-ExifTool-10.49/t/DPX.t

@@ -1,28 +0,0 @@
-# Before "make install", this script should be runnable with "make test".
-# After "make install" it should work as "perl t/DPX.t".
-
-BEGIN { $| = 1; print "1..2\n"; $Image::ExifTool::configFile = ''; }
-END {print "not ok 1\n" unless $loaded;}
-
-# test 1: Load the module(s)
-use Image::ExifTool 'ImageInfo';
-use Image::ExifTool::DPX;
-$loaded = 1;
-print "ok 1\n";
-
-use t::TestLib;
-
-my $testname = 'DPX';
-my $testnum = 1;
-
-# test 2: Extract information from DPX.dpx
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    my $info = $exifTool->ImageInfo('t/images/DPX.dpx');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-
-# end

data/bin/Image-ExifTool-10.49/t/DPX_2.out

@@ -1,39 +0,0 @@
-[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 9.96
-[File, System, Image] FileName - File Name: DPX.dpx
-[File, System, Image] Directory - Directory: t/images
-[File, System, Image] FileSize - File Size: 2.0 kB
-[File, System, Time] FileModifyDate - File Modification Date/Time: 2013:09:20 08:49:38-04:00
-[File, System, Time] FileAccessDate - File Access Date/Time: 2015:05:11 13:05:40-04:00
-[File, System, Time] FileInodeChangeDate - File Inode Change Date/Time: 2015:03:07 15:31:02-05:00
-[File, System, Image] FilePermissions - File Permissions: rw-r--r--
-[File, File, Image] FileType - File Type: DPX
-[File, File, Image] FileTypeExtension - File Type Extension: dpx
-[File, File, Image] MIMEType - MIME Type: image/x-dpx
-[File, File, Image] 0 - Byte Order: Big-endian
-[File, File, Image] 8 - Header Version: V1.0
-[File, File, Image] 16 - DPX File Size: 12812288
-[File, File, Image] 20 - Ditto Key: New
-[File, File, Image] 36 - Image File Name: Image filename         
-[File, File, Time] 136 - Create Date: 2010:08:03 08:38:16
-[File, File, Author] 160 - Creator: Creator                
-[File, File, Image] 260 - Project: Project name           
-[File, File, Author] 460 - Copyright: Copyright info         
-[File, File, Image] 660 - Encryption Key: ffffffff
-[File, File, Image] 768 - Orientation: Horizontal (normal)
-[File, File, Image] 770 - Image Elements: 1
-[File, File, Image] 772 - Image Width: 2048
-[File, File, Image] 776 - Image Height: 1556
-[File, File, Image] 780 - Data Sign: Unsigned
-[File, File, Image] 800 - Components Configuration: R, G, B
-[File, File, Image] 803 - Bit Depth: 10
-[File, File, Image] 820 - Image Description: CPD
-[File, File, Image] 1432 - Source File Name: 
-[File, File, Image] 1532 - Source Create Date: 
-[File, File, Image] 1556 - Input Device Name: SPIRIT-4K DATACINE 
-[File, File, Image] 1588 - Input Device Serial Number: 01018
-[File, File, Image] 1724 - Frame Rate: 0
-[File, File, Image] 1732 - Frame ID: 
-[File, File, Image] 1764 - Slate Information: 
-[File, File, Image] 2048 - User ID: Thomson BTS        
-[Composite, Composite, Image] ImageSize - Image Size: 2048x1556
-[Composite, Composite, Image] Megapixels - Megapixels: 3.2

data/bin/Image-ExifTool-10.49/t/DV.t

@@ -1,27 +0,0 @@
-# Before "make install", this script should be runnable with "make test".
-# After "make install" it should work as "perl t/DV.t".
-
-BEGIN { $| = 1; print "1..2\n"; $Image::ExifTool::configFile = ''; }
-END {print "not ok 1\n" unless $loaded;}
-
-# test 1: Load the module(s)
-use Image::ExifTool 'ImageInfo';
-use Image::ExifTool::DV;
-$loaded = 1;
-print "ok 1\n";
-
-use t::TestLib;
-
-my $testname = 'DV';
-my $testnum = 1;
-
-# test 2: Extract information from an DV file
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    my $info = $exifTool->ImageInfo('t/images/DV.dv');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# end

data/bin/Image-ExifTool-10.49/t/DV_2.out

@@ -1,26 +0,0 @@
-[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 9.93
-[File, System, Image] FileName - File Name: DV.dv
-[File, System, Image] Directory - Directory: t/images
-[File, System, Image] FileSize - File Size: 4.3 kB
-[File, System, Time] FileModifyDate - File Modification Date/Time: 2010:12:25 08:53:20-05:00
-[File, System, Time] FileAccessDate - File Access Date/Time: 2015:04:18 07:17:35-04:00
-[File, System, Time] FileInodeChangeDate - File Inode Change Date/Time: 2015:03:07 15:31:09-05:00
-[File, System, Image] FilePermissions - File Permissions: rw-r--r--
-[File, File, Image] FileType - File Type: DV
-[File, File, Image] FileTypeExtension - File Type Extension: dv
-[File, File, Image] MIMEType - MIME Type: video/x-dv
-[DV, DV, Time] DateTimeOriginal - Date Time Original: 2010:02:16 21:36:28
-[DV, DV, Video] ImageWidth - Image Width: 720
-[DV, DV, Video] ImageHeight - Image Height: 576
-[DV, DV, Video] Duration - Duration: 0.00 s
-[DV, DV, Video] TotalBitrate - Total Bitrate: 28.8 Mbps
-[DV, DV, Video] VideoFormat - Video Format: IEC 61834 - 625/50 (PAL)
-[DV, DV, Video] VideoScanType - Video Scan Type: Progressive
-[DV, DV, Video] FrameRate - Frame Rate: 25
-[DV, DV, Video] AspectRatio - Aspect Ratio: 16:9
-[DV, DV, Video] Colorimetry - Colorimetry: 4:2:0
-[DV, DV, Audio] AudioChannels - Audio Channels: 4
-[DV, DV, Audio] AudioSampleRate - Audio Sample Rate: 32000
-[DV, DV, Audio] AudioBitsPerSample - Audio Bits Per Sample: 12
-[Composite, Composite, Image] ImageSize - Image Size: 720x576
-[Composite, Composite, Image] Megapixels - Megapixels: 0.415

data/bin/Image-ExifTool-10.49/t/DjVu.t

@@ -1,28 +0,0 @@
-# Before "make install", this script should be runnable with "make test".
-# After "make install" it should work as "perl t/DjVu.t".
-
-BEGIN { $| = 1; print "1..2\n"; $Image::ExifTool::configFile = ''; }
-END {print "not ok 1\n" unless $loaded;}
-
-# test 1: Load the module(s)
-use Image::ExifTool 'ImageInfo';
-use Image::ExifTool::DjVu;
-$loaded = 1;
-print "ok 1\n";
-
-use t::TestLib;
-
-my $testname = 'DjVu';
-my $testnum = 1;
-
-# test 2: Extract information from DjVu.djvu
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    my $info = $exifTool->ImageInfo('t/images/DjVu.djvu');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-
-# end

data/bin/Image-ExifTool-10.49/t/DjVu_2.out

@@ -1,46 +0,0 @@
-[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 9.93
-[File, System, Image] FileName - File Name: DjVu.djvu
-[File, System, Image] Directory - Directory: t/images
-[File, System, Image] FileSize - File Size: 955 bytes
-[File, System, Time] FileModifyDate - File Modification Date/Time: 2008:11:11 11:15:11-05:00
-[File, System, Time] FileAccessDate - File Access Date/Time: 2015:04:18 07:17:35-04:00
-[File, System, Time] FileInodeChangeDate - File Inode Change Date/Time: 2015:03:07 15:31:09-05:00
-[File, System, Image] FilePermissions - File Permissions: rw-r--r--
-[File, File, Image] FileType - File Type: DJVU (multi-page)
-[File, File, Image] FileTypeExtension - File Type Extension: djvu
-[File, File, Image] MIMEType - MIME Type: image/vnd.djvu
-[DjVu, DjVu, Image] 0 - Subfile Type: Single-page image
-[DjVu, DjVu, Image] 0 - Image Width: 8
-[DjVu, DjVu, Image] 2 - Image Height: 8
-[DjVu, DjVu, Image] 4 - DjVu Version: 0.24
-[DjVu, DjVu, Image] 6 - Spatial Resolution: 100
-[DjVu, DjVu, Image] 8 - Gamma: 2.2
-[DjVu, DjVu, Image] 9 - Orientation: Unknown (0)
-[DjVu, DjVu, Image] INCL - Included File ID: shared_anno.iff
-[DjVu, DjVu, Image] 0 - Subfile Type: Shared component
-[DjVu, DjVu-Meta, Author] Author - Author: Phil Harvey
-[DjVu, DjVu-Meta, Image] Title - Title: DjVu Metadata Sample
-[DjVu, DjVu-Meta, Image] Subject - Subject: ExifTool DjVu test image
-[DjVu, DjVu-Meta, Time] CreationDate - Create Date: 2008:09:23 12:31:34-04:00
-[DjVu, DjVu-Meta, Time] ModDate - Modify Date: 2008:11:11 09:17:10-05:00
-[DjVu, DjVu-Meta, Image] Keywords - Keywords: ExifTool, Test, DjVu, XMP
-[DjVu, DjVu-Meta, Image] Producer - Producer: djvused
-[DjVu, DjVu-Meta, Image] Trapped - Trapped: Unknown
-[DjVu, DjVu-Meta, Image] Creator - Creator: ExifTool
-[DjVu, DjVu-Meta, Image] url - URL: http://owl.phy.queensu.ca/~phil/exiftool/
-[DjVu, DjVu-Meta, Image] note - Note: Must escape double quotes (") and backslashes (\)
-[DjVu, DjVu-Meta, Image] annote - Annotation: Did you get this?
-[XMP, XMP-album, Image] Notes - Notes: Must escape double quotes (") and backslashes (\)
-[XMP, XMP-dc, Author] creator - Creator: Phil Harvey
-[XMP, XMP-dc, Image] description - Description: ExifTool DjVu test image
-[XMP, XMP-dc, Author] rights - Rights: Copyright 2008 Phil Harvey
-[XMP, XMP-dc, Image] subject - Subject: ExifTool, Test, DjVu, XMP
-[XMP, XMP-dc, Image] title - Title: DjVu Metadata Sample
-[XMP, XMP-pdf, Image] Keywords - Keywords: ExifTool, Test, DjVu, XMP
-[XMP, XMP-pdf, Author] Producer - Producer: djvused
-[XMP, XMP-pdf, Image] Trapped - Trapped: Unknown
-[XMP, XMP-xmp, Time] CreateDate - Create Date: 2008:09:23 12:31:34-04:00
-[XMP, XMP-xmp, Image] CreatorTool - Creator Tool: ExifTool
-[XMP, XMP-xmp, Time] ModifyDate - Modify Date: 2008:11:11 09:17:10-05:00
-[Composite, Composite, Image] ImageSize - Image Size: 8x8
-[Composite, Composite, Image] Megapixels - Megapixels: 0.000064

data/bin/Image-ExifTool-10.49/t/EXE.t

@@ -1,31 +0,0 @@
-# Before "make install", this script should be runnable with "make test".
-# After "make install" it should work as "perl t/EXE.t".
-
-BEGIN { $| = 1; print "1..7\n"; $Image::ExifTool::configFile = ''; }
-END {print "not ok 1\n" unless $loaded;}
-
-# test 1: Load the module(s)
-use Image::ExifTool 'ImageInfo';
-use Image::ExifTool::EXE;
-$loaded = 1;
-print "ok 1\n";
-
-use t::TestLib;
-
-my $testname = 'EXE';
-my $testnum = 1;
-
-# tests 2-7: Extract information from various types of executable files and libraries
-{
-    my $exifTool = new Image::ExifTool;
-    my $ext;
-    foreach $ext ('exe', 'macho', 'elf', 'a', 'so', 'dylib') {
-        ++$testnum;
-        my $info = $exifTool->ImageInfo("t/images/EXE.$ext", '-system:all');
-        print 'not ' unless check($exifTool, $info, $testname, $testnum);
-        print "ok $testnum\n";
-    }
-}
-
-
-# end

data/bin/Image-ExifTool-10.49/t/EXE_2.out

@@ -1,34 +0,0 @@
-[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 10.15
-[File, File, Image] FileType - File Type: Win32 EXE
-[File, File, Image] FileTypeExtension - File Type Extension: exe
-[File, File, Image] MIMEType - MIME Type: application/octet-stream
-[EXE, EXE, Other] 0 - Machine Type: Intel 386 or later, and compatibles
-[EXE, EXE, Time] 2 - Time Stamp: 2008:09:08 08:01:24-04:00
-[EXE, EXE, Other] 10 - PE Type: PE32
-[EXE, EXE, Other] 11 - Linker Version: 2.56
-[EXE, EXE, Other] 12 - Code Size: 2048
-[EXE, EXE, Other] 14 - Initialized Data Size: 4096
-[EXE, EXE, Other] 16 - Uninitialized Data Size: 512
-[EXE, EXE, Other] 18 - Entry Point: 0x1000
-[EXE, EXE, Other] 30 - OS Version: 4.0
-[EXE, EXE, Other] 32 - Image Version: 1.0
-[EXE, EXE, Other] 34 - Subsystem Version: 4.0
-[EXE, EXE, Other] 44 - Subsystem: Windows command line
-[EXE, EXE, Other] 2 - File Version Number: 1.2.3.4
-[EXE, EXE, Other] 4 - Product Version Number: 5.6.7.8
-[EXE, EXE, Other] 6 - File Flags Mask: 0x003f
-[EXE, EXE, Other] 7 - File Flags: Debug
-[EXE, EXE, Other] 8 - File OS: Win32
-[EXE, EXE, Other] 9 - Object File Type: Executable application
-[EXE, EXE, Other] 10 - File Subtype: 0
-[EXE, EXE, Other] LanguageCode - Language Code: English (U.S.)
-[EXE, EXE, Other] CharacterSet - Character Set: Unicode
-[EXE, EXE, Other] CompanyName - Company Name: Phil Harvey
-[EXE, EXE, Other] FileDescription - File Description: ExifTool EXE Test File
-[EXE, EXE, Other] FileVersion - File Version: 1.2.3.4b
-[EXE, EXE, Other] InternalName - Internal Name: Skippy the wonder cow
-[EXE, EXE, Other] LegalCopyright - Legal Copyright: Copyright (c) 2008
-[EXE, EXE, Other] LegalTrademarks - Legal Trademarks: none
-[EXE, EXE, Other] OriginalFilename - Original File Name: EXE.exe
-[EXE, EXE, Other] ProductName - Product Name: This is not a product
-[EXE, EXE, Other] ProductVersion - Product Version: 5.6.7.8b

data/bin/Image-ExifTool-10.49/t/EXE_3.out

@@ -1,10 +0,0 @@
-[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 10.15
-[File, File, Image] FileType - File Type: Mach-O executable
-[File, File, Image] FileTypeExtension - File Type Extension: 
-[File, File, Image] MIMEType - MIME Type: application/octet-stream
-[EXE, EXE, Other] 0 - CPU Architecture: 32 bit
-[EXE, EXE, Other] 1 - CPU Byte Order: Big endian
-[EXE, EXE, Other] 3 - CPU Type: PowerPC
-[EXE, EXE, Other] 4 - CPU Subtype: PowerPC (all)
-[EXE, EXE, Other] 5 - Object File Type: Demand paged executable
-[EXE, EXE, Other] 6 - Object Flags: No undefs, Dyld link, Two level

data/bin/Image-ExifTool-10.49/t/EXE_4.out

@@ -1,8 +0,0 @@
-[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 10.15
-[File, File, Image] FileType - File Type: ELF executable
-[File, File, Image] FileTypeExtension - File Type Extension: 
-[File, File, Image] MIMEType - MIME Type: application/octet-stream
-[EXE, EXE, Other] 4 - CPU Architecture: 32 bit
-[EXE, EXE, Other] 5 - CPU Byte Order: Little endian
-[EXE, EXE, Other] 16 - Object File Type: Executable file
-[EXE, EXE, Other] 18 - CPU Type: i386

data/bin/Image-ExifTool-10.49/t/EXE_5.out

@@ -1,9 +0,0 @@
-[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 10.15
-[File, File, Image] FileType - File Type: Mach-O static library
-[File, File, Image] FileTypeExtension - File Type Extension: a
-[File, File, Image] MIMEType - MIME Type: application/octet-stream
-[EXE, EXE, Time] 16 - Create Date: 2016:04:13 07:19:19-04:00
-[EXE, EXE, Other] 0 - CPU Architecture: 64 bit
-[EXE, EXE, Other] 1 - CPU Byte Order: Little endian
-[EXE, EXE, Other] 3 - CPU Type: x86 64-bit
-[EXE, EXE, Other] 4 - CPU Subtype: i386 (all) 64-bit

data/bin/Image-ExifTool-10.49/t/EXE_6.out

@@ -1,8 +0,0 @@
-[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 10.15
-[File, File, Image] FileType - File Type: ELF shared library
-[File, File, Image] FileTypeExtension - File Type Extension: so
-[File, File, Image] MIMEType - MIME Type: application/octet-stream
-[EXE, EXE, Other] 4 - CPU Architecture: 64 bit
-[EXE, EXE, Other] 5 - CPU Byte Order: Little endian
-[EXE, EXE, Other] 16 - Object File Type: Shared object file
-[EXE, EXE, Other] 18 - CPU Type: AMD x86-64

data/bin/Image-ExifTool-10.49/t/EXE_7.out

@@ -1,10 +0,0 @@
-[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 10.15
-[File, File, Image] FileType - File Type: Mach-O dynamic link library
-[File, File, Image] FileTypeExtension - File Type Extension: dylib
-[File, File, Image] MIMEType - MIME Type: application/octet-stream
-[EXE, EXE, Other] 0 - CPU Architecture: 64 bit
-[EXE, EXE, Other] 1 - CPU Byte Order: Little endian
-[EXE, EXE, Other] 3 - CPU Type: x86 64-bit
-[EXE, EXE, Other] 4 - CPU Subtype: i386 (all) 64-bit
-[EXE, EXE, Other] 5 - Object File Type: Dynamically bound shared library
-[EXE, EXE, Other] 6 - Object Flags: No undefs, Dyld link, Two level, No reexported dylibs

data/bin/Image-ExifTool-10.49/t/ExifTool.t

@@ -1,341 +0,0 @@
-# Before "make install", this script should be runnable with "make test".
-# After "make install" it should work as "perl t/ExifTool.t".
-
-BEGIN { $| = 1; print "1..31\n"; $Image::ExifTool::configFile = ''; }
-END {print "not ok 1\n" unless $loaded;}
-
-# test 1: Load the module(s)
-use Image::ExifTool 'ImageInfo';
-$loaded = 1;
-print "ok 1\n";
-
-use t::TestLib;
-
-my $testname = 'ExifTool';
-my $testnum = 1;
-
-# test 2: extract information from JPG file using name
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    my $info = $exifTool->ImageInfo('t/images/ExifTool.jpg');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 3: TIFF file using file reference and ExifTool object with options
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    $exifTool->Options(Duplicates => 1, Unknown => 1);
-    open(TESTFILE, 't/images/ExifTool.tif');
-    my $info = $exifTool->ImageInfo(\*TESTFILE);
-    close(TESTFILE);
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 4: test the Group option to extract EXIF info only
-{
-    ++$testnum;
-    my $info = ImageInfo('t/images/Canon.jpg', {Group0 => 'EXIF'});
-    print 'not ' unless check($info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 5: extract specified tags only
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-# don't test DateFormat because strftime output varies with locale
-#    $exifTool->Options(DateFormat => '%H:%M:%S %a. %b. %e, %Y');
-    my @tags = ('CreateDate', 'DateTimeOriginal', 'ModifyDate', 'Orientation#', '?Resolution');
-    my $info = $exifTool->ImageInfo('t/images/Canon.jpg', \@tags);
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 6: test the 5 different ways to exclude tags...
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    $exifTool->Options(Exclude => 'ImageWidth');
-    my @tagList = ( '-ImageHeight', '-Make' );
-    my $info = $exifTool->ImageInfo('t/images/Canon.jpg', '-FileSize', '-*resolution',
-                        \@tagList, {Group0 => '-MakerNotes'});
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# tests 7/8: test ExtractInfo(), GetInfo(), CombineInfo()
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    $exifTool->Options(Duplicates => 0);  # don't allow duplicates
-    $exifTool->ExtractInfo('t/images/Canon.jpg');
-    my $info1 = $exifTool->GetInfo({Group0 => 'MakerNotes'});
-    my $info2 = $exifTool->GetInfo({Group0 => 'EXIF'});
-    my $info = $exifTool->CombineInfo($info1, $info2);
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-
-    # combine information in different order
-    ++$testnum;
-    $info = $exifTool->CombineInfo($info2, $info1);
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 9: test group options across different families
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    my $info = $exifTool->ImageInfo('t/images/Canon.jpg',
-                    { Group1 => 'Canon', Group2 => '-Camera' });
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# tests 10/11: test ExtractInfo() and GetInfo()
-# (uses output from test 5 for comparison)
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-# don't test DateFormat because strftime output is system dependent
-#    $exifTool->Options(DateFormat => '%H:%M:%S %a. %b. %e, %Y');
-    $exifTool->ExtractInfo('t/images/Canon.jpg');
-    my @tags = ('createdate', 'datetimeoriginal', 'modifydate', 'orientation#', '?resolution');
-    my $info = $exifTool->GetInfo(\@tags);
-    my $good = 1;
-    my @expectedTags = ('CreateDate', 'DateTimeOriginal', 'ModifyDate', 'Orientation',
-                        'XResolution', 'YResolution');
-    for (my $i=0; $i<scalar(@tags); ++$i) {
-        $tags[$i] = $expectedTags[$i] or $good = 0;
-    }
-    print 'not ' unless $good;
-    print "ok $testnum\n";
-
-    ++$testnum;
-    print 'not ' unless check($exifTool, $info, $testname, $testnum, 5);
-    print "ok $testnum\n";
-}
-
-# tests 12/13: check precidence of tags extracted from groups
-# (Note: these tests should produce the same output as 7/8,
-#  so the .out files from tests 7/8 are used)
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    $exifTool->Options(Duplicates => 0);  # don't allow duplicates
-    my $info = $exifTool->ImageInfo('t/images/Canon.jpg',{Group0=>['MakerNotes','EXIF']});
-    print 'not ' unless check($exifTool, $info, $testname, $testnum, 7);
-    print "ok $testnum\n";
-
-    # combine information in different order
-    ++$testnum;
-    $info = $exifTool->ImageInfo('t/images/Canon.jpg',{Group0=>['EXIF','MakerNotes']});
-    print 'not ' unless check($exifTool, $info, $testname, $testnum, 8);
-    print "ok $testnum\n";
-}
-
-# tests 14/15/16: test GetGroups()
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    $exifTool->ExtractInfo('t/images/Canon.jpg');
-    my @groups = $exifTool->GetGroups(2);
-    my $not;
-    foreach ('Camera','ExifTool','Image','Time') {
-        $_ eq shift @groups or $not = 1;
-    }
-    @groups and $not = 1;
-    print 'not ' if $not;
-    print "ok $testnum\n";
-    
-    ++$testnum;
-    my $info = $exifTool->GetInfo({Group0 => 'EXIF'});
-    @groups = $exifTool->GetGroups($info,0);
-    print 'not ' unless @groups==1 and $groups[0] eq 'EXIF';
-    print "ok $testnum\n";
-
-    ++$testnum;
-    my $testfile = "t/ExifTool_$testnum";
-    open(TESTFILE,">$testfile.failed");
-    my $oldSep = $/;   
-    $/ = "\x0a";        # set input line separator
-    $exifTool->ExtractInfo('t/images/Canon.jpg');
-    my $family = '1:2';
-    @groups = $exifTool->GetGroups($family);
-    my $group;
-    foreach $group (@groups) {
-        next if $group eq 'ExifTool';
-        print TESTFILE "---- $group ----\n";
-        my $info = $exifTool->GetInfo({"Group$family" => $group});
-        foreach (sort $exifTool->GetTagList($info)) {
-            print TESTFILE "$_ : $$info{$_}\n";
-        } 
-    }
-    $/ = $oldSep;       # restore input line separator
-    close(TESTFILE);
-    print 'not ' unless testCompare("$testfile.out","$testfile.failed",$testnum);
-    print "ok $testnum\n";
-}
-
-# test 17: Test verbose output
-{
-    ++$testnum;
-    print 'not ' unless testVerbose($testname, $testnum, 't/images/Canon.jpg', 3);
-    print "ok $testnum\n";
-}
-
-# tests 18/19: Test Group# option with multiple groups and no duplicates
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    $exifTool->Options(Duplicates => 0);  # don't allow duplicates
-    my $info = $exifTool->ImageInfo('t/images/Canon.jpg',
-                    { Group0 => ['MakerNotes','EXIF'] });
-    print 'not ' unless check($exifTool, $info, $testname, $testnum, 7);
-    print "ok $testnum\n";
-
-    ++$testnum;
-    $info = $exifTool->ImageInfo('t/images/Canon.jpg',
-                    { Group0 => ['EXIF','MakerNotes'] });
-    print 'not ' unless check($exifTool, $info, $testname, $testnum, 8);
-    print "ok $testnum\n";
-}
-
-# test 20: Test extracting a single, non-priority tag with duplicates set to 0
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    $exifTool->Options(Duplicates => 0);
-    my $info = $exifTool->ImageInfo('t/images/Canon.jpg', 'EXIF:WhiteBalance');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 21: Test extracting ICC_Profile as a block
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    my $info = $exifTool->ImageInfo('t/images/ExifTool.tif', 'ICC_Profile');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 22: Test InsertTagValues
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    my @foundTags;
-    $exifTool->ImageInfo('t/images/ExifTool.jpg', \@foundTags);
-    my $str = $exifTool->InsertTagValues(\@foundTags, '$ifd0:model - $1ciff:3main:model');
-    my $testfile = "t/ExifTool_$testnum";
-    open(TESTFILE,">$testfile.failed");
-    my $oldSep = $/;   
-    $/ = "\x0a";        # set input line separator
-    print TESTFILE $str, "\n";
-    $/ = $oldSep;       # restore input line separator
-    close(TESTFILE);
-    print 'not ' unless testCompare("$testfile.out","$testfile.failed",$testnum);
-    print "ok $testnum\n";
-}
-
-# test 23: Test the multi-group feature in a tag name
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    my $info = $exifTool->ImageInfo('t/images/ExifTool.jpg', 'main:Author:IPTC3:all');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 24: Test a shortcut with multiple group names and a ValueConv suffix
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    my $info = $exifTool->ImageInfo('t/images/Canon.jpg', 'exififd:camera:common#');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 25: Test GlobalTimeShift option
-{
-    ++$testnum;
-    if (eval { require Time::Local }) {
-        my $exifTool = new Image::ExifTool;
-        $exifTool->Options(GlobalTimeShift => '-0:1:0 0:0:0');
-        # Note: can't extract system times because this could result in a different
-        # calculated global time offset (since I am shifting by 1 month)
-        my $info = $exifTool->ImageInfo('t/images/ExifTool.jpg', 'time:all', '-system:all');
-        print 'not ' unless check($exifTool, $info, $testname, $testnum);
-        print "ok $testnum\n";
-    } else {
-        print "ok $testnum # skip Requires Time::Local\n";
-    }
-}
-
-# test 26: Test reading with wildcards
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    my $info = $exifTool->ImageInfo('t/images/Canon.jpg', 'E*');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 27: Test ListItem option
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    $exifTool->Options(ListItem => -3);
-    my $info = $exifTool->ImageInfo('t/images/ExifTool.jpg', 'Subject', 'SupplementalCategories');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 28: Test FastScan = 3
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    $exifTool->Options(FastScan => 3);
-    my $info = $exifTool->ImageInfo('t/images/ExifTool.jpg');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 29: Test Filter
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    $exifTool->Options(Filter => 'tr/ /_/;tr/0-9/#/');
-    my $info = $exifTool->ImageInfo('t/images/ExifTool.jpg', '-ExifToolVersion');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# test 30: Calculate JPEGDigest and JPEGQualityEstimate
-{
-    ++$testnum;
-    my $skip = '';
-    if (eval 'require Digest::MD5') {
-        my $exifTool = new Image::ExifTool;
-        my $info = $exifTool->ImageInfo('t/images/Writer.jpg', 'JPEGDigest', 'JPEGQualityEstimate');
-        print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    } else {
-        $skip = ' # skip Requires Digest::MD5';
-    }
-    print "ok $testnum$skip\n";
-}
-
-# test 31: Test Validate feature
-{
-    ++$testnum;
-    my $exifTool = new Image::ExifTool;
-    my $info = $exifTool->ImageInfo('t/images/CanonRaw.cr2', 'Validate', 'Warning', 'Error');
-    print 'not ' unless check($exifTool, $info, $testname, $testnum);
-    print "ok $testnum\n";
-}
-
-# end