# Before "make install", this script should be runnable with "make test".
# After "make install" it should work as "perl t/Apple.t".
BEGIN {
$| = 1;
"1..2\n"
;
$Image::ExifTool::configFile
=
''
;
require
'./t/TestLib.pm'
; t::TestLib->
import
();
}
END {
"not ok 1\n"
unless
$loaded
;}
# test 1: Load the module(s)
$loaded
= 1;
"ok 1\n"
;
my
$testname
=
'Apple'
;
my
$testnum
= 1;
# test 2: Extract information from Apple.jpg
{
++
$testnum
;
my
$exifTool
= Image::ExifTool->new;
$exifTool
->Options(
Unknown
=> 1,
Composite
=> 0);
my
$info
=
$exifTool
->ImageInfo(
't/images/Apple.jpg'
,
'-file:all'
);
notOK()
unless
check(
$exifTool
,
$info
,
$testname
,
$testnum
);
"ok $testnum\n"
;
}
done();
# end