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