view release on metacpan or  search on metacpan

t/rhombus.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Acme::Text::Rhombus ':all';
use Test::More tests => 5;

my $rhombus0 = rhombus();

my $rhombus1 = rhombus_letter(
    lines   =>      31,
    letter  =>     'c',
    case    => 'upper',
    fillup  =>     '.',
    forward =>       1,
);
my $rhombus2 = rhombus_letter(
    lines   =>      15,
    letter  =>     'c',
    case    => 'lower',
    fillup  =>     '*',
    forward =>       0,
);
my $rhombus3 = rhombus_digit(
    lines   =>  31,
    digit   =>   3,
    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...
..KKKKKKKKKKKKKKKKKKKKK..
.LLLLLLLLLLLLLLLLLLLLLLL.
MMMMMMMMMMMMMMMMMMMMMMMMM
.NNNNNNNNNNNNNNNNNNNNNNN.
..OOOOOOOOOOOOOOOOOOOOO..
...PPPPPPPPPPPPPPPPPPP...
....QQQQQQQQQQQQQQQQQ....
.....RRRRRRRRRRRRRRR.....
......SSSSSSSSSSSSS......
.......TTTTTTTTTTT.......
........UUUUUUUUU........
.........VVVVVVV.........
..........WWWWW..........
...........XXX...........
............Y............
###
...............C...............
..............DDD..............
.............EEEEE.............
............FFFFFFF............
...........GGGGGGGGG...........
..........HHHHHHHHHHH..........
.........IIIIIIIIIIIII.........
........JJJJJJJJJJJJJJJ........
.......KKKKKKKKKKKKKKKKK.......
......LLLLLLLLLLLLLLLLLLL......
.....MMMMMMMMMMMMMMMMMMMMM.....
....NNNNNNNNNNNNNNNNNNNNNNN....
...OOOOOOOOOOOOOOOOOOOOOOOOO...
..PPPPPPPPPPPPPPPPPPPPPPPPPPP..
.QQQQQQQQQQQQQQQQQQQQQQQQQQQQQ.
RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR
.SSSSSSSSSSSSSSSSSSSSSSSSSSSSS.
..TTTTTTTTTTTTTTTTTTTTTTTTTTT..
...UUUUUUUUUUUUUUUUUUUUUUUUU...
....VVVVVVVVVVVVVVVVVVVVVVV....
.....WWWWWWWWWWWWWWWWWWWWW.....
......XXXXXXXXXXXXXXXXXXX......
.......YYYYYYYYYYYYYYYYY.......
........ZZZZZZZZZZZZZZZ........
.........AAAAAAAAAAAAA.........
..........BBBBBBBBBBB..........
...........CCCCCCCCC...........
............DDDDDDD............
.............EEEEE.............
..............FFF..............
...............G...............
###
*******c*******
******bbb******