"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/QuickTime.t" between
Image-ExifTool-12.05.tar.gz and Image-ExifTool-12.06.tar.gz

About: ExifTool is a platform-independent Perl library plus a command-line application for reading, writing and editing meta information in a wide variety of files.

QuickTime.t  (Image-ExifTool-12.05):QuickTime.t  (Image-ExifTool-12.06)
skipping to change at line 62 skipping to change at line 62
print 'not '; print 'not ';
} }
print "ok $testnum\n"; print "ok $testnum\n";
} }
} }
# test 6: Write video rotation # test 6: Write video rotation
{ {
++$testnum; ++$testnum;
my $exifTool = new Image::ExifTool; my $exifTool = new Image::ExifTool;
$exifTool->SetNewValue('Rotation' => '270'); $exifTool->SetNewValue('Rotation' => '270', Protected => 1);
my $testfile = "t/${testname}_${testnum}_failed.mov"; my $testfile = "t/${testname}_${testnum}_failed.mov";
unlink $testfile; unlink $testfile;
my $rtnVal = $exifTool->WriteInfo('t/images/QuickTime.mov', $testfile); my $rtnVal = $exifTool->WriteInfo('t/images/QuickTime.mov', $testfile);
my $info = $exifTool->ImageInfo($testfile, 'Rotation', 'MatrixStructure'); my $info = $exifTool->ImageInfo($testfile, 'Rotation', 'MatrixStructure');
if (check($exifTool, $info, $testname, $testnum)) { if (check($exifTool, $info, $testname, $testnum)) {
unlink $testfile; unlink $testfile;
} else { } else {
print 'not '; print 'not ';
} }
print "ok $testnum\n"; print "ok $testnum\n";
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)