use Test::More tests => 11;
BEGIN { use_ok('Mathe') };
use Mathe qw(ggT factor);

ok (ggT(0,0) == 0, "ggT 0 0");
ok (ggT(1,1) == 1, "ggT 1 1");
ok (ggT(13,27) == 1, "ggT 13 27");
ok (ggT(100,120) == 20, "ggT 100 120");
ok (ggT(120,100) == 20, "ggT 120 100");
ok (join (' ', factor(0)) eq '0', "factor(0)");
ok (join (' ', factor(1)) eq '1', "factor(1)");
ok (join (' ', factor(8)) eq '2 2 2', "factor(8)");
ok (join (' ', factor(214711756)) eq '2 2 7 331 23167', "factor(214711756)");
ok (join (' ', factor(2147117569)) eq '46337 46337', "factor(2147117569)");