1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
use strict;
use warnings;
use autodie;
use Readonly;
use Test::More;
use lib qw( . );
use Task1 qw(percentage_of_character);
Readonly::Scalar my $EMPTY_STR => q{};
subtest 'Examples' => sub {
plan tests => 6;
is( percentage_of_character( 'perl', 'e' ), 25, 'Example 1' );
is( percentage_of_character( 'java', 'a' ), 50, 'Example 2' );
is( percentage_of_character( 'python', 'm' ), 0, 'Example 3' );
is( percentage_of_character( 'ada', 'a' ), 67, 'Example 4' );
is( percentage_of_character( 'ballerina', 'l' ), 22, 'Example 5' );
is( percentage_of_character( 'analitik', 'k' ), 13, 'Example 6' );
};
subtest 'Additional tests' => sub {
plan tests => 7;
is( percentage_of_character( 'perl', 'x' ), 0, 'Character not found' );
is( percentage_of_character( 'perl', 2 ), 0, 'Input other than strings' );
is( percentage_of_character( 2, 'e' ), 0, 'Input other than strings' );
is( percentage_of_character( $EMPTY_STR, 'e' ), 0, 'Empty string' );
is( percentage_of_character( 'perl', $EMPTY_STR ), 0, 'Empty character' );
is( percentage_of_character('perl'), 0, 'No character argument' );
is( percentage_of_character(), 0, 'No input' );
};
done_testing();
|
