Changeset 430 for lang/perl/plagger/t

Timestamp:

10/08/07 13:57:12 (14 months ago)

Author:

otsune

Message:

lang/perl/plagger/t/plugins/Filter-FLVInfo/base.t: fix

Files:

• lang/perl/plagger/t/plugins/Filter-FLVInfo/base.t (modified) (2 diffs)

lang/perl/plagger/t/plugins/Filter-FLVInfo/base.t

@@ -1 +1 @@
 use strict;
-use t::TestPlagger;
+use FindBin;
+use File::Path qw(rmtree);
 
-test_requires_network('mizzy.org:80');
+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__
@@ -26 +34 @@
             - 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';
+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';