/[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 547 by dpavlin, Wed Nov 19 19:28:09 2008 UTC revision 548 by dpavlin, Wed Nov 26 21:30:01 2008 UTC
# Line 24  my $pipes = { Line 24  my $pipes = {
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, debug => $debug ), "pipe $pipe" );
28          ok( my $markup = $o->as_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' );
Legend:
Removed from v.547  
changed lines
  Added in v.548
  ViewVC Help
Powered by ViewVC 1.1.26