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
|
#############################################
# Tests for Sysadm::Install/s fs_read/write_open
#############################################
use Test::More tests => 7;
use Sysadm::Install qw(:all);
is(snip("abc", 5),
"abc", "snip full len");
is(snip("abcdefghijklmn", 11),
"(14)[ab[snip=10]mn]", "snip minlen");
is(snip("abcdefghijklmn", 12),
"(14)[ab[snip=10]mn]", "snip minlen");
is(snip("a\tcdefghijklm\n", 12),
"(14)[a.[snip=10]m.]", "snip special char");
is(snip("a\tcdefghijklm\n", 14),
"a.cdefghijklm.", "exact len match");
is(snip("abc", 5, 1),
"abc", "snip full len and keep flag");
is(snip("a\tc", 5),
"a.c", "snip full len with unprintable chars");
|
