#!/usr/bin/perl
use lib './blib/lib';
use strict;
use constant DEBUG => 0;
BEGIN {
# to handle systems with no installed Test module
# we include the t dir (where a copy of Test.pm is located)
# as a fallback
eval { require Test; };
if( $@ ) {
use lib 't';
}
use Test;
plan tests => 3 }
print "Loading Video::Info::FOO...\n";
use Video::Info::FOO;
ok(1);
my $file = Video::Info::FOO->new(-file=>'eg/sample.mov');
ok $file;
ok $file->probe;
########################################
#make these appropriate for your module!
########################################
#ok $file->achans == 2; warn $file->achans if DEBUG;
#ok $file->acodec eq 'QDM2'; warn $file->acodec if DEBUG;
#ok $file->arate == 22050; warn $file->arate if DEBUG;
#ok $file->astreams == 1; warn $file->astreams if DEBUG;
#ok $file->vcodec eq 'SVQ1'; warn $file->vcodec if DEBUG;
#ok $file->vframes == 60; warn $file->vframes if DEBUG;
#ok $file->vrate == -1; warn $file->vrate if DEBUG;
#ok $file->vstreams == 1; warn $file->vstreams if DEBUG;
#ok $file->fps == 12; warn $file->fps if DEBUG;
#ok $file->width == 190; warn $file->width if DEBUG;
#ok $file->height == 240; warn $file->height if DEBUG;
#ok !$file->type eq ''; warn $file->type if DEBUG;
#ok int($file->duration)== 5; warn $file->duration if DEBUG;
#ok $file->title eq '-1'; warn $file->title if DEBUG;
#ok $file->copyright eq '-1'; warn $file->copyright if DEBUG;