view release on metacpan or  search on metacpan

t/rhombus.t  view on Meta::CPAN

    fillup  => '.',
    forward =>   1,
);
my $rhombus4 = rhombus_digit(
    lines   =>  15,
    digit   =>   3,
    fillup  => '*',
    forward =>   0,
);

my @rhombuses = split /###\n/, do { local $/; <DATA> };

is($rhombus0, $rhombuses[0], 'rhombus()');
is($rhombus1, $rhombuses[1], 'rhombus_letter()');
is($rhombus2, $rhombuses[2], 'rhombus_letter()');
is($rhombus3, $rhombuses[3], 'rhombus_digit()');
is($rhombus4, $rhombuses[4], 'rhombus_digit()');

__DATA__
............A............
...........BBB...........
..........CCCCC..........
.........DDDDDDD.........
........EEEEEEEEE........
.......FFFFFFFFFFF.......
......GGGGGGGGGGGGG......
.....HHHHHHHHHHHHHHH.....
....IIIIIIIIIIIIIIIII....
...JJJJJJJJJJJJJJJJJJJ...