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
33
34
35
36
37
|
use 5.014; use warnings;
use Test::More;
plan tests => 22;
use Perl6::Form;
my $num = -13141.143131;
is form("{(>,{12.0},>>>)}", $num), " (1,3141)\n";
is form("{(>,{12},>>>)}", $num), " (1,3141)\n";
is form("{>{6.1}>,>>>,>>>.<}", $num), "####.#\n";
is form("{>{7.1}>,>>>,>>>.<}", $num), "#####.#\n";
is form("{>{8.1}>,>>>,>>>.<}", $num), "######.#\n";
is form("{>{9.1}>,>>>,>>>.<}", $num), "-13,141.1\n";
is form("{>{10.1}>,>>>,>>>.<}", $num), " -13,141.1\n";
is form("{>{11.1}>,>>>,>>>.<}", $num), " -13,141.1\n";
is form("{>{12.1}>,>>>,>>>.<}", $num), " -13,141.1\n";
is form("{>{6}>,>>>,>>>}", $num), "######\n";
is form("{>{7}>,>>>,>>>}", $num), "-13,141\n";
is form("{>{8}>,>>>,>>>}", $num), " -13,141\n";
is form("{>{9}>,>>>,>>>}", $num), " -13,141\n";
is form("{>{10}>,>>>,>>>}", $num), " -13,141\n";
is form("{>{11}>,>>>,>>>}", $num), " -13,141\n";
is form("{>{12}>,>>>,>>>}", $num), " -13,141\n";
is form("{,>>>,>>>}", $num), " -13,141\n";
is form("{>>,>>>,>>>}", $num), " -13,141\n";
is form("{>>>,>>>,>>>}", $num), " -13,141\n";
is form("{-,>>>,>>>}", $num), " -13,141\n";
is form("{->,>>>,>>>}", $num), " -13,141\n";
is form("{->>,>>>,>>>}", $num), " -13,141\n";
|
