/[Frey]/trunk/t/04-frey-pipe.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/04-frey-pipe.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 454 by dpavlin, Wed Nov 19 04:13:36 2008 UTC revision 455 by dpavlin, Wed Nov 19 15:28:23 2008 UTC
# Line 14  BEGIN { Line 14  BEGIN {
14  }  }
15    
16  my $pipes = {  my $pipes = {
17  '00 Frey::Feed/data+uri=https://blog.rot13.org/index.xml|Frey::Dumper/markup' => qr/<.+>/,  '00 Frey::Feed/as_data+uri=https://blog.rot13.org/index.xml|Frey::Dumper/as_markup' => qr/<.+>/,
18  '01 Frey::DelIcioUs/data' => qr/HASH/,  '01 Frey::DelIcioUs/as_data' => qr/HASH/,
19  '02 Frey::DelIcioUs/data|Frey::JSON/markup' => qr/^{/,  '02 Frey::DelIcioUs/as_data|Frey::JSON/as_markup' => qr/^{/,
20  '03 Frey::DelIcioUs/sponge|Frey::SQL/data?query=select description,href,tag,extended,time from sponge order by time desc limit 2|Frey::Dumper/markup' => qr/<.+>/,  '03 Frey::DelIcioUs/as_sponge|Frey::SQL/as_data?query=select description,href,tag,extended,time from sponge order by time desc limit 2|Frey::Dumper/as_markup' => qr/<.+>/,
21  '04 Frey::DelIcioUs/sponge|Frey::View::Exhibit/data|Frey::JSON/markup' => qr/^{/,  '04 Frey::DelIcioUs/as_sponge|Frey::View::Exhibit/as_data|Frey::JSON/as_markup' => qr/^{/,
22  };  };
23    
24  foreach my $pipe ( sort keys %$pipes ) {  foreach my $pipe ( sort keys %$pipes ) {
25          my $real_pipe = $pipe;          my $real_pipe = $pipe;
26          $real_pipe =~ s{^\d+\s+}{};          $real_pipe =~ s{^\d+\s+}{};
27          ok( my $o = Frey::Pipe->new( pipe => $real_pipe ), "pipe $pipe" );          ok( my $o = Frey::Pipe->new( pipe => $real_pipe ), "pipe $pipe" );
28          ok( my $markup = $o->markup, 'markup' );          ok( my $markup = $o->as_markup, 'markup' );
29          diag dump( $markup ) if $debug;          diag dump( $markup ) if $debug;
30          like( $markup, $pipes->{$pipe}, 'validate' );          like( $markup, $pipes->{$pipe}, 'validate' );
31  }  }
Legend:
Removed from v.454  
changed lines
  Added in v.455
  ViewVC Help
Powered by ViewVC 1.1.26