1#!/usr/bin/perl 2# 3# Test reading MPEG files 4# 5# Whenever a new test is added/removed, be sure to update the 6# 1..n ouput. 7# 8BEGIN { $| = 1; $test=1; print "1..2\n"; } 9END {print "not ok $test\n" unless $loaded;} 10use Image::Magick; 11$loaded=1; 12 13require 't/subroutines.pl'; 14 15chdir 't/mpeg' || die 'Cd failed'; 16 17# 18# Motion Picture Experts Group file interchange format (version 2) 19# 20testRead( 'input.m2v', 21 '4ed5fcb7356705276d7a73f2088a7192317df370de86ab95b29874f60e37088e' ); 22 23# 24# Motion Picture Experts Group file interchange format 25# 26++$test; 27testRead( 'input.mpg', 28 '531b7360d6733d6339f247af3a3833c9e95d6c376b64374d374e26cfdede70a5' ); 29 301; 31