Text-Tabulate

 view release on metacpan or  search on metacpan

t/class.t  view on Meta::CPAN

use 5;
use warnings;
use strict;

use Test::More tests => 7;

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

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

# Test the routine.

my $tab;
ok($tab = new Text::Tabulate(), "constructor");

# Error in constructor.
$tab = '';

t/common.t  view on Meta::CPAN

use 5;
use warnings;
use strict;

use Test::More tests => 7;

# 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 $max = 0;
	my $ditto = '"';

t/format.t  view on Meta::CPAN

use 5;
use warnings;
use strict;

use Test::More tests => 12;

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

$/ = '';	# paragraph mode.

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

# Test the routine.

t/tabulate.t  view on Meta::CPAN

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 = " ";