mini_exiftool_vendored 8.9.7.v2 → 9.2.7.v1

data/vendor/Image-ExifTool-9.27/t/AIFF_2.out

@@ -0,0 +1,31 @@
+[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 9.07
+[File, System, Image] FileName - File Name: AIFF.aif
+[File, System, Image] Directory - Directory: t/images
+[File, System, Image] FileSize - File Size: 290 bytes
+[File, System, Time] FileModifyDate - File Modification Date/Time: 2006:01:06 15:05:23-05:00
+[File, System, Time] FileAccessDate - File Access Date/Time: 2012:11:20 07:48:02-05:00
+[File, System, Time] FileInodeChangeDate - File Inode Change Date/Time: 2012:11:17 09:18:25-05:00
+[File, System, Image] FilePermissions - File Permissions: rw-r--r--
+[File, File, Image] FileType - File Type: AIFF
+[File, File, Image] MIMEType - MIME Type: audio/x-aiff
+[File, File, Image] ID3Size - ID3 Size: 172
+[AIFF, AIFF, Time] 0 - Comment Time: 2004:03:08 05:28:46
+[AIFF, AIFF, Audio] 2 - Comment: ding.wav
+[AIFF, AIFF, Audio] 0 - Num Channels: 1
+[AIFF, AIFF, Audio] 1 - Num Sample Frames: 11554
+[AIFF, AIFF, Audio] 3 - Sample Size: 8
+[AIFF, AIFF, Audio] 4 - Sample Rate: 22050
+[AIFF, AIFF, Audio] NAME - Name: ExifTool test AIFF
+[AIFF, AIFF, Author] AUTH - Author: Phil Harvey
+[ID3, ID3v2_2, Audio] ULT - Lyrics: my lyrics
+[ID3, ID3v2_2, Audio] TCM - Composer: Composer
+[ID3, ID3v2_2, Audio] COM - Comment: comments
+[ID3, ID3v2_2, Author] TP1 - Artist: the artist
+[ID3, ID3v2_2, Audio] TAL - Album: the album
+[ID3, ID3v2_2, Audio] TT1 - Grouping: grouping
+[ID3, ID3v2_2, Audio] TRK - Track: 1
+[ID3, ID3v2_2, Audio] TPA - Part Of Set: 1/1
+[ID3, ID3v2_2, Time] TYE - Year: 2006
+[ID3, ID3v2_2, Audio] TCO - Genre: Techno
+[ID3, ID3v2_2, Audio] TCP - Compilation: Yes
+[Composite, Composite, Time] DateTimeOriginal - Date/Time Original: 2006

data/vendor/Image-ExifTool-9.27/t/APE.t

@@ -0,0 +1,38 @@
+# Before "make install", this script should be runnable with "make test".
+# After "make install" it should work as "perl t/APE.t".
+
+BEGIN { $| = 1; print "1..3\n"; $Image::ExifTool::noConfig = 1; }
+END {print "not ok 1\n" unless $loaded;}
+
+# test 1: Load the module(s)
+use Image::ExifTool 'ImageInfo';
+use Image::ExifTool::APE;
+$loaded = 1;
+print "ok 1\n";
+
+use t::TestLib;
+
+my $testname = 'APE';
+my $testnum = 1;
+
+# test 2: Extract information from APE test file
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    my $info = $exifTool->ImageInfo('t/images/APE.ape');
+    print 'not ' unless check($exifTool, $info, $testname, $testnum);
+    print "ok $testnum\n";
+}
+
+# test 3: Extract information from MCP test file containing 3 different
+#         types of meta information: ID3v1, ID3v2 and APE
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    my $info = $exifTool->ImageInfo('t/images/APE.mpc');
+    print 'not ' unless check($exifTool, $info, $testname, $testnum);
+    print "ok $testnum\n";
+}
+
+
+# end

data/vendor/Image-ExifTool-9.27/t/APE_2.out

@@ -0,0 +1,28 @@
+[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 9.07
+[File, System, Image] FileName - File Name: APE.ape
+[File, System, Image] Directory - Directory: t/images
+[File, System, Image] FileSize - File Size: 2.1 kB
+[File, System, Time] FileModifyDate - File Modification Date/Time: 2006:11:14 11:04:22-05:00
+[File, System, Time] FileAccessDate - File Access Date/Time: 2012:11:20 07:48:02-05:00
+[File, System, Time] FileInodeChangeDate - File Inode Change Date/Time: 2012:11:17 09:18:25-05:00
+[File, System, Image] FilePermissions - File Permissions: rw-r--r--
+[File, File, Image] FileType - File Type: APE
+[File, File, Image] MIMEType - MIME Type: audio/x-monkeys-audio
+[APE, MAC, Audio] 0 - Compression Level: 3000
+[APE, MAC, Audio] 2 - Blocks Per Frame: 73728
+[APE, MAC, Audio] 4 - Final Frame Blocks: 42662
+[APE, MAC, Audio] 6 - Total Frames: 2
+[APE, MAC, Audio] 8 - Bits Per Sample: 16
+[APE, MAC, Audio] 9 - Channels: 2
+[APE, MAC, Audio] 10 - Sample Rate: 44100
+[APE, APE, Audio] Track - Track: 4
+[APE, APE, Audio] Year - Year: 2005
+[APE, APE, Audio] Genre - Genre: Electronic
+[APE, APE, Audio] Artist - Artist: Kraftwerk
+[APE, APE, Audio] Album - Album: Cover Art Test
+[APE, APE, Audio] Tool Version - Tool Version: 11.1.102
+[APE, APE, Audio] Tool Name - Tool Name: Media Center
+[APE, APE, Audio] Title - Title: Men Machine Live
+[APE, APE, Audio] Media Jukebox: Date - Media Jukebox Date: 38353
+[APE, APE, Audio] Cover Art (front) Desc - Cover Art Front Desc: X:\_kuvat\Kraftwerk - Cover Art Test.jpg
+[APE, APE, Audio] Cover Art (front) - Cover Art Front: (Binary data 1761 bytes)

data/vendor/Image-ExifTool-9.27/t/APE_3.out

@@ -0,0 +1,57 @@
+[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 9.07
+[File, System, Image] FileName - File Name: APE.mpc
+[File, System, Image] Directory - Directory: t/images
+[File, System, Image] FileSize - File Size: 2.5 kB
+[File, System, Time] FileModifyDate - File Modification Date/Time: 2006:11:14 15:06:40-05:00
+[File, System, Time] FileAccessDate - File Access Date/Time: 2012:11:20 07:48:02-05:00
+[File, System, Time] FileInodeChangeDate - File Inode Change Date/Time: 2012:11:17 09:18:25-05:00
+[File, System, Image] FilePermissions - File Permissions: rw-r--r--
+[File, File, Image] FileType - File Type: MPC
+[File, File, Image] MIMEType - MIME Type: audio/x-musepack
+[File, File, Image] ID3Size - ID3 Size: 391
+[MPC, MPC, Audio] Bit032-063 - Total Frames: 102
+[MPC, MPC, Audio] Bit080-081 - Sample Rate: 44100
+[MPC, MPC, Audio] Bit084-087 - Quality: 5 (Standard)
+[MPC, MPC, Audio] Bit088-093 - Max Band: 28
+[MPC, MPC, Audio] Bit096-111 - Replay Gain Track Peak: 0
+[MPC, MPC, Audio] Bit112-127 - Replay Gain Track Gain: 0
+[MPC, MPC, Audio] Bit128-143 - Replay Gain Album Peak: 0
+[MPC, MPC, Audio] Bit144-159 - Replay Gain Album Gain: 0
+[MPC, MPC, Audio] Bit179 - Fast Seek: No
+[MPC, MPC, Audio] Bit191 - Gapless: Yes
+[MPC, MPC, Audio] Bit216-223 - Encoder Version: 1.1.5
+[APE, APE, Audio] Track - Track: 4
+[APE, APE, Audio] Year - Year: 2005
+[APE, APE, Audio] Genre - Genre: Electronic
+[APE, APE, Audio] Artist - Artist: Kraftwerk
+[APE, APE, Audio] Album - Album: Cover Art Test
+[APE, APE, Audio] Tool Version - Tool Version: 11.1.102
+[APE, APE, Audio] Tool Name - Tool Name: Media Center
+[APE, APE, Audio] Title - Title: Men Machine Live
+[APE, APE, Audio] Media Jukebox: Date - Media Jukebox Date: 38353
+[APE, APE, Audio] Cover Art (front) Desc - Cover Art Front Desc: X:\_kuvat\Kraftwerk - Cover Art Test.jpg
+[APE, APE, Audio] Cover Art (front) - Cover Art Front: (Binary data 1761 bytes)
+[ID3, ID3v2_2, Audio] TRK - Track: 1/5
+[ID3, ID3v2_2, Audio] TPA - Part Of Set: 1/2
+[ID3, ID3v2_2, Audio] RVA - Relative Volume Adjustment: +18.0% Right, +18.0% Left
+[ID3, ID3v2_2, Audio] ULT - Lyrics: Do-wap she-bang
+[ID3, ID3v2_2, Image] PIC-1 - Picture Format: JPG
+[ID3, ID3v2_2, Image] PIC-2 - Picture Type: Other
+[ID3, ID3v2_2, Image] PIC-3 - Picture Description: comment
+[ID3, ID3v2_2, Image] PIC - Picture: (Binary data 15 bytes)
+[ID3, ID3v2_2, Audio] TT2 - Title: ExifTool Test
+[ID3, ID3v2_2, Author] TP1 - Artist: Phil Harvey
+[ID3, ID3v2_2, Audio] TCM - Composer: A Composer
+[ID3, ID3v2_2, Audio] TAL - Album: Phil's Greatest Hits
+[ID3, ID3v2_2, Audio] TT1 - Grouping: This group
+[ID3, ID3v2_2, Time] TYE - Year: 2005
+[ID3, ID3v2_2, Audio] TCO - Genre: Testing
+[ID3, ID3v2_2, Audio] COM - Comment: My Comments
+[ID3, ID3v1, Audio] 3 - Title: A 4s sample for testing embedd
+[ID3, ID3v1, Author] 33 - Artist: Who Knows
+[ID3, ID3v1, Audio] 63 - Album: The Test Album
+[ID3, ID3v1, Time] 93 - Year: 2006
+[ID3, ID3v1, Audio] 97 - Comment: a nice comment
+[ID3, ID3v1, Audio] 125 - Track: 1
+[ID3, ID3v1, Audio] 127 - Genre: Funk
+[Composite, Composite, Time] DateTimeOriginal - Date/Time Original: 2005

data/vendor/Image-ExifTool-9.27/t/ASF.t

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

data/vendor/Image-ExifTool-9.27/t/ASF_2.out

@@ -0,0 +1,48 @@
+[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 9.07
+[File, System, Image] FileName - File Name: ASF.wmv
+[File, System, Image] Directory - Directory: t/images
+[File, System, Image] FileSize - File Size: 12 kB
+[File, System, Time] FileModifyDate - File Modification Date/Time: 2005:12:27 07:29:29-05:00
+[File, System, Time] FileAccessDate - File Access Date/Time: 2012:11:20 07:48:02-05:00
+[File, System, Time] FileInodeChangeDate - File Inode Change Date/Time: 2012:11:17 09:18:25-05:00
+[File, System, Image] FilePermissions - File Permissions: rw-r--r--
+[File, File, Image] FileType - File Type: WMV
+[File, File, Image] MIMEType - MIME Type: video/x-ms-wmv
+[ASF, ASF, Video] ToolName - Tool Name: Photo Story 3 for Windows
+[ASF, ASF, Video] Publisher - Publisher: Photo Story 3 for Windows
+[ASF, ASF, Video] ToolVersion - Tool Version: 3.0.1115.0
+[ASF, ASF, Video] Genre - Genre: Photo Story
+[ASF, ASF, Image] 0 - Picture Type: Front Cover
+[ASF, ASF, Image] 1 - Picture Mime Type: image/jpeg
+[ASF, ASF, Image] 3 - Picture: (Binary data 6587 bytes)
+[ASF, ASF, Video] IsVBR - Is VBR: True
+[ASF, ASF, Video] ASFLeakyBucketPairs - ASF Leaky Bucket Pairs: (Binary data 114 bytes)
+[ASF, ASF, Video] 0 - File ID: 5F69B0C4-04F7-4B21-9842-46CCA542D8D3
+[ASF, ASF, Video] 16 - File Length: 414891
+[ASF, ASF, Time] 24 - Creation Date: 2004:10:28 17:23:34Z
+[ASF, ASF, Video] 32 - Data Packets: 287
+[ASF, ASF, Video] 40 - Play Duration: 0:01:39
+[ASF, ASF, Video] 48 - Send Duration: 0:01:37
+[ASF, ASF, Video] 56 - Preroll: 5000
+[ASF, ASF, Video] 64 - Flags: 2
+[ASF, ASF, Video] 68 - Min Packet Size: 1400
+[ASF, ASF, Video] 72 - Max Packet Size: 1400
+[ASF, ASF, Video] 76 - Max Bitrate: 30.6 kbps
+[ASF, ASF, Other] AudioCodecName - Audio Codec Name: Windows Media Audio 9.1
+[ASF, ASF, Other] AudioCodecDescription - Audio Codec Description:  20 kbps, 22 kHz, stereo 1-pass CBR
+[ASF, ASF, Other] VideoCodecName - Video Codec Name: Windows Media Video 9 Image v2
+[ASF, ASF, Other] VideoCodecDescription - Video Codec Description: 
+[ASF, ASF, Video] 0 - Stream Type: Audio
+[ASF, ASF, Video] 16 - Error Correction Type: Audio Spread
+[ASF, ASF, Video] 32 - Time Offset: 0 s
+[ASF, ASF, Video] 48 - Stream Number: 1
+[ASF, ASF, Video] 54 - Audio Codec ID: Windows Media Audio V2 V7 V8 V9 / DivX audio (WMA) / Alex AC3 Audio
+[ASF, ASF, Video] 56 - Audio Channels: 2
+[ASF, ASF, Video] 58 - Audio Sample Rate: 22050
+[ASF, ASF, Video] 0 - Stream Type: Video
+[ASF, ASF, Video] 16 - Error Correction Type: No Error Correction
+[ASF, ASF, Video] 32 - Time Offset: 0 s
+[ASF, ASF, Video] 48 - Stream Number: 2
+[ASF, ASF, Video] 54 - Image Width: 160
+[ASF, ASF, Video] 58 - Image Height: 120
+[Composite, Composite, Image] ImageSize - Image Size: 160x120

data/vendor/Image-ExifTool-9.27/t/BMP.t

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

data/vendor/Image-ExifTool-9.27/t/BMP_2.out

@@ -0,0 +1,21 @@
+[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 9.07
+[File, System, Image] FileName - File Name: BMP.bmp
+[File, System, Image] Directory - Directory: t/images
+[File, System, Image] FileSize - File Size: 1142 bytes
+[File, System, Time] FileModifyDate - File Modification Date/Time: 2005:11:14 14:47:21-05:00
+[File, System, Time] FileAccessDate - File Access Date/Time: 2012:11:20 07:48:02-05:00
+[File, System, Time] FileInodeChangeDate - File Inode Change Date/Time: 2012:11:17 09:18:25-05:00
+[File, System, Image] FilePermissions - File Permissions: rw-r--r--
+[File, File, Image] FileType - File Type: BMP
+[File, File, Image] MIMEType - MIME Type: image/bmp
+[File, File, Image] 4 - Image Width: 8
+[File, File, Image] 8 - Image Height: 8
+[File, File, Image] 12 - Planes: 1
+[File, File, Image] 14 - Bit Depth: 8
+[File, File, Image] 16 - Compression: None
+[File, File, Image] 20 - Image Length: 64
+[File, File, Image] 24 - Pixels Per Meter X: 2835
+[File, File, Image] 28 - Pixels Per Meter Y: 2835
+[File, File, Image] 32 - Num Colors: 256
+[File, File, Image] 36 - Num Important Colors: 256
+[Composite, Composite, Image] ImageSize - Image Size: 8x8

data/vendor/Image-ExifTool-9.27/t/BigTIFF.t

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

data/vendor/Image-ExifTool-9.27/t/BigTIFF_2.out

@@ -0,0 +1,19 @@
+[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 9.07
+[File, System, Image] FileName - File Name: BigTIFF.btf
+[File, System, Image] Directory - Directory: t/images
+[File, System, Image] FileSize - File Size: 384 bytes
+[File, System, Time] FileModifyDate - File Modification Date/Time: 2010:03:16 13:49:45-04:00
+[File, System, Time] FileAccessDate - File Access Date/Time: 2012:11:20 07:48:02-05:00
+[File, System, Time] FileInodeChangeDate - File Inode Change Date/Time: 2012:11:17 09:18:25-05:00
+[File, System, Image] FilePermissions - File Permissions: rw-r--r--
+[File, File, Image] FileType - File Type: BTF
+[File, File, Image] MIMEType - MIME Type: image/x-tiff-big
+[EXIF, IFD0, Image] 256 - Image Width: 8
+[EXIF, IFD0, Image] 257 - Image Height: 8
+[EXIF, IFD0, Image] 258 - Bits Per Sample: 8 8 8
+[EXIF, IFD0, Image] 262 - Photometric Interpretation: RGB
+[EXIF, IFD0, Image] 273 - Strip Offsets: 192
+[EXIF, IFD0, Image] 277 - Samples Per Pixel: 3
+[EXIF, IFD0, Image] 278 - Rows Per Strip: 8
+[EXIF, IFD0, Image] 279 - Strip Byte Counts: 192
+[Composite, Composite, Image] ImageSize - Image Size: 8x8

data/vendor/Image-ExifTool-9.27/t/Canon.t

@@ -0,0 +1,41 @@
+# Before "make install", this script should be runnable with "make test".
+# After "make install" it should work as "perl t/Canon.t".
+
+BEGIN { $| = 1; print "1..3\n"; $Image::ExifTool::noConfig = 1; }
+END {print "not ok 1\n" unless $loaded;}
+
+# test 1: Load the module(s)
+use Image::ExifTool 'ImageInfo';
+use Image::ExifTool::Canon;
+$loaded = 1;
+print "ok 1\n";
+
+use t::TestLib;
+
+my $testname = 'Canon';
+my $testnum = 1;
+
+# test 2: Extract information from Canon1DmkIII.jpg
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    my $info = $exifTool->ImageInfo('t/images/Canon1DmkIII.jpg');
+    print 'not ' unless check($exifTool, $info, $testname, $testnum);
+    print "ok $testnum\n";
+}
+
+# test 3: Write CanonCustom2 information
+{
+    ++$testnum;
+    my @writeInfo = (
+        [ISOSpeedRange => 'Enable; 1600; 200'],
+        [TimerLength => 'Enable; 6 sec: 5; 16 sec: 20; After release: 6'],
+    );
+    my @check = qw(ISOSpeedRange TimerLength OriginalDecisionData Warning);
+    print 'not ' unless writeCheck(\@writeInfo, $testname, $testnum,
+                                   't/images/Canon1DmkIII.jpg', \@check);
+    print "ok $testnum\n";
+}
+
+
+# end

data/vendor/Image-ExifTool-9.27/t/CanonRaw.t

@@ -0,0 +1,126 @@
+# Before "make install", this script should be runnable with "make test".
+# After "make install" it should work as "perl t/CanonRaw.t".
+
+BEGIN { $| = 1; print "1..7\n"; $Image::ExifTool::noConfig = 1; }
+END {print "not ok 1\n" unless $loaded;}
+
+# test 1: Load the module(s)
+use Image::ExifTool 'ImageInfo';
+use Image::ExifTool::CanonRaw;
+$loaded = 1;
+print "ok 1\n";
+
+use t::TestLib;
+
+my $testname = 'CanonRaw';
+my $testnum = 1;
+
+# test 2: Extract information from CRW
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    my $info = $exifTool->ImageInfo('t/images/CanonRaw.crw');
+    print 'not ' unless check($exifTool, $info, $testname, $testnum);
+    print "ok $testnum\n";
+}
+
+# test 3: Extract JpgFromRaw from CRW
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->Options(PrintConv => 0, IgnoreMinorErrors => 1);
+    my $info = $exifTool->ImageInfo('t/images/CanonRaw.crw','JpgFromRaw');
+    print 'not ' unless ${$info->{JpgFromRaw}} eq '<Dummy JpgFromRaw image data>';
+    print "ok $testnum\n";
+}
+
+# test 4: Write a whole pile of tags to a CRW
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    # set IgnoreMinorErrors option to allow invalid JpgFromRaw to be written
+    $exifTool->Options(IgnoreMinorErrors => 1);
+    $exifTool->SetNewValuesFromFile('t/images/Canon.jpg');
+    $exifTool->SetNewValue(SerialNumber => 1234);
+    $exifTool->SetNewValue(OwnerName => 'Phil Harvey');
+    $exifTool->SetNewValue(JpgFromRaw => 'not a real image');
+    $exifTool->SetNewValue(ROMOperationMode => 'CDN');
+    $exifTool->SetNewValue(FocalPlaneXSize => '35 mm');
+    $exifTool->SetNewValue(FocalPlaneYSize => '24 mm');
+    my $testfile = "t/${testname}_${testnum}_failed.crw";
+    unlink $testfile;
+    $exifTool->WriteInfo('t/images/CanonRaw.crw', $testfile);
+    my $info = $exifTool->ImageInfo($testfile);
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 5: Test verbose output
+{
+    ++$testnum;
+    print 'not ' unless testVerbose($testname, $testnum, 't/images/CanonRaw.crw', 1);
+    print "ok $testnum\n";
+}
+
+# test 6: Write to CR2 file
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    # set IgnoreMinorErrors option to allow invalid JpgFromRaw to be written
+    $exifTool->SetNewValue(Keywords => 'CR2 test');
+    $exifTool->SetNewValue(OwnerName => 'Phil Harvey');
+    $exifTool->SetNewValue(FocalPlaneXSize => '35mm');
+    my $testfile = "t/${testname}_${testnum}_failed.cr2";
+    unlink $testfile;
+    $exifTool->WriteInfo('t/images/CanonRaw.cr2', $testfile);
+    my $info = $exifTool->ImageInfo($testfile);
+    my $success = check($exifTool, $info, $testname, $testnum);
+    # make sure file suffix was copied properly
+    while ($success) {
+        open(TESTFILE, $testfile) or last;
+        binmode(TESTFILE);
+        my $endStr = '<Dummy preview image data>Non-TIFF data test';
+        my $len = length $endStr;
+        seek(TESTFILE, -$len, 2) or last;
+        my $buff;
+        read(TESTFILE, $buff, $len) == $len or last;
+        close(TESTFILE);
+        if ($buff eq $endStr) {
+            unlink $testfile;
+            $success = 2;
+        } else {
+            warn "\n  Test $testnum failed to copy file suffix:\n";
+            warn "    Test gave: '$buff'\n";
+            warn "    Should be: '$endStr'\n";
+            $success = 0;
+        }
+        last;
+    }
+    warn "\n  Test $testnum: Error reading file suffix\n" if $success == 1;
+    print 'not ' unless $success == 2;
+    print "ok $testnum\n";
+}
+
+# test 7: Test copying all information from a CR2 image to a JPEG
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->SetNewValuesFromFile('t/images/CanonRaw.cr2');
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    $exifTool->WriteInfo('t/images/Writer.jpg', $testfile);
+    $exifTool->Options(Unknown => 1);
+    my $info = $exifTool->ImageInfo($testfile);
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# end