/
pm.t
32 lines (29 loc) · 823 Bytes
/
pm.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
use v6.c;
use Test;
plan 12;
use Acme::Cow::Frogs;
sub compare_bubbles($a,$b) {
my @a = split("\n", $a);
my @b = split("\n", $b);
is +@a, +@b;
@a>>.chomp;
@b>>.chomp;
for ^@a -> $i {
is @a[$i], @b[$i];
}
}
my $x = Acme::Cow::Frogs.new;
$x.text('Hi.');
compare_bubbles($x.as_string, Q:to/EOC/);
_____
< Hi. >
-----
/
/
oO)-. .-(Oo
/__ _\ /_ __\
\ \( | ()~() | )/ /
\__|\ | (-___-) | /|__/
' '--' ==`-'== '--' '
EOC
$x.print;