12345678910111213141516171819202122232425262728293031323334353637383940 |
- use Image::ExifTool;
- use t::TestLib;
- $| = 1;
- print "1..", scalar(@Image::ExifTool::langs), "\n";
- my $testname = 'Lang';
- my $testnum = 0;
- {
- ++$testnum;
- my $exifTool = new Image::ExifTool;
- $exifTool->Options(Lang => 'de');
- my $info = $exifTool->ImageInfo('t/images/MIE.mie', 'Comment-fr_FR');
- print 'not ' unless check($exifTool, $info, $testname, $testnum);
- print "ok $testnum\n";
- }
- my $exifTool = new Image::ExifTool;
- my $lang;
- foreach $lang (@Image::ExifTool::langs) {
- next if $lang eq 'en';
- ++$testnum;
- my $not = 'not ';
- $exifTool->Options(Lang => $lang);
- if ($exifTool->Options('Lang') eq $lang) {
- my $info = $exifTool->ImageInfo('t/images/FujiFilm.jpg', 'Exif:All');
- $not = '' if check($exifTool, $info, $testname, $testnum);
- } else {
- warn "\n Error loading language $lang\n";
- }
- print "${not}ok $testnum\n";
- }
|