diff options
author | exiftool <phil@work3.phy.queensu.ca> | 2018-01-26 12:41:32 -0500 |
---|---|---|
committer | exiftool <phil@work3.phy.queensu.ca> | 2018-01-26 12:41:32 -0500 |
commit | d62e2cf739cb954b77b9c309506e0d0c14ac0fdc (patch) | |
tree | a87f77cc6b3f0ea55c47e2643ec263694f485891 /t/Red.t | |
parent | 5a96e29ffec7118456020aa340b139db2d172110 (diff) |
Update to 10.77
Diffstat (limited to 't/Red.t')
-rw-r--r-- | t/Red.t | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/t/Red.t b/t/Red.t new file mode 100644 index 00000000..de079083 --- /dev/null +++ b/t/Red.t @@ -0,0 +1,29 @@ +# Before "make install", this script should be runnable with "make test". +# After "make install" it should work as "perl t/Red.t". + +BEGIN { + $| = 1; print "1..2\n"; $Image::ExifTool::configFile = ''; + require './t/TestLib.pm'; t::TestLib->import(); +} +END {print "not ok 1\n" unless $loaded;} + +# test 1: Load the module(s) +use Image::ExifTool 'ImageInfo'; +use Image::ExifTool::Red; +$loaded = 1; +print "ok 1\n"; + +my $testname = 'Red'; +my $testnum = 1; + +# test 2: Extract information from Red.r3d +{ + ++$testnum; + my $exifTool = new Image::ExifTool; + my $info = $exifTool->ImageInfo('t/images/Red.r3d'); + print 'not ' unless check($exifTool, $info, $testname, $testnum); + print "ok $testnum\n"; +} + + +# end |