#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 8;
use MathModule;

my %testhash = (
  # Teste ungueltigen negativen Wert
  -2 => -1,
  -1 => -1, 
  # Teste Grenzfall 0
  0 => 1,
  # Teste Grenzfall 1
  1 => 1,
  2 => 2, 
  3 => 6, 
  # Teste Grenzfall 16
  16 => 20922789888000,
  # Teste ungueltigen zu grossen Wert
  17 => -1
);

foreach(sort keys %testhash){
    is(MathModule::faculty($_), $testhash{$_}, "faculty of: ".$_);
}