#! perl

use strict;
use warnings;
use Test::More qw(no_plan);

use Data::Report;

my $rep = Data::Report::->create(type => "text");

$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);

__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 over   jumps over    jumps over     jumps over the
the lazy    the lazy     the lazy      the lazy dog.  lazy dog. The
dog. The    dog. The     dog. The      The quick      quick brown
quick       quick brown  quick brown   brown fox      fox jumps over
brown fox   fox jumps    fox jumps     jumps over     the lazy dog.
jumps over  over the     over the      the lazy dog.  The quick
the lazy    lazy dog.    lazy dog.     The quick      brown fox
dog. The    The quick    The quick     brown fox      jumps over the
quick       brown fox    brown fox     jumps over     lazy dog.
brown fox   jumps over   jumps over    the lazy dog.
jumps over  the lazy     the lazy
the lazy    dog.         dog.
dog.