trunk/t/5-output-jifty.t

#!/usr/bin/perl -w

use strict;
use lib 'lib';

use Test::More tests => 8;

BEGIN {
use_ok( 'WebPAC::Test' );
use_ok( 'WebPAC::Output::Jifty' );
}

ok(my $out = new WebPAC::Output::Jifty({
        path => '/data/Webpacus2/',
        model => 'Webpacus::Model::UFO',
        clean => 1,
        %LOG
}), "new");

ok( $out->init, 'init' );

my $ds = {
        date => {
                display => '2007-11-19',
        },
        time => {
                display => '23:20:19',
        },
        town => {
                display => 'Sometown',
        },
        county => {
                display => 'Somewhere',
        },
        comment => {
                display => [ 'test data', 'and more' ],
        }
};

throws_ok { $out->add( ) } qr/need id/, 'add without params';
throws_ok { $out->add( 42 ) } qr/need ds/, 'add without ds';

ok( $out->add( 42, $ds ), 'add 42' );

ok( $out->finish, 'finish' );

1	#!/usr/bin/perl -w
2
3	use strict;
4	use lib 'lib';
5
6	use Test::More tests => 8;
7
8	BEGIN {
9	use_ok( 'WebPAC::Test' );
10	use_ok( 'WebPAC::Output::Jifty' );
11	}
12
13	ok(my $out = new WebPAC::Output::Jifty({
14	path => '/data/Webpacus2/',
15	model => 'Webpacus::Model::UFO',
16	clean => 1,
17	%LOG
18	}), "new");
19
20	ok( $out->init, 'init' );
21
22	my $ds = {
23	date => {
24	display => '2007-11-19',
25	},
26	time => {
27	display => '23:20:19',
28	},
29	town => {
30	display => 'Sometown',
31	},
32	county => {
33	display => 'Somewhere',
34	},
35	comment => {
36	display => [ 'test data', 'and more' ],
37	}
38	};
39
40	throws_ok { $out->add( ) } qr/need id/, 'add without params';
41	throws_ok { $out->add( 42 ) } qr/need ds/, 'add without ds';
42
43	ok( $out->add( 42, $ds ), 'add 42' );
44
45	ok( $out->finish, 'finish' );
46