challenge-072/lance-wicks/perl/t/00-basic.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

use Test2::V0 -target => 'Trailing::Zeroes';

subtest 'Just testing the count of trailing zeroes' => sub {
   is $CLASS->count(3628800), 2, 'Should calculate 3628800 has 2 trailing zeroes';
   is $CLASS->count(5040),    1, 'Should calculate 5040 has 1 trailing zeroes';
   is $CLASS->count(24),      0, 'Should calculate 24 has 1 trailing zero';
};

subtest 'Calculate factorial' => sub {
    my $input = 10;
    my $expected = 3628800;
    is $CLASS->factorial($input), $expected, "factorial of $input should be $expected";

    $input = 7;
    $expected = 5040;
    is $CLASS->factorial($input), $expected, "factorial of $input should be $expected";

    $input = 4;
    $expected = 24;
    is $CLASS->factorial($input), $expected, "factorial of $input should be $expected";
};


done_testing;