exiftool_vendored 10.40.0 → 10.43.0

data/bin/Image-ExifTool-10.40/t/CanonRaw.t

@@ -1,126 +0,0 @@
-# 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

data/bin/Image-ExifTool-10.40/t/images/Geotag.log

@@ -1,13 +0,0 @@
-$PMGNTRK,4415.163,N,07631.126,W,00095,M,110833.53,A,,030409*68
-$PMGNTRK,4414.765,N,07631.087,W,00100,M,110905.52,A,,030409*6B
-$PMGNTRK,4414.711,N,07631.117,W,00099,M,110920.53,A,,030409*67
-$PMGNTRK,4414.662,N,07631.160,W,00100,M,111021.54,A,,030409*6D
-$PMGNTRK,4414.492,N,07631.159,W,00101,M,111045.54,A,,030409*69
-$PMGNTRK,4414.372,N,07631.145,W,00101,M,111103.53,A,,030409*69
-$PMGNTRK,4414.145,N,07630.915,W,00104,M,111133.53,A,,030409*65
-$PMGNTRK,4413.791,N,07630.854,W,00099,M,111210.54,A,,030409*69
-$PMGNTRK,4413.425,N,07630.765,W,00095,M,111326.54,A,,030409*60
-$PMGNTRK,4413.633,N,07630.004,W,00092,M,111441.53,A,,030409*63
-$PMGNTRK,4413.584,N,07629.988,W,00089,M,111454.53,A,,030409*67
-$PMGNTRK,4413.488,N,07629.969,W,00085,M,111515.54,A,,030409*6A
-$PMGNCMD,END*3D

data/bin/Image-ExifTool-10.40/t/images/Geotag2.log

@@ -1,7 +0,0 @@
-$PTNTHPR,254.7,N,-1.7,N,-12.1,N,A*6E
-$GPRMC,112723.000,A,5040.3182,N,00505.9469,E,28.66,138.74,240410,,,A*51
-$PTNTHPR,253.9,N,-2.2,N,-10.7,N,A*6C
-$GPRMC,112742.000,A,5040.2023,N,00506.1107,E,27.89,139.01,240410,,,A*56
-$PTNTHPR,260.5,N,-7.5,N,-9.3,N,A*73
-$GPRMC,112802.000,A,5040.0932,N,00506.2621,E,25.54,138.58,240410,,,A*59
-$PTNTHPR,254.3,N,-3.7,N,-5.5,N,A*7E

data/bin/Image-ExifTool-10.40/t/images/Geotag3.log

@@ -1,7 +0,0 @@
-   1 0001   42.721544   61.671879  249  25.21 21/04/2014 07:06:41  25.21    5.90    3.27 ypr
-
-   1 0002   42.721664   61.672028  250  21.94 21/04/2014 07:06:42  21.94    7.33    1.26 ypr
-
-   1 0003   42.721786   61.672173  249  28.36 21/04/2014 07:06:43  28.36    6.42    0.34 ypr
-
-   1 0004   42.721910   61.672337  248  22.98 21/04/2014 07:06:44  22.98    5.50   -0.80 ypr