12345678910111213141516171819202122232425262728293031323334353637383940 |
- # Before `make install' is performed this script should be runnable with
- # `make test'. After `make install' it should work as `perl t/Lang.t'
- use Image::ExifTool;
- use t::TestLib;
- $| = 1;
- print "1..", scalar(@Image::ExifTool::langs), "\n";
- my $testname = 'Lang';
- my $testnum = 0;
- # test 1: Test localized language description for a lang-alt tag
- {
- ++$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";
- }
- # tests 2-N: Test all languages
- my $exifTool = new Image::ExifTool;
- my $lang;
- foreach $lang (@Image::ExifTool::langs) {
- next if $lang eq 'en'; # skip english
- ++$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";
- }
- # end
|