--- trunk/t/02-frey-ppi.t	2008/11/08 16:12:39	331
+++ trunk/t/02-frey-ppi.t	2008/11/08 23:01:45	335
@@ -13,10 +13,18 @@
 	use_ok('Frey::PPI');
 }
 
-ok( my $o = Frey::PPI->new( class => 'Frey::DelIcioUs', debug => $debug ), 'new' );
-ok( my @order = $o->attribute_order, 'attribute_order' );
-diag dump( @order ) if $debug;
-is_deeply( [ @order ], [ 'username', 'password', 'path' ], 'order correct' );
-ok( my $data = $o->data, 'data' );
-diag dump( $data ) if $debug;
+my $test = {
+	'Frey::DelIcioUs' => [ 'username', 'password' ],
+	'Frey::Feed' => [ 'uri' ],
+};
 
+foreach my $class ( keys %$test ) {
+
+	ok( my $o = Frey::PPI->new( class => $class, debug => $debug ), "new $class" );
+	ok( my @order = $o->attribute_order, 'attribute_order' );
+	diag dump( @order ) if $debug;
+	is_deeply( [ @order ], $test->{$class}, 'order correct' );
+	ok( my $data = $o->data, 'data' );
+	diag dump( $data ) if $debug;
+
+}