git.rot13.org Git - webpac2/blob - t/5-output-jifty.t

   1 #!/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