view release on metacpan or  search on metacpan

t/CommonStuff.pm  view on Meta::CPAN

use constant STANDARD_DIM => ([    1,    1],
                              [    1,    2],
                              [    2,    1],
                              [    2,    2],
                              [    1, 1_000],
                              [1_000,     1],
                              [   25,    50]);
                              
my $Tester = Test::Builder->new();

sub qt($) {
    $_ = shift();
    s/\t/\\t\t/g;
    s/\n/\\n\n/g;
    return $_;
}

sub _named_rows($) {
    my $size = shift;
    return map "Row $_", (0 .. $size-1);
}