trunk/t/02-Frey-PPI.t

#!/usr/bin/perl
use strict;
use warnings;

my $debug = @ARGV ? 1 : 0;

use Test::More tests => 22;
use lib 'lib';

use Data::Dump qw/dump/;

BEGIN {
        use_ok('Frey::PPI');
}

my $test = {
        'Frey::DelIcioUs' => {
                attribute_order => ["username", "password"],
                includes => {
                        "use" => ["Moose", "LWP::UserAgent", "XML::Simple", "Data::Dump"],
                },
        },
        'Frey::Feed' => {
                attribute_order => ["uri", "feed", "title"],
                includes => {
                        "use" => [ "Moose", "Frey::Types", "Frey::Mirror", "XML::FeedPP", "Data::Dump" ],
                },
                has_tests => ["t/06-Frey-Feed.t"],
        },
        'App::RoomReservation' => {
                attribute_order => [],
                includes => { "use" => ["Moose", "App::RoomReservation::Room"] },
                has_tests => ["t/App/RoomReservation.t"],
        }
};

foreach my $class ( keys %$test ) {

        ok( my $o = Frey::PPI->new( class => $class, debug => $debug ), "new $class" );

        my $data;

        ok( $data->{attribute_order} = $o->attribute_order, 'attribute_order' );
        ok( $data->{includes} = $o->includes, 'includes' );
        $data->{has_tests} = $o->has_tests;
        diag "data $class = ",dump( $data ) if $debug;

        foreach ( keys %$data ) {
                is_deeply( $data->{$_}, $test->{$class}->{$_}, $_ );
        }

        ok( $data = $o->as_data, 'data' );
        diag dump( $data ) if $debug;

}
1	dpavlin	331	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = @ARGV ? 1 : 0;
6
7	dpavlin	1097	use Test::More tests => 22;
8	dpavlin	331	use lib 'lib';
9
10			use Data::Dump qw/dump/;
11
12			BEGIN {
13			use_ok('Frey::PPI');
14			}
15
16	dpavlin	335	my $test = {
17	dpavlin	364	'Frey::DelIcioUs' => {
18			attribute_order => ["username", "password"],
19			includes => {
20			"use" => ["Moose", "LWP::UserAgent", "XML::Simple", "Data::Dump"],
21			},
22			},
23			'Frey::Feed' => {
24			attribute_order => ["uri", "feed", "title"],
25			includes => {
26	dpavlin	915	"use" => [ "Moose", "Frey::Types", "Frey::Mirror", "XML::FeedPP", "Data::Dump" ],
27	dpavlin	364	},
28	dpavlin	915	has_tests => ["t/06-Frey-Feed.t"],
29	dpavlin	364	},
30	dpavlin	1097	'App::RoomReservation' => {
31			attribute_order => [],
32			includes => { "use" => ["Moose", "App::RoomReservation::Room"] },
33			has_tests => ["t/App/RoomReservation.t"],
34			}
35	dpavlin	335	};
36	dpavlin	331
37	dpavlin	335	foreach my $class ( keys %$test ) {
38
39			ok( my $o = Frey::PPI->new( class => $class, debug => $debug ), "new $class" );
40	dpavlin	364
41			my $data;
42
43			ok( $data->{attribute_order} = $o->attribute_order, 'attribute_order' );
44			ok( $data->{includes} = $o->includes, 'includes' );
45	dpavlin	491	$data->{has_tests} = $o->has_tests;
46	dpavlin	364	diag "data $class = ",dump( $data ) if $debug;
47
48			foreach ( keys %$data ) {
49			is_deeply( $data->{$_}, $test->{$class}->{$_}, $_ );
50			}
51
52	dpavlin	455	ok( $data = $o->as_data, 'data' );
53	dpavlin	335	diag dump( $data ) if $debug;
54
55			}