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
|
# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
#
#===============================================================================
# FILE: CommonBaseString.t
# DESCRIPTION: Unit test for CommonBaseString
#===============================================================================
use strict;
use warnings;
use v5.30;
use Test2::V0;
use lib "lib";
use CommonBaseString qw/ commonPrefix /;
is( commonPrefix("abc", "def"), [ ], "commonPrefix length 0" );
is( commonPrefix("aaa", "abc"), [ "a" ], "commonPrefix length 1" );
is( commonPrefix("aaa", "aac"), [ "a", "aa" ], "commonPrefix length 2" );
is( commonPrefix("abab", "abababab"), [ "a", "ab", "aba", "abab" ], "commonPrefix 2 possibilities" );
is( CommonBaseString->new("abcdabcd", "abcdabcdabcdabcd")->run, [ "abcd", "abcdabcd" ], "Example 1");
is( CommonBaseString->new("aaa", "a")->run, [ "a" ], "Example 2");
done_testing();
|
