mini_exiftool_vendored 8.9.7.v2 → 9.2.7.v1

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

@@ -0,0 +1,36 @@
+# Before "make install", this script should be runnable with "make test".
+# After "make install" it should work as "perl t/Unknown.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::Unknown;
+$loaded = 1;
+print "ok 1\n";
+
+use t::TestLib;
+
+my $testname = 'Unknown';
+my $testnum = 1;
+
+# test 2: Extract information from Unknown.jpg
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    my $info = $exifTool->ImageInfo('t/images/Unknown.jpg', {Unknown => 1});
+    print 'not ' unless check($exifTool, $info, $testname, $testnum);
+    print "ok $testnum\n";
+}
+
+# test 3: Write some new information
+{
+    ++$testnum;
+    my @writeInfo = ( ['FocalLength',200] );
+    print 'not ' unless writeCheck(\@writeInfo, $testname, $testnum);
+    print "ok $testnum\n";
+}
+
+
+# end

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

@@ -0,0 +1,90 @@
+[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 9.07
+[File, System, Image] FileName - File Name: Unknown.jpg
+[File, System, Image] Directory - Directory: t/images
+[File, System, Image] FileSize - File Size: 7.0 kB
+[File, System, Time] FileModifyDate - File Modification Date/Time: 2006:06:16 10:57:05-04:00
+[File, System, Time] FileAccessDate - File Access Date/Time: 2012:11:19 15:31:07-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: JPEG
+[File, File, Image] MIMEType - MIME Type: image/jpeg
+[File, File, Image] ExifByteOrder - Exif Byte Order: Little-endian (Intel, II)
+[File, File, Image] ImageWidth - Image Width: 8
+[File, File, Image] ImageHeight - Image Height: 8
+[File, File, Image] EncodingProcess - Encoding Process: Baseline DCT, Huffman coding
+[File, File, Image] BitsPerSample - Bits Per Sample: 8
+[File, File, Image] ColorComponents - Color Components: 3
+[File, File, Image] YCbCrSubSampling - Y Cb Cr Sub Sampling: YCbCr4:2:0 (2 2)
+[EXIF, IFD0, Image] 270 - Image Description:            
+[EXIF, IFD0, Camera] 271 - Make: Rollei
+[EXIF, IFD0, Camera] 272 - Camera Model Name: dk4010
+[EXIF, IFD0, Image] 274 - Orientation: Horizontal (normal)
+[EXIF, IFD0, Image] 282 - X Resolution: 72
+[EXIF, IFD0, Image] 283 - Y Resolution: 72
+[EXIF, IFD0, Image] 296 - Resolution Unit: inches
+[EXIF, IFD0, Image] 305 - Software: RO-dk4010 Ver 1.00
+[EXIF, IFD0, Time] 306 - Modify Date: 2005:08:10 06:24:38
+[EXIF, IFD0, Image] 531 - Y Cb Cr Positioning: Co-sited
+[EXIF, ExifIFD, Image] 33434 - Exposure Time: 1/180
+[EXIF, ExifIFD, Image] 33437 - F Number: 2.8
+[EXIF, ExifIFD, Camera] 34850 - Exposure Program: Program AE
+[EXIF, ExifIFD, Image] 34855 - ISO: 125
+[EXIF, ExifIFD, Image] 36864 - Exif Version: 0220
+[EXIF, ExifIFD, Time] 36867 - Date/Time Original: 2005:08:10 06:24:38
+[EXIF, ExifIFD, Time] 36868 - Create Date: 2005:08:10 06:24:38
+[EXIF, ExifIFD, Image] 37121 - Components Configuration: Y, Cb, Cr, -
+[EXIF, ExifIFD, Image] 37122 - Compressed Bits Per Pixel: 4
+[EXIF, ExifIFD, Image] 37377 - Shutter Speed Value: 1/208
+[EXIF, ExifIFD, Image] 37378 - Aperture Value: 3.1
+[EXIF, ExifIFD, Image] 37380 - Exposure Compensation: 0
+[EXIF, ExifIFD, Camera] 37381 - Max Aperture Value: 2.8
+[EXIF, ExifIFD, Camera] 37383 - Metering Mode: Multi-segment
+[EXIF, ExifIFD, Camera] 37385 - Flash: Off, Did not fire
+[EXIF, ExifIFD, Camera] 37386 - Focal Length: 57.0 mm
+[EXIF, ExifIFD, Image] 37510 - User Comment: 
+[EXIF, ExifIFD, Time] 37520 - Sub Sec Time: 331
+[EXIF, ExifIFD, Time] 37521 - Sub Sec Time Original: 331
+[EXIF, ExifIFD, Time] 37522 - Sub Sec Time Digitized: 331
+[EXIF, ExifIFD, Image] 40960 - Flashpix Version: 0100
+[EXIF, ExifIFD, Image] 40961 - Color Space: sRGB
+[EXIF, ExifIFD, Image] 40962 - Exif Image Width: 2272
+[EXIF, ExifIFD, Image] 40963 - Exif Image Height: 1704
+[EXIF, InteropIFD, Image] 1 - Interoperability Index: R98 - DCF basic file (sRGB)
+[EXIF, InteropIFD, Image] 2 - Interoperability Version: 0100
+[EXIF, ExifIFD, Image] 41985 - Custom Rendered: Normal
+[EXIF, ExifIFD, Camera] 41986 - Exposure Mode: Auto
+[EXIF, ExifIFD, Camera] 41987 - White Balance: Auto
+[EXIF, ExifIFD, Camera] 41988 - Digital Zoom Ratio: 1.3
+[EXIF, ExifIFD, Camera] 41990 - Scene Capture Type: Standard
+[EXIF, ExifIFD, Camera] 41991 - Gain Control: Low gain up
+[EXIF, ExifIFD, Camera] 41992 - Contrast: Normal
+[EXIF, ExifIFD, Camera] 41993 - Saturation: Normal
+[EXIF, ExifIFD, Camera] 41994 - Sharpness: Normal
+[EXIF, IFD1, Image] 259 - Compression: JPEG (old-style)
+[EXIF, IFD1, Image] 282 - X Resolution: 72
+[EXIF, IFD1, Image] 283 - Y Resolution: 72
+[EXIF, IFD1, Image] 296 - Resolution Unit: inches
+[EXIF, IFD1, Image] 513 - Thumbnail Offset: 6922
+[EXIF, IFD1, Image] 514 - Thumbnail Length: 28
+[MakerNotes, MakerUnknown, Camera] 1 - Unknown 0x0001: ADM0000037036
+[MakerNotes, MakerUnknown, Camera] 4 - Unknown 0x0004: AE.. ^;k...MULTIoo/..................;[...]
+[MakerNotes, MakerUnknown, Camera] 6 - Unknown 0x0006: AF��...�.��g�.r�.�H�;��.~4.".��.�.�.�.�.�[...]
+[MakerNotes, MakerUnknown, Camera] 8 - Unknown 0x0008: WB.|����<.dC����.�..�.(.�.;n[...]
+[MakerNotes, MakerUnknown, Camera] 10 - Unknown 0x000a: ..;..SDSD512�...[...]
+[PrintIM, PrintIM, Printing] PrintIMVersion - PrintIM Version: 0250
+[PrintIM, PrintIM, Printing] 1 - Print IM 0x0001: 0x00160016
+[PrintIM, PrintIM, Printing] 2 - Print IM 0x0002: 0x00000001
+[PrintIM, PrintIM, Printing] 256 - Print IM 0x0100: 0x00000005
+[PrintIM, PrintIM, Printing] 257 - Print IM 0x0101: 0x000000ff
+[PrintIM, PrintIM, Printing] 258 - Print IM 0x0102: 0x00000083
+[PrintIM, PrintIM, Printing] 261 - Print IM 0x0105: 0x00000083
+[PrintIM, PrintIM, Printing] 262 - Print IM 0x0106: 0x00000083
+[Composite, Composite, Image] Aperture - Aperture: 2.8
+[Composite, Composite, Image] ImageSize - Image Size: 8x8
+[Composite, Composite, Image] ShutterSpeed - Shutter Speed: 1/180
+[Composite, Composite, Time] SubSecCreateDate - Create Date: 2005:08:10 06:24:38.331
+[Composite, Composite, Time] SubSecDateTimeOriginal - Date/Time Original: 2005:08:10 06:24:38.331
+[Composite, Composite, Time] SubSecModifyDate - Modify Date: 2005:08:10 06:24:38.331
+[Composite, Composite, Image] ThumbnailImage - Thumbnail Image: (Binary data 28 bytes)
+[Composite, Composite, Camera] FocalLength35efl - Focal Length: 57.0 mm
+[Composite, Composite, Image] LightValue - Light Value: 10.1

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

@@ -0,0 +1,90 @@
+[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 9.19
+[File, System, Image] FileName - File Name: Unknown_3_failed.jpg
+[File, System, Image] Directory - Directory: t
+[File, System, Image] FileSize - File Size: 7.0 kB
+[File, System, Time] FileModifyDate - File Modification Date/Time: 2013:02:19 13:07:14-05:00
+[File, System, Time] FileAccessDate - File Access Date/Time: 2013:02:19 13:07:14-05:00
+[File, System, Time] FileInodeChangeDate - File Inode Change Date/Time: 2013:02:19 13:07:14-05:00
+[File, System, Image] FilePermissions - File Permissions: rw-r--r--
+[File, File, Image] FileType - File Type: JPEG
+[File, File, Image] MIMEType - MIME Type: image/jpeg
+[File, File, Image] ExifByteOrder - Exif Byte Order: Little-endian (Intel, II)
+[File, File, Image] ImageWidth - Image Width: 8
+[File, File, Image] ImageHeight - Image Height: 8
+[File, File, Image] EncodingProcess - Encoding Process: Baseline DCT, Huffman coding
+[File, File, Image] BitsPerSample - Bits Per Sample: 8
+[File, File, Image] ColorComponents - Color Components: 3
+[File, File, Image] YCbCrSubSampling - Y Cb Cr Sub Sampling: YCbCr4:2:0 (2 2)
+[EXIF, IFD0, Image] 270 - Image Description:            
+[EXIF, IFD0, Camera] 271 - Make: Rollei
+[EXIF, IFD0, Camera] 272 - Camera Model Name: dk4010
+[EXIF, IFD0, Image] 274 - Orientation: Horizontal (normal)
+[EXIF, IFD0, Image] 282 - X Resolution: 72
+[EXIF, IFD0, Image] 283 - Y Resolution: 72
+[EXIF, IFD0, Image] 296 - Resolution Unit: inches
+[EXIF, IFD0, Image] 305 - Software: RO-dk4010 Ver 1.00
+[EXIF, IFD0, Time] 306 - Modify Date: 2005:08:10 06:24:38
+[EXIF, IFD0, Image] 531 - Y Cb Cr Positioning: Co-sited
+[EXIF, ExifIFD, Image] 33434 - Exposure Time: 1/180
+[EXIF, ExifIFD, Image] 33437 - F Number: 2.8
+[EXIF, ExifIFD, Camera] 34850 - Exposure Program: Program AE
+[EXIF, ExifIFD, Image] 34855 - ISO: 125
+[EXIF, ExifIFD, Image] 36864 - Exif Version: 0220
+[EXIF, ExifIFD, Time] 36867 - Date/Time Original: 2005:08:10 06:24:38
+[EXIF, ExifIFD, Time] 36868 - Create Date: 2005:08:10 06:24:38
+[EXIF, ExifIFD, Image] 37121 - Components Configuration: Y, Cb, Cr, -
+[EXIF, ExifIFD, Image] 37122 - Compressed Bits Per Pixel: 4
+[EXIF, ExifIFD, Image] 37377 - Shutter Speed Value: 1/208
+[EXIF, ExifIFD, Image] 37378 - Aperture Value: 3.1
+[EXIF, ExifIFD, Image] 37380 - Exposure Compensation: 0
+[EXIF, ExifIFD, Camera] 37381 - Max Aperture Value: 2.8
+[EXIF, ExifIFD, Camera] 37383 - Metering Mode: Multi-segment
+[EXIF, ExifIFD, Camera] 37385 - Flash: Off, Did not fire
+[EXIF, ExifIFD, Camera] 37386 - Focal Length: 200.0 mm
+[EXIF, ExifIFD, Image] 37510 - User Comment: 
+[EXIF, ExifIFD, Time] 37520 - Sub Sec Time: 331
+[EXIF, ExifIFD, Time] 37521 - Sub Sec Time Original: 331
+[EXIF, ExifIFD, Time] 37522 - Sub Sec Time Digitized: 331
+[EXIF, ExifIFD, Image] 40960 - Flashpix Version: 0100
+[EXIF, ExifIFD, Image] 40961 - Color Space: sRGB
+[EXIF, ExifIFD, Image] 40962 - Exif Image Width: 2272
+[EXIF, ExifIFD, Image] 40963 - Exif Image Height: 1704
+[EXIF, InteropIFD, Image] 1 - Interoperability Index: R98 - DCF basic file (sRGB)
+[EXIF, InteropIFD, Image] 2 - Interoperability Version: 0100
+[EXIF, ExifIFD, Image] 41985 - Custom Rendered: Normal
+[EXIF, ExifIFD, Camera] 41986 - Exposure Mode: Auto
+[EXIF, ExifIFD, Camera] 41987 - White Balance: Auto
+[EXIF, ExifIFD, Camera] 41988 - Digital Zoom Ratio: 1.3
+[EXIF, ExifIFD, Camera] 41990 - Scene Capture Type: Standard
+[EXIF, ExifIFD, Camera] 41991 - Gain Control: Low gain up
+[EXIF, ExifIFD, Camera] 41992 - Contrast: Normal
+[EXIF, ExifIFD, Camera] 41993 - Saturation: Normal
+[EXIF, ExifIFD, Camera] 41994 - Sharpness: Normal
+[EXIF, IFD1, Image] 259 - Compression: JPEG (old-style)
+[EXIF, IFD1, Image] 282 - X Resolution: 72
+[EXIF, IFD1, Image] 283 - Y Resolution: 72
+[EXIF, IFD1, Image] 296 - Resolution Unit: inches
+[EXIF, IFD1, Image] 513 - Thumbnail Offset: 6922
+[EXIF, IFD1, Image] 514 - Thumbnail Length: 28
+[MakerNotes, MakerUnknown, Camera] 1 - Unknown 0x0001: ADM0000037036
+[MakerNotes, MakerUnknown, Camera] 4 - Unknown 0x0004: AE.. ^;k...MULTIoo/..................;[...]
+[MakerNotes, MakerUnknown, Camera] 6 - Unknown 0x0006: AF��...�.��g�.r�.�H�;��.~4.".��.�.�.�.�.�[...]
+[MakerNotes, MakerUnknown, Camera] 8 - Unknown 0x0008: WB.|����<.dC����.�..�.(.�.;n[...]
+[MakerNotes, MakerUnknown, Camera] 10 - Unknown 0x000a: ..;..SDSD512�...[...]
+[PrintIM, PrintIM, Printing] PrintIMVersion - PrintIM Version: 0250
+[PrintIM, PrintIM, Printing] 1 - Print IM 0x0001: 0x00160016
+[PrintIM, PrintIM, Printing] 2 - Print IM 0x0002: 0x00000001
+[PrintIM, PrintIM, Printing] 256 - Print IM 0x0100: 0x00000005
+[PrintIM, PrintIM, Printing] 257 - Print IM 0x0101: 0x000000ff
+[PrintIM, PrintIM, Printing] 258 - Print IM 0x0102: 0x00000083
+[PrintIM, PrintIM, Printing] 261 - Print IM 0x0105: 0x00000083
+[PrintIM, PrintIM, Printing] 262 - Print IM 0x0106: 0x00000083
+[Composite, Composite, Image] Aperture - Aperture: 2.8
+[Composite, Composite, Image] ImageSize - Image Size: 8x8
+[Composite, Composite, Image] ShutterSpeed - Shutter Speed: 1/180
+[Composite, Composite, Time] SubSecCreateDate - Create Date: 2005:08:10 06:24:38.331
+[Composite, Composite, Time] SubSecDateTimeOriginal - Date/Time Original: 2005:08:10 06:24:38.331
+[Composite, Composite, Time] SubSecModifyDate - Modify Date: 2005:08:10 06:24:38.331
+[Composite, Composite, Image] ThumbnailImage - Thumbnail Image: (Binary data 28 bytes)
+[Composite, Composite, Image] LightValue - Light Value: 10.1
+[Composite, Composite, Camera] FocalLength35efl - Focal Length: 200.0 mm

data/vendor/Image-ExifTool-9.27/t/Vorbis.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/Vorbis.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::Vorbis;
+$loaded = 1;
+print "ok 1\n";
+
+use t::TestLib;
+
+my $testname = 'Vorbis';
+my $testnum = 1;
+
+# test 2: Extract information from test file
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    my $info = $exifTool->ImageInfo('t/images/Vorbis.ogg');
+    print 'not ' unless check($exifTool, $info, $testname, $testnum);
+    print "ok $testnum\n";
+}
+
+
+# end

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

@@ -0,0 +1,28 @@
+[ExifTool, ExifTool, ExifTool] ExifToolVersion - ExifTool Version Number: 9.07
+[File, System, Image] FileName - File Name: Vorbis.ogg
+[File, System, Image] Directory - Directory: t/images
+[File, System, Image] FileSize - File Size: 5.2 kB
+[File, System, Time] FileModifyDate - File Modification Date/Time: 2006:11:10 21:57:27-05:00
+[File, System, Time] FileAccessDate - File Access Date/Time: 2012:11:19 15:31:35-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: OGG
+[File, File, Image] MIMEType - MIME Type: audio/x-ogg
+[Vorbis, Vorbis, Audio] 0 - Vorbis Version: 0
+[Vorbis, Vorbis, Audio] 4 - Audio Channels: 2
+[Vorbis, Vorbis, Audio] 5 - Sample Rate: 22050
+[Vorbis, Vorbis, Audio] 13 - Nominal Bitrate: 32 kbps
+[Vorbis, Vorbis, Audio] vendor - Vendor: AO; aoTuV b4b [20051117] (based on Xiph.Org's libVorbis)
+[Vorbis, Vorbis, Audio] COVERARTMIME - Cover Art MIME Type: image/jpeg
+[Vorbis, Vorbis, Audio] COVERART - Cover Art: (Binary data 1351 bytes)
+[Vorbis, Vorbis, Audio] MEDIAJUKEBOX:TOOL NAME - Mediajukebox Tool Name: Media Center
+[Vorbis, Vorbis, Audio] MEDIAJUKEBOX:TOOL VERSION - Mediajukebox Tool Version: 11.1.197
+[Vorbis, Vorbis, Audio] GENRE - Genre: Funk
+[Vorbis, Vorbis, Audio] MEDIAJUKEBOX:DATE - Mediajukebox Date: 38718
+[Vorbis, Vorbis, Time] DATE - Date: 2006
+[Vorbis, Vorbis, Audio] TITLE - Title: A 4s sample for testing embedded cover art
+[Vorbis, Vorbis, Audio] TRACKNUMBER - Track Number: 1
+[Vorbis, Vorbis, Audio] COMMENT - Comment: a nice comment
+[Vorbis, Vorbis, Author] ARTIST - Artist: Who Knows
+[Vorbis, Vorbis, Audio] ALBUM - Album: The Test Album
+[Composite, Composite, Other] Duration - Duration: 1.34 s (approx)

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

@@ -0,0 +1,896 @@
+# Before "make install", this script should be runnable with "make test".
+# After "make install" it should work as "perl t/Writer.t".
+
+BEGIN { $| = 1; print "1..50\n"; $Image::ExifTool::noConfig = 1; }
+END {print "not ok 1\n" unless $loaded;}
+
+# test 1: Load the module(s)
+use Image::ExifTool 'ImageInfo';
+$loaded = 1;
+print "ok 1\n";
+
+######################### End of black magic.
+
+use t::TestLib;
+
+my $testname = 'Writer';
+my $testnum = 1;
+my $testfile;
+
+# tests 2/3: Test writing new comment to JPEG file and removing it again
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    my $testfile1 = "t/${testname}_${testnum}_failed.jpg";
+    -e $testfile1 and unlink $testfile1;
+    $exifTool->SetNewValue('Comment','New comment in JPG file');
+    writeInfo($exifTool, 't/images/Canon.jpg', $testfile1);
+    my $info = ImageInfo($testfile1);
+    print 'not ' unless check($info, $testname, $testnum);
+    print "ok $testnum\n";
+
+    ++$testnum;
+    my $testfile2 = "t/${testname}_${testnum}_failed.jpg";
+    -e $testfile2 and unlink $testfile2;
+    $exifTool->SetNewValue('Comment');
+    writeInfo($exifTool, $testfile1, $testfile2);
+    if (binaryCompare($testfile2, 't/images/Canon.jpg')) {
+        unlink $testfile1;
+        unlink $testfile2;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# tests 4/5: Test editing a TIFF in memory then changing it back again
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->Options(Duplicates => 1, Unknown => 1);
+    my $newtiff;
+    $exifTool->SetNewValue(Headline => 'A different headline');
+    $exifTool->SetNewValue(ImageDescription => 'Modified TIFF');
+    $exifTool->SetNewValue(Keywords => 'another keyword', AddValue => 1);
+    $exifTool->SetNewValue('xmp:SupplementalCategories' => 'new XMP info');
+    writeInfo($exifTool, 't/images/ExifTool.tif', \$newtiff);
+    my $info = $exifTool->ImageInfo(\$newtiff);
+    unless (check($exifTool, $info, $testname, $testnum)) {
+        $testfile = "t/${testname}_${testnum}_failed.tif";
+        open(TESTFILE,">$testfile");
+        binmode(TESTFILE);
+        print TESTFILE $newtiff;
+        close(TESTFILE);
+        print 'not ';
+    }
+    print "ok $testnum\n";
+
+    ++$testnum;
+    my $newtiff2;
+    $exifTool->SetNewValue();   # clear all the changes
+    $exifTool->SetNewValue(Headline => 'headline');
+    $exifTool->SetNewValue(ImageDescription => 'The picture caption');
+    $exifTool->SetNewValue(Keywords => 'another keyword', DelValue => 1);
+    $exifTool->SetNewValue(SupplementalCategories);
+    writeInfo($exifTool, \$newtiff, \$newtiff2);
+    $testfile = "t/${testname}_${testnum}_failed.tif";
+    open(TESTFILE,">$testfile");
+    binmode(TESTFILE);
+    print TESTFILE $newtiff2;
+    close(TESTFILE);
+    if (binaryCompare($testfile,'t/images/ExifTool.tif')) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 6/7: Test rewriting a JPEG file then changing it back again
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->Options(Duplicates => 1, Unknown => 1);
+    my $testfile1 = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile1;
+    $exifTool->SetNewValue(DateTimeOriginal => '2005:01:01 00:00:00', Group => 'IFD0');
+    $exifTool->SetNewValue(Contrast => '+2', Group => 'XMP');
+    $exifTool->SetNewValue(ExposureCompensation => 999, Group => 'EXIF');
+    $exifTool->SetNewValue(LightSource => 'cloud');
+    $exifTool->SetNewValue('EXIF:Flash' => '0x1', Type => 'ValueConv');
+    $exifTool->SetNewValue('Orientation#' => 3);
+    $exifTool->SetNewValue(FocalPlaneResolutionUnit => 'mm');
+    $exifTool->SetNewValue(Category => 'IPTC test');
+    $exifTool->SetNewValue(Description => 'New description');
+    $exifTool->SetNewValue(TimeCodes => '02:53:49:07 2009-11-19T12:38:35:21-03:00');
+    writeInfo($exifTool, 't/images/Canon.jpg', $testfile1);
+    my $info = $exifTool->ImageInfo($testfile1);
+    print 'not ' unless check($exifTool, $info, $testname, $testnum);
+    print "ok $testnum\n";
+
+    ++$testnum;
+    $exifTool->SetNewValue();
+    $exifTool->SetNewValue(DateTimeOriginal => '2003:12:04 06:46:52');
+    $exifTool->SetNewValue(Contrast => undef, Group => 'XMP');
+    $exifTool->SetNewValue(ExposureCompensation => 0, Group => 'EXIF');
+    $exifTool->SetNewValue('LightSource');
+    $exifTool->SetNewValue('EXIF:Flash' => '0x0', Type => 'ValueConv');
+    $exifTool->SetNewValue('Orientation#' => 1);
+    $exifTool->SetNewValue(FocalPlaneResolutionUnit => 'in');
+    $exifTool->SetNewValue('Category');
+    $exifTool->SetNewValue('Description');
+    $exifTool->SetNewValue('TimeCodes');
+    my $image;
+    writeInfo($exifTool, $testfile1, \$image);
+    $exifTool->Options(Composite => 0);
+    $info = $exifTool->ImageInfo(\$image, '-filesize');
+    my $testfile2 = "t/${testname}_${testnum}_failed.jpg";
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile1;
+        unlink $testfile2;
+    } else {
+        # save bad file
+        open(TESTFILE,">$testfile2");
+        binmode(TESTFILE);
+        print TESTFILE $image;
+        close(TESTFILE);
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 8: Test rewriting everything in a JPEG file
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->Options(Duplicates => 1, Binary => 1, List => 1);
+    my $info = $exifTool->ImageInfo('t/images/Canon.jpg');
+    my $tag;
+    foreach $tag (keys %$info) {
+        my $group = $exifTool->GetGroup($tag);
+        # eat return values so warnings don't get printed
+        my @rtns = $exifTool->SetNewValue($tag,$info->{$tag},Group=>$group);
+    }
+    undef $info;
+    my $image;
+    writeInfo($exifTool, 't/images/Canon.jpg', \$image);
+    # (must drop Composite tags because their order may change)
+    $exifTool->Options(Unknown => 1, Binary => 0, List => 0, Composite => 0);
+    # (must ignore filesize because it changes as null padding is discarded)
+    $info = $exifTool->ImageInfo(\$image, '-filesize');
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    if (check($exifTool, $info, $testname, $testnum, 7)) {
+        unlink $testfile;
+    } else {
+        # save bad file
+        open(TESTFILE,">$testfile");
+        binmode(TESTFILE);
+        print TESTFILE $image;
+        close(TESTFILE);
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 9: Test copying over information with SetNewValuesFromFile()
+#         (including a transfer of the ICC_Profile record)
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->SetNewValuesFromFile('t/images/Canon.jpg');
+    $exifTool->SetNewValuesFromFile('t/images/ExifTool.tif', 'ICC_Profile');
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/Nikon.jpg', $testfile);
+    my $info = $exifTool->ImageInfo($testfile);
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 10: Another SetNewValuesFromFile() test
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->Options('IgnoreMinorErrors' => 1);
+    $exifTool->SetNewValuesFromFile('t/images/Pentax.jpg');
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/Canon.jpg', $testfile);
+    my $info = $exifTool->ImageInfo($testfile);
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# tests 11/12: Try creating something from nothing and removing it again
+#              (also test ListSplit and ListSep options)
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->Options(ListSplit => ';\\s*');
+    $exifTool->Options(ListSep => ' <<separator>> ');
+    $exifTool->SetNewValue(DateTimeOriginal => '2005:01:19 13:37:22', Group => 'EXIF');
+    $exifTool->SetNewValue(FileVersion => 12, Group => 'IPTC');
+    $exifTool->SetNewValue(Contributor => 'Guess who', Group => 'XMP');
+    $exifTool->SetNewValue(GPSLatitude => q{44 deg 14' 12.25"}, Group => 'GPS');
+    $exifTool->SetNewValue('Ducky:Quality' => 50);
+    $exifTool->SetNewValue(Keywords => 'this; that');
+    my $testfile1 = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile1;
+    writeInfo($exifTool, 't/images/Writer.jpg', $testfile1);
+    my $info = $exifTool->ImageInfo($testfile1);
+    my $success = check($exifTool, $info, $testname, $testnum);
+    print 'not ' unless $success;
+    print "ok $testnum\n";
+
+    ++$testnum;
+    $exifTool->SetNewValue('DateTimeOriginal');
+    $exifTool->SetNewValue('FileVersion');
+    $exifTool->SetNewValue('Contributor');
+    $exifTool->SetNewValue('GPSLatitude');
+    $exifTool->SetNewValue('Ducky:Quality');
+    $exifTool->SetNewValue('Keywords');
+    my $testfile2 = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile2;
+    writeInfo($exifTool, $testfile1, $testfile2);
+    if (binaryCompare('t/images/Writer.jpg', $testfile2)) {
+        unlink $testfile1 if $success;
+        unlink $testfile2;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 13: Copy tags from CRW file to JPG
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->SetNewValuesFromFile('t/images/CanonRaw.crw');
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/Writer.jpg', $testfile);
+    my $info = $exifTool->ImageInfo($testfile);
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 14: Delete all information in a group
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->SetNewValue('All' => undef, Group => 'MakerNotes');
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/Canon.jpg', $testfile);
+    my $info = $exifTool->ImageInfo($testfile);
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 15: Copy a specific set of tags
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    my @copyTags = qw(exififd:all -lightSource ifd0:software);
+    # also test new regular expression feature (ExifTool 9.15)
+    push @copyTags, 'comment<${ make ; tr{ ,.}{_}; s{__}{_} } {cool, huh?}';
+    $exifTool->SetNewValuesFromFile('t/images/Olympus.jpg', @copyTags);
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/Canon.jpg', $testfile);
+    my $info = $exifTool->ImageInfo($testfile);
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# tests 16-18: Test SetNewValuesFromFile() order of operations
+{
+    my @argsList = (
+        [ 'ifd0:xresolution>xmp:*', 'ifd1:xresolution>xmp:*' ],
+        [ 'ifd1:xresolution>xmp:*', 'ifd0:xresolution>xmp:*' ],
+        [ '*:xresolution', '-ifd0:xresolution', 'xresolution>xmp:*' ],
+    );
+    my $args;
+    foreach $args (@argsList) {
+        ++$testnum;
+        my $exifTool = new Image::ExifTool;
+        $exifTool->SetNewValuesFromFile('t/images/GPS.jpg', @$args);
+        $testfile = "t/${testname}_${testnum}_failed.jpg";
+        unlink $testfile;
+        writeInfo($exifTool, 't/images/Writer.jpg', $testfile);
+        my $info = $exifTool->ImageInfo($testfile, 'xresolution');
+        if (check($exifTool, $info, $testname, $testnum)) {
+            unlink $testfile;
+        } else {
+            print 'not ';
+        }
+        print "ok $testnum\n";
+    }
+}
+
+# test 19: Test SaveNewValues()/RestoreNewValues()
+my $testOK;
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->SetNewValue(ISO => 25);
+    $exifTool->SetNewValue(Sharpness => '+1');
+    $exifTool->SetNewValue(Artist => 'Phil', Group => 'IFD0');
+    $exifTool->SetNewValue(Artist => 'Harvey', Group => 'ExifIFD');
+    $exifTool->SetNewValue(DateTimeOriginal => '2006:03:27 16:25:00');
+    $exifTool->SetNewValue(Keywords => ['one','two']);
+    $exifTool->SaveNewValues();
+    $exifTool->SetNewValue(Artist => 'nobody');
+    $exifTool->SetNewValue(Keywords => 'three');
+    $exifTool->SetNewValuesFromFile('t/images/FujiFilm.jpg');
+    $exifTool->RestoreNewValues();
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/Writer.jpg', $testfile);
+    my $info = $exifTool->ImageInfo($testfile);
+    if (check($exifTool, $info, $testname, $testnum)) {
+        $testOK = 1;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 20/21: Test edit in place (using the file from the last test)
+{
+    my ($skip, $size);
+    ++$testnum;
+    $skip = '';
+    if ($testOK) {
+        my $exifTool = new Image::ExifTool;
+        my $newComment = 'This is a new test comment';
+        $exifTool->SetNewValue(Comment => $newComment);
+        my $ok = writeInfo($exifTool, $testfile);
+        my $info = $exifTool->ImageInfo($testfile, 'Comment');
+        if ($$info{Comment} and $$info{Comment} eq $newComment and $ok) {
+            $size = -s $testfile;
+        } else {
+            $testOK = 0;
+            print 'not ';
+        }
+    } else {
+        $skip = ' # skip Relies on previous test';
+    }
+    print "ok $testnum$skip\n";
+
+    # test in-place edit of file passed by handle
+    ++$testnum;
+    $skip = '';
+    if ($testOK) {
+        my $exifTool = new Image::ExifTool;
+        my $shortComment = 'short comment';
+        $exifTool->SetNewValue(Comment => $shortComment);
+        open FILE, "+<$testfile";   # open test file for update
+        writeInfo($exifTool, \*FILE);
+        close FILE;
+        my $info = $exifTool->ImageInfo($testfile, 'Comment');
+        if ($$info{Comment} and $$info{Comment} eq $shortComment) {
+            my $newSize = -s $testfile;
+            unless ($newSize < $size) {
+                # test to see if the file got shorter as it should have
+                $testOK = 0;
+                $skip = ' # skip truncate() not supported on this system';
+            }
+        } else {
+            $testOK = 0;
+            print 'not ';
+        }
+    } else {
+        $skip = ' # skip Relies on previous test';
+    }
+    print "ok $testnum$skip\n";
+}
+
+# test 22: Test time shift feature
+{
+    ++$testnum;
+    my @writeInfo = (
+        ['DateTimeOriginal' => '1:2', 'Shift' => 1],
+        ['ModifyDate' => '2:1: 3:4', 'Shift' => 1],
+        ['CreateDate' => '200 0', 'Shift' => -1],
+        ['DateCreated' => '20:', 'Shift' => -1],
+    );
+    print 'not ' unless writeCheck(\@writeInfo, $testname, $testnum, 't/images/XMP.jpg', 1);
+    print "ok $testnum\n";
+}
+
+# test 23: Test renaming a file from the value of DateTimeOriginal
+{
+    ++$testnum;
+    my $skip = '';
+    if ($testOK) {
+        my $newfile = "t/${testname}_${testnum}_20060327_failed.jpg";
+        unlink $newfile;
+        my $exifTool = new Image::ExifTool;
+        $exifTool->Options(DateFormat => "${testname}_${testnum}_%Y%m%d_failed.jpg");
+        $exifTool->SetNewValuesFromFile($testfile, 'FileName<DateTimeOriginal');
+        writeInfo($exifTool, $testfile);
+        if (-e $newfile and not -e $testfile) {
+            $testfile = $newfile;
+        } else {
+            $testOK = 0;
+            print 'not ';
+        }
+    } else {
+        $skip = ' # skip Relies on test 21';
+    }
+    print "ok $testnum$skip\n";
+
+    $testOK and unlink $testfile;   # erase test file if all tests passed
+}
+
+# test 24: Test redirection with expressions
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->SetNewValuesFromFile('t/images/FujiFilm.jpg',
+        'Comment<ISO=$ISO Aperture=${EXIF:fnumber} Exposure=${shutterspeed}'
+    );
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/Writer.jpg', $testfile);
+    my $info = $exifTool->ImageInfo($testfile, 'Comment');
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 25/26: Test order of delete operations
+{
+    my $i;
+    for ($i=0; $i<2; ++$i) {
+        ++$testnum;
+        my $exifTool = new Image::ExifTool;
+        $exifTool->SetNewValuesFromFile('t/images/Nikon.jpg', 'all:all', '-makernotes:all');
+        $exifTool->SetNewValue(fnumber => 26) if $i == 1;
+        $exifTool->SetNewValue('exififd:all'); # delete all exifIFD
+        $exifTool->SetNewValue(fnumber => 25) if $i == 0;
+        $testfile = "t/${testname}_${testnum}_failed.jpg";
+        unlink $testfile;
+        writeInfo($exifTool, 't/images/Canon.jpg', $testfile);
+        my $info = $exifTool->ImageInfo($testfile);
+        if (check($exifTool, $info, $testname, $testnum)) {
+            unlink $testfile;
+        } else {
+            print 'not ';
+        }
+        print "ok $testnum\n";
+    }
+}
+
+# test 27: Check that mandatory EXIF resolution tags get taken from JFIF
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->SetNewValue('exif:all');     # delete all EXIF
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/ExifTool.jpg', $testfile);
+    $exifTool->SetNewValue();
+    $exifTool->SetNewValue('exif:datetimeoriginal', '2000:01:02 03:04:05');
+    my $ok = writeInfo($exifTool, $testfile);
+    $info = $exifTool->ImageInfo($testfile, 'XResolution', 'YResolution', 'DateTimeOriginal');
+    if (check($exifTool, $info, $testname, $testnum) and $ok) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# tests 28-30: Check cross delete behaviour when deleting tags
+{
+    my $group;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->SetNewValue('IFD0:ISO',100);
+    $exifTool->SetNewValue('ExifIFD:ISO',200);
+    writeInfo($exifTool, 't/images/Writer.jpg', 't/tmp.jpg');
+    foreach $group ('EXIF', 'IFD0', 'ExifIFD') {
+        ++$testnum;
+        $exifTool->SetNewValue();   # reset values
+        $exifTool->SetNewValue("$group:ISO");     # delete ISO from specific group
+        $testfile = "t/${testname}_${testnum}_failed.jpg";
+        unlink $testfile;
+        writeInfo($exifTool, 't/tmp.jpg', $testfile);
+        my $info = $exifTool->ImageInfo($testfile, 'FileName', 'ISO');
+        if (check($exifTool, $info, $testname, $testnum)) {
+            unlink $testfile;
+        } else {
+            print 'not ';
+        }
+        print "ok $testnum\n";
+    }
+    unlink 't/tmp.jpg';
+}
+
+# test 31: Delete all but EXIF (excluding IFD1) and IPTC information
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->SetNewValue('*');
+    $exifTool->SetNewValue('EXIF:*', undef, Replace => 2);
+    $exifTool->SetNewValue('ifd1:all');
+    $exifTool->SetNewValue('IPTC:*', undef, Replace => 2);
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/ExifTool.jpg', $testfile);
+    my $info = $exifTool->ImageInfo($testfile);
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# tests 32-33: Read/Write ICC Profile tags
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->Options(IgnoreMinorErrors => 1);
+    my $hdr = "\0\0\0\x18ADBE\x02\x10\0\0mntrRGB XYZ ";
+    $exifTool->SetNewValue(AsShotICCProfile => $hdr . '<dummy>', Protected => 1);
+    $exifTool->SetNewValue(CurrentICCProfile => $hdr . '<dummy 2>', Protected => 1);
+    $testfile = "t/${testname}_${testnum}_failed.tif";
+    unlink $testfile;
+    my @tags = qw(ICC_Profile AsShotICCProfile CurrentICCProfile);
+    writeInfo($exifTool, 't/images/ExifTool.tif', $testfile);
+    my $info = $exifTool->ImageInfo($testfile, @tags);
+    print 'not ' unless check($exifTool, $info, $testname, $testnum);
+    print "ok $testnum\n";
+
+    ++$testnum;
+    my $srcfile = $testfile;
+    $exifTool->SetNewValue();
+    $exifTool->SetNewValue(ICC_Profile => $hdr . '<another dummy>', Protected => 1);
+    $testfile = "t/${testname}_${testnum}_failed.tif";
+    unlink $testfile;
+    writeInfo($exifTool, $srcfile, $testfile);
+    $info = $exifTool->ImageInfo($testfile, @tags);
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $srcfile;
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 34: copy list tag to list and non-list tags with different options
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->Options(List => 1);
+    $exifTool->SetNewValuesFromFile('t/images/IPTC.jpg',
+            { Replace => 1 },
+            'xmp:subject<filename',
+            'xmp:subject<iptc:keywords',
+            'comment<iptc:keywords',
+            { Replace => 0 },
+            'xmp:HierarchicalSubject<filename',
+            'xmp:HierarchicalSubject<iptc:keywords',
+    );
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/Writer.jpg', $testfile);
+    $info = $exifTool->ImageInfo($testfile, 'xmp:subject', 'comment', 'HierarchicalSubject');
+    my $err;
+    if (check($exifTool, $info, $testname, $testnum)) {
+        # make sure it was an array reference
+        my $val = $$info{Subject} || '';
+        my $err;
+        if (ref $val ne 'ARRAY') {
+            $err = "Subject is not an ARRAY: '$val'";
+        } elsif (@$val != 3) {
+            $err = "Subject does not contain 3 values: '" . join(', ', @$val) . "'";
+        }
+        if ($err) {
+            warn "\n  $err\n";
+        } else {
+            unlink $testfile;
+        }
+    } else {
+        $err = 1;
+    }
+    print 'not ' if $err;
+    print "ok $testnum\n";
+}
+
+# test 35: Add back all information after deleting everything
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->SetNewValue('*');
+    $exifTool->SetNewValuesFromFile('t/images/ExifTool.jpg', 'all:all',
+                                    'icc_profile', 'canonvrd');
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/ExifTool.jpg', $testfile);
+    $exifTool->Options(Composite => 0);
+    my $info = $exifTool->ImageInfo($testfile);
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 36: Test adding and deleting from the same list
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->SetNewValue('IPTC:Keywords', 'out', DelValue => 1);
+    $exifTool->SetNewValue('IPTC:Keywords', 'in', AddValue => 1);
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/Writer.jpg', $testfile);
+    my $info = $exifTool->ImageInfo($testfile, 'IPTC:all');
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# tests 37-38: Create EXIF file from EXIF block and individual tags
+{
+    my $i;
+    for ($i=0; $i<2; ++$i) {
+        ++$testnum;
+        my $exifTool = new Image::ExifTool;
+        my @tags;
+        if ($i == 0) {
+            $exifTool->SetNewValuesFromFile('t/images/Sony.jpg', 'EXIF');
+            $exifTool->Options(PrintConv => 0);
+            @tags = qw(FileSize Compression);
+        } else {
+            $exifTool->SetNewValuesFromFile('t/images/Sony.jpg');
+            $exifTool->Options(PrintConv => 1, Unknown => 1);
+        }
+        $testfile = "t/${testname}_${testnum}_failed.exif";
+        unlink $testfile;
+        writeInfo($exifTool, undef, $testfile);
+        my $info = $exifTool->ImageInfo($testfile, @tags);
+        if (check($exifTool, $info, $testname, $testnum)) {
+            unlink $testfile;
+        } else {
+            print 'not ';
+        }
+        print "ok $testnum\n";
+    }
+}
+
+# tests 39-40: Test writing only if the tag didn't already exist
+{
+    ++$testnum;
+    my @writeInfo = (
+        [DateTimeOriginal => '', DelValue => 1],
+        [DateTimeOriginal => '1999:99:99 99:99:99'],
+        [XResolution => '', DelValue => 1],
+        [XResolution => '123'],
+        [ResolutionUnit => '', DelValue => 1],
+        [ResolutionUnit => 'cm'],
+    );
+    my @check = qw(FileName DateTimeOriginal XResolution ResolutionUnit);
+    print 'not ' unless writeCheck(\@writeInfo, $testname, $testnum,
+                                   't/images/Writer.jpg', \@check);
+    print "ok $testnum\n";
+
+    ++$testnum;
+    print 'not ' unless writeCheck(\@writeInfo, $testname, $testnum,
+                                   't/images/Canon.jpg', \@check, 1);
+    print "ok $testnum\n";
+}
+
+# test 41: Test writing Kodak APP3 and Canon CIFF Meta information
+{
+    ++$testnum;
+    my @writeInfo = (
+        ['Meta:SerialNumber' => '12345'],
+        ['CIFF:OwnerName' => 'CIFF Write Test'],
+    );
+    my @check = qw(SerialNumber OwnerName);
+    print 'not ' unless writeCheck(\@writeInfo, $testname, $testnum,
+                                   't/images/ExifTool.jpg', \@check);
+    print "ok $testnum\n";
+}
+
+# test 42: Test SetNewValuesFromFile with wildcards
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->SetNewValuesFromFile('t/images/ExifTool.jpg', 'ifd0:*<jfif:?resolution');
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    writeInfo($exifTool, 't/images/Writer.jpg', $testfile);
+    $exifTool->Options(Composite => 0);
+    my $info = $exifTool->ImageInfo($testfile, '-file:all');
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 43: Test increment feature EXIF
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    my @writeInfo = (
+        [ExposureTime => '1.5', Shift => 1],
+        [SerialNumber => '-9', Shift => -1], # (two negatives make a positive)
+        [MeteringMode => '1', Shift => 0, AddValue => 1],
+    );
+    print 'not ' unless writeCheck(\@writeInfo, $testname, $testnum, 't/images/Canon.jpg', 1);
+    print "ok $testnum\n";
+}
+
+# test 44: Test increment feature with XMP
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    my @writeInfo = (
+        ['XMP:ApertureValue' => '-0.1', Shift => 1], # increment
+        ['XMP:FNumber' => '28/10', DelValue => 1], # conditional delete
+        ['XMP:DateTimeOriginal' => '3', Shift => 0, AddValue => 1], # shift
+    );
+    print 'not ' unless writeCheck(\@writeInfo, $testname, $testnum, 't/images/XMP.xmp', 1);
+    print "ok $testnum\n";
+}
+
+# test 45: Test writing different EXIF string encoding
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->Options(CharsetEXIF => 'Latin');
+    my $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    $exifTool->SetNewValue(Artist => "P\xc3\xaaro", Group => 'EXIF');
+    writeInfo($exifTool, 't/images/Writer.jpg', $testfile);
+    $exifTool->Options(CharsetEXIF => undef);
+    my $info = $exifTool->ImageInfo($testfile, 'artist');
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 46: Test writing with wildcards
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    my $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    $exifTool->SetNewValue('A*' => '7');
+    writeInfo($exifTool, 't/images/Writer.jpg', $testfile);
+    my $info = $exifTool->ImageInfo($testfile);
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# test 47: Test various WriteMode settings
+{
+    ++$testnum;
+    my $exifTool = new Image::ExifTool;
+    my $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;                               # Should the tag be written?
+    $exifTool->Options(WriteMode => 'w');           # --- write existing tags only:
+    $exifTool->SetNewValue(ISO => 150);             # yes (already exists)
+    $exifTool->SetNewValue(ImageDescription => 'N');# no  (doesn't already exist)
+    $exifTool->Options(WriteMode => 'c');           # --- create new tags only:
+    $exifTool->SetNewValue(ApertureValue => 8.0);   # no  (already exists)
+    $exifTool->SetNewValue(UserComment => 'No');    # no  (exists, albeit empty)
+    $exifTool->SetNewValue(Artist => 'Phil');       # yes (doesn't already exist)
+    $exifTool->SetNewValue('XMP:Subject' => 'No');  # no  (shouldn't create new group)
+    $exifTool->Options(WriteMode => 'cg');          # --- also create new groups:
+    $exifTool->SetNewValue('IPTC:Keywords' => 'Y'); # yes (should create new group)
+    $exifTool->Options(Composite => 0, FastScan => 2);
+    writeInfo($exifTool, 't/images/Canon.jpg', $testfile);
+    my $info = $exifTool->ImageInfo($testfile, '-time:all');
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# tests 48-49: More WriteMode 'cg' tests, and test AddUserDefinedTags()
+{
+    ++$testnum;
+    my $testfile = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile;
+    my $exifTool = new Image::ExifTool;
+    $exifTool->Options(WriteMode => 'cg');
+    $exifTool->SetNewValue('XMP-dc:Title' => 'A');
+    $exifTool->SetNewValue('XMP:Subject' => 'A');
+    $exifTool->SetNewValue('XMP:LocationCreated' => '{city=A}');
+    $exifTool->SetNewValue('XMP:Flash' => '{fired=true}');
+    $exifTool->SetNewValue('IPTC:Keywords' => 'A');
+    $exifTool->SetNewValue('IPTC:City' => 'A');
+    $exifTool->SetNewValue('EXIF:Artist' => 'A');
+    writeInfo($exifTool, 't/images/Writer.jpg', $testfile);
+    my $info = $exifTool->ImageInfo($testfile, '-time:all', '-filename');
+    unless (check($exifTool, $info, $testname, $testnum)) {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+
+    ++$testnum;
+    my $testfile2 = "t/${testname}_${testnum}_failed.jpg";
+    unlink $testfile2;
+    $exifTool->SetNewValue();
+    $exifTool->SetNewValue('XMP-dc:Title' => 'B');
+    $exifTool->SetNewValue('XMP:Subject' => 'B');
+    $exifTool->SetNewValue('XMP:LocationCreated' => '{city=B}');
+    $exifTool->SetNewValue('XMP:Flash' => '{fired=false}');
+    $exifTool->SetNewValue('IPTC:Keywords' => 'B');
+    $exifTool->SetNewValue('IPTC:City' => 'B');
+    $exifTool->SetNewValue('EXIF:Artist' => 'B');
+    if (writeInfo($exifTool, $testfile, $testfile2, 1)) {
+        unlink $testfile;
+        unlink $testfile2;
+    } else {
+        $info = $exifTool->ImageInfo($testfile2, '-time:all', '-filename');
+        check($exifTool, $info, $testname, $testnum, $testnum-1);
+        print 'not ';
+    }
+    print "ok $testnum\n";
+
+    ++$testnum;
+    $testfile = "t/${testname}_${testnum}_failed.xmp";
+    unlink $testfile;
+    Image::ExifTool::AddUserDefinedTags('Image::ExifTool::XMP::dc', test => {} );
+    $exifTool->SetNewValue();
+    $exifTool->SetNewValue('XMP-dc:Title' => 'A');
+    $exifTool->SetNewValue('XMP-dc:Test' => 'B');
+    writeInfo($exifTool, undef, $testfile);
+    $info = $exifTool->ImageInfo($testfile, 'xmp:all');
+    if (check($exifTool, $info, $testname, $testnum)) {
+        unlink $testfile;
+    } else {
+        print 'not ';
+    }
+    print "ok $testnum\n";
+}
+
+# end