trunk/t/5-output-excel.t

#!/usr/bin/perl -w

use strict;
use blib;

use Test::More tests => 22;

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

my $path = "$abs_path/out/test.xls";

ok(my $out = new WebPAC::Output::Excel({ path => $path, %LOG }), "new");

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

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

my @funny_chars = ( qw/è æ ¾ ¹ ð È Æ ® © Ð/ );

my @expected;

foreach my $line ( 1 .. 5 ) {
        my $ds;
        my $tmp;
        foreach my $col ( 'A' .. 'Z' ) {
                my $text = $line . $col;
                $text .= shift @funny_chars if @funny_chars;
                $ds->{ $col } = { csv => $text };
                $tmp->{$col} = $text;
        }
        ok( $out->add( $line, $ds ), "add $line" );
        push @expected, $tmp;
}

ok( $out->finish );

ok( -e $out->path, "created $path" );

cmp_ok( $out->path, 'eq', $path, 'path' );

diag dump( @expected ) if $debug;

ok(my $input = WebPAC::Input->new( module => 'WebPAC::Input::Excel', no_progress_bar => 1, %LOG ), 'new input' );
ok(my $db = $input->open( path => $path ), "input->open $path");

cmp_ok( $input->size, '==', $#expected, "same size" );

foreach my $mfn ( 1 ... $input->size ) {
        my $ds = shift @expected;
        my $rec = $input->fetch;
        diag dump( $ds, $rec ) if $debug;
        is_deeply( $ds, $rec, "$mfn same?" );
}
1	#!/usr/bin/perl -w
2
3	use strict;
4	use blib;
5
6	use Test::More tests => 22;
7
8	BEGIN {
9	use_ok( 'WebPAC::Test' );
10	use_ok( 'WebPAC::Output::Excel' );
11	use_ok( 'WebPAC::Input' );
12	}
13
14	my $path = "$abs_path/out/test.xls";
15
16	ok(my $out = new WebPAC::Output::Excel({ path => $path, %LOG }), "new");
17
18	ok( $out->init, 'init' );
19
20	throws_ok { $out->add( ) } qr/need id/, 'add without params';
21	throws_ok { $out->add( 42 ) } qr/need ds/, 'add without ds';
22
23	my @funny_chars = ( qw/è æ ¾ ¹ ð È Æ ® © Ð/ );
24
25	my @expected;
26
27	foreach my $line ( 1 .. 5 ) {
28	my $ds;
29	my $tmp;
30	foreach my $col ( 'A' .. 'Z' ) {
31	my $text = $line . $col;
32	$text .= shift @funny_chars if @funny_chars;
33	$ds->{ $col } = { csv => $text };
34	$tmp->{$col} = $text;
35	}
36	ok( $out->add( $line, $ds ), "add $line" );
37	push @expected, $tmp;
38	}
39
40	ok( $out->finish );
41
42	ok( -e $out->path, "created $path" );
43
44	cmp_ok( $out->path, 'eq', $path, 'path' );
45
46	diag dump( @expected ) if $debug;
47
48	ok(my $input = WebPAC::Input->new( module => 'WebPAC::Input::Excel', no_progress_bar => 1, %LOG ), 'new input' );
49	ok(my $db = $input->open( path => $path ), "input->open $path");
50
51	cmp_ok( $input->size, '==', $#expected, "same size" );
52
53	foreach my $mfn ( 1 ... $input->size ) {
54	my $ds = shift @expected;
55	my $rec = $input->fetch;
56	diag dump( $ds, $rec ) if $debug;
57	is_deeply( $ds, $rec, "$mfn same?" );
58	}