Changeset 433 for lang/perl/plagger/t

Timestamp:

10/08/07 21:34:27 (14 months ago)

Author:

otsune

Message:

lang/perl/plagger/t/plugins/Filter-FLVInfo/base.t: add test with local flv file

Files:

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

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

@@ -33 +33 @@
           enclosure:
             - url: http://mizzy.org/plagger-test/mizzy.flv
+        - title: 'Second Entry'
+          link: 'http://plagger.org/trac/browser/trunk/plagger/lib/Plagger/Plugin/Filter/FLVInfo.pm'
+          body: 'Test Filter::FLVInfo'
+          summary: 'Test Filter::FLVInfo'
+          author: 'Yohei Fushii'
+          enclosure:
+            - url: http://plagger.org/trac/browser/trunk/plagger/t/samples/plagger-logo-160x120.flv?format=raw
+              local_path: $t::TestPlagger::BaseDirURI/t/samples/plagger-logo-160x120.flv
 
   - module: Filter::FetchEnclosure
+    rule:  
+      expression: \$args->{entry}->link eq 'http://mizzy.org/plagger-test/';
     config:
       dir: $main::tmpdir
@@ -43 +53 @@
 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->[1]->meta->{flvinfo}->{height}, '120';
+is $context->update->feeds->[0]->entries->[1]->meta->{flvinfo}->{width}, '160';
+is $context->update->feeds->[0]->entries->[1]->meta->{flvinfo}->{aspect}, '4:3';