[engit/Iron-Munger.git] / t / calculate_level.t

use strict;
use warnings;
use Test::More qw(no_plan);

BEGIN {
  use_ok 'IronMunger::Calculate', 'level_for_post_count';
}

my @spec = qw(
  0 paper
  3 paper
  4 stone
  11 stone
  12 bronze
  35 bronze
  36 iron
  50 iron
);

while (@spec > 2) {
  my ($count, $level) = (shift(@spec),shift(@spec));
  is(level_for_post_count($count), $level, "${count} posts means ${level} man");
}
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	}