view release on metacpan or  search on metacpan

t/tabulate.t  view on Meta::CPAN

# -*- perl -*-

# Test the tabulate fuction.

use 5;
use warnings;
use strict;

use Test::More tests => 12;

# Tests
BEGIN { use_ok('Text::Tabulate'); }

# Load the data.
$/ = '';	# paragraph mode.
my @data = split(/\n/, <DATA>);
ok($#data, 'data loaded');

# Test the routine.

while ($_ = <DATA>)
{
	# Initialisation.
	my $tab = "\t";
	my $pad = " ";
	my $gutter = ' ';
	my $left = '';
	my $right = '';
	my $adjust = '';
	my $top = '';
	my $bottom = '';

	# Load the test
	my ($test, @test) = split(/\n/, $_);
	eval $test;

	#print "$test\n", join("\n", @test), "\n\n";
	#print "max=$max\n";

	# run the test.
	my @result;
	eval {
		@result = tabulate({
			tab=>$tab,
			pad=>$pad,
			gutter=>$gutter,
			left=>$left,
			right=>$right,
			adjust => $adjust,
			top=>$top,
			bottom=>$bottom,
		}, @data);
	};

	if ($@) { warn $@; }
	ok(@result, 'process table');

	# Check.
	is_deeply(\@result, \@test, $test);

	print join("\n", @result), "\n\n";
}

exit;

__DATA__

XXXX	XXXXX	XXXX	XXXX
XXXXXXXX	XX	XXXXXXXXXXXX	XXXXXXXXXXXXXXXX
XXXXXXXX	XX	XXXXXXXXXXXX	XXXXXXXXXXXXXXXXXXXX
XXXXXXXX	XX	XXXXXXXXXXXX	XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXX	XX	XXXXXXXXXXXX	XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXX	XX	XXXXXXXXXXXX	XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXX	X	X	X	XXXX	XXXXX	XXXXXXXXX
XXX	X	X	X	XXX	XXXX	XXXXXXXXXXXXX