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

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use blib;
   5
   6 use Test::More tests => 11;
   7
   8 BEGIN {
   9 use_ok( 'WebPAC::Test' );
  10 use_ok( 'WebPAC::Output::Webpacus' );
  11 }
  12
  13 ok(my $out = new WebPAC::Output::Webpacus({
  14         path => '/data/Webpacus2/',
  15         database => 'test',
  16         clean => 1,
  17         %LOG
  18 }), "new");
  19
  20 ok( $out->consume_outputs, 'consume_outputs' );
  21
  22 diag "consume_outputs = ",dump( $out->consume_outputs ) if $debug;
  23
  24 ok( $out->init, 'init' );
  25
  26 my $ds = {
  27         'Source' => {
  28                 'name' => 'Izvor: ',
  29                 'sorted' => [ 'foo' ]
  30         },
  31         'ID' => {
  32                 'sorted' => 'id',
  33         },
  34         'Array' => {
  35                 'sorted' => [ qw/a1 a2 s3 a4 a5/ ],
  36         },
  37 };
  38
  39 throws_ok { $out->add( ) } qr/need id/, 'add without params';
  40 throws_ok { $out->add( 42 ) } qr/need ds/, 'add without ds';
  41
  42 ok( $out->add( 42, $ds ), 'add 42' );
  43
  44 ok( $out->add( 99, { foo => { sorted => 'bar' } } ), 'add 99' );
  45
  46 ok( $out->add( 100, { foo => { sorted => [ qw/foo bar baz/ ] } } ), 'add 100' );
  47
  48 diag "path: ",$out->path if $debug;
  49
  50 cmp_ok( $out->finish, '==', 4, 'finish' );
  51