/[Frey]/trunk/t/02-frey-ppi.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/02-frey-ppi.t

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

revision 334 by dpavlin, Sat Nov 8 16:12:39 2008 UTC revision 335 by dpavlin, Sat Nov 8 23:01:45 2008 UTC
# Line 13  BEGIN { Line 13  BEGIN {
13          use_ok('Frey::PPI');          use_ok('Frey::PPI');
14  }  }
15    
16  ok( my $o = Frey::PPI->new( class => 'Frey::DelIcioUs', debug => $debug ), 'new' );  my $test = {
17  ok( my @order = $o->attribute_order, 'attribute_order' );          'Frey::DelIcioUs' => [ 'username', 'password' ],
18  diag dump( @order ) if $debug;          'Frey::Feed' => [ 'uri' ],
19  is_deeply( [ @order ], [ 'username', 'password', 'path' ], 'order correct' );  };
 ok( my $data = $o->data, 'data' );  
 diag dump( $data ) if $debug;  
20    
21    foreach my $class ( keys %$test ) {
22    
23            ok( my $o = Frey::PPI->new( class => $class, debug => $debug ), "new $class" );
24            ok( my @order = $o->attribute_order, 'attribute_order' );
25            diag dump( @order ) if $debug;
26            is_deeply( [ @order ], $test->{$class}, 'order correct' );
27            ok( my $data = $o->data, 'data' );
28            diag dump( $data ) if $debug;
29    
30    }
Legend:
Removed from v.334  
changed lines
  Added in v.335
  ViewVC Help
Powered by ViewVC 1.1.26