| #!/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', |
| '2e30dd34e6cf2702188059bd8828930f39b1a7746a413f13f6d0dc98b9b0d3a6' ); |
| |
| # |
| # Motion Picture Experts Group file interchange format |
| # |
| ++$test; |
| testRead( 'input.mpg', |
| 'e873cc6cc6eb5b5d11d5ddaaac92c6b86fec09e9721cbaafb8feca8c5be3c12a' ); |
| |
| 1; |