Help language development. Donate to The Perl Foundation

Pretty::Table cpan:UZLUISF last updated on 2020-02-08

t/pretty-table-basic.t
use Test;
use Pretty::Table;
use Pretty::Table::Constrains;

plan 5;

my Pretty::Table $original-table .= new:
    field-names => ["City name", "Area", "Population", "Annual Rainfall"],
;

given $original-table {
    .add-row(["Adelaide", 1295, 1158259, 600.5]);
    .add-row(["Brisbane", 5905, 1857594, 1146.4]);
    .add-row(["Darwin", 112, 120900, 1714.7]);
    .add-row(["Hobart", 1357, 205556, 619.5]);
    .add-row(["Sydney", 2058, 4336374, 1214.8]);
    .add-row(["Melbourne", 1566, 3806092, 646.9]);
    .add-row(["Perth", 5386, 1554769, 869.4]);
}

sub basic-setup( $table ) {
    my ($string, @lines, @lengths);
    $string = $table.get-string;
    @lines = $string.split("\n", :skip-empty);
    ok "" ∉ @lines, 'No table should ever have blank lines in it.';

    $string = $table.get-string;
    @lines = $string.split("\n", :skip-empty);
    @lengths = @lines.map(*.chars);
    ok @lengths.Set.elems == 1, 'All lines in a table should be of the same length.';
}

subtest "Basic setup with title", {
    plan 2;
    my $table = $original-table.clone;
    $table.title('My Table');
    basic-setup($table);
}

subtest "Basic setup with border = False", {
    plan 2;
    my $table = $original-table.clone;
    $table.border(False);
    basic-setup($table);
}

subtest "Basic setup with header = False", {
    plan 2;
    my $table = $original-table.clone;
    $table.header(False);
    basic-setup($table);
}

subtest "Basic setup with hrules = NONE", {
    plan 2;
    my $table = $original-table;
    $table.clone.hrules(NONE);
    basic-setup($table);
}

subtest "Basic setup with hrules = NONE", {
    plan 2;
    my $table = $original-table.clone;
    $table.hrules(ALL);
    basic-setup($table);
}