root/lang/perl/plagger/t/plugins/Filter-FLVInfo/base.t @ 430

use strict;
use FindBin;
use File::Path qw(rmtree);

BEGIN {
    use t::TestPlagger;
    test_requires_network('mizzy.org:80');
}

our $tmpdir = "$FindBin::Bin/tmp";

plan 'no_plan';

run_eval_expected;

END { rmtree $tmpdir if $tmpdir }

__END__

=== Test Filter::FLVInfo
--- input config
plugins:
  - module: CustomFeed::Debug
    config:
      title: 'Test Filter::FLVInfo'
      link: 'http://mizzy.org/plagger-test/'
      entry:
        - title: 'First Entry'
          link: 'http://mizzy.org/plagger-test/'
          body: 'Test Filter::FLVInfo'
          summary: 'Test Filter::FLVInfo'
          author: 'Yohei Fushii'
          enclosure:
            - url: http://mizzy.org/plagger-test/mizzy.flv

  - module: Filter::FetchEnclosure
    config:
      dir: $main::tmpdir
  - module: Filter::FLVInfo

--- expected
is $context->update->feeds->[0]->entries->[0]->meta->{flvinfo}->{height}, '240';
is $context->update->feeds->[0]->entries->[0]->meta->{flvinfo}->{width}, '320';
is $context->update->feeds->[0]->entries->[0]->meta->{flvinfo}->{aspect}, '4:3';