trunk/t/5-output-jifty.t

#!/usr/bin/perl -w

use strict;
use blib;

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',
        }
};

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	dpavlin	1056	#!/usr/bin/perl -w
2
3			use strict;
4			use blib;
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',
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