Commit | Line | Data |
---|---|---|
69941ee3 | 1 | use strict; |
2 | use warnings; | |
3 | use Test::More qw(no_plan); | |
4 | ||
5 | BEGIN { | |
6 | use_ok 'IronMunger::Calculate', 'level_for_post_count'; | |
7 | } | |
8 | ||
9 | my @spec = qw( | |
10 | 0 paper | |
11 | 3 paper | |
12 | 4 stone | |
13 | 11 stone | |
14 | 12 bronze | |
15 | 35 bronze | |
16 | 36 iron | |
17 | 50 iron | |
18 | ); | |
19 | ||
20 | while (@spec > 2) { | |
21 | my ($count, $level) = (shift(@spec),shift(@spec)); | |
22 | is(level_for_post_count($count), $level, "${count} posts means ${level} man"); | |
23 | } |