/[webpac2]/trunk/t/5-output-webpacus.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/5-output-webpacus.t

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

revision 992 by dpavlin, Thu Nov 1 00:16:48 2007 UTC revision 993 by dpavlin, Sun Nov 4 14:43:47 2007 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use blib;  use blib;
5    
6  use Test::More tests => 10;  use Test::More tests => 11;
7    
8  BEGIN {  BEGIN {
9  use_ok( 'WebPAC::Test' );  use_ok( 'WebPAC::Test' );
# Line 17  ok(my $out = new WebPAC::Output::Webpacu Line 17  ok(my $out = new WebPAC::Output::Webpacu
17          %LOG          %LOG
18  }), "new");  }), "new");
19    
20    ok( $out->consume_outputs, 'consume_outputs' );
21    
22    diag "consume_outputs = ",dump( $out->consume_outputs ) if $debug;
23    
24  ok( $out->init, 'init' );  ok( $out->init, 'init' );
25    
26  my $ds = {  my $ds = {
# Line 43  ok( $out->add( 100, { foo => { sorted => Line 47  ok( $out->add( 100, { foo => { sorted =>
47    
48  diag "path: ",$out->path if $debug;  diag "path: ",$out->path if $debug;
49    
50  ok( $out->finish, 'finish' );  cmp_ok( $out->finish, '==', 4, 'finish' );
51    
Legend:
Removed from v.992  
changed lines
  Added in v.993
  ViewVC Help
Powered by ViewVC 1.1.26