| #!/usr/bin/perl |
| # |
| # Test reading MPEG files |
| # |
| # Whenever a new test is added/removed, be sure to update the |
| # 1..n ouput. |
| # |
| BEGIN { $| = 1; $test=1; print "1..2\n"; } |
| END {print "not ok $test\n" unless $loaded;} |
| use Image::Magick; |
| $loaded=1; |
| |
| require 't/subroutines.pl'; |
| |
| chdir 't/mpeg' || die 'Cd failed'; |
| |
| # |
| # Motion Picture Experts Group file interchange format (version 2) |
| # |
| testRead( 'input.m2v', |
| '4ed5fcb7356705276d7a73f2088a7192317df370de86ab95b29874f60e37088e' ); |
| |
| # |
| # Motion Picture Experts Group file interchange format |
| # |
| ++$test; |
| testRead( 'input.mpg', |
| '531b7360d6733d6339f247af3a3833c9e95d6c376b64374d374e26cfdede70a5' ); |
| |
| 1; |
