1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
#! perl
use strict;
use warnings;
use Test::More qw(no_plan);
use Data::Report;
my $rep = Data::Report::->create(type => "text", stylist => \&my_stylist);
$rep->set_layout
([ { name => "one", title => "One", width => 10, },
{ name => "two", title => "Two", width => 11, },
{ name => "thr", title => "Three", width => 12, },
{ name => "fou", title => "Four", width => 13, },
{ name => "fiv", title => "Five", width => 14, },
]);
my $ref; { undef $/; $ref = <DATA>; }
$ref =~ s/[\r\n]/\n/g;
my $out = "";
my $dd = "The quick brown fox jumps over the lazy dog.";
$dd = "$dd $dd $dd";
$rep->set_output(\$out);
$rep->start;
$rep->add({ one => $dd, two => $dd, thr => $dd, fou => $dd, fiv => $dd });
$rep->finish;
is($out, $ref);
sub my_stylist {
my ($rep, $row, $col) = @_;
return unless defined $col;
return { indent => 2 } if $col eq "two";
return { indent => 1, wrap_indent => 0 } if $col eq "thr";
return { wrap_indent => 2 } if $col eq "fou";
return { indent => 1, wrap_indent => 2 } if $col eq "fiv";
return;
}
__DATA__
One Two Three Four Five
--------------------------------------------------------------------
The quick The quick The quick The quick The quick
brown fox brown fox brown fox brown fox brown fox
jumps over jumps jumps over jumps over jumps over
the lazy over the the lazy the lazy the lazy
dog. The lazy dog. dog. The dog. The dog. The
quick The quick quick brown quick brown quick brown
brown fox brown fox fox jumps fox jumps fox jumps
jumps over jumps over the over the over the
the lazy over the lazy dog. lazy dog. lazy dog.
dog. The lazy dog. The quick The quick The quick
quick The quick brown fox brown fox brown fox
brown fox brown fox jumps over jumps over jumps over
jumps over jumps the lazy the lazy the lazy
the lazy over the dog. dog. dog.
dog. lazy dog.
|
