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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#!/usr/bin/perl -w
use Test::More tests => 24;
BEGIN {
chdir 't' if -d 't';
use lib '../blib/lib', 'lib/', '..';
}
my $mod = "Parse::DebControl";
#Object initialization - 2 tests
use_ok($mod);
ok($pdc = new Parse::DebControl(), "Parser object creation works fine");
#stripComments - 6 tests
$pdc = new Parse::DebControl(1);
ok($data = $pdc->parse_mem("Key1: value1\n\#This is a comment\nKey2: value2#another comment\nKey3: value3", {stripComments => 1}), "Comments parse out correctly");
ok(@$data == 1, "...and there are two stanzas");
ok(keys %{$data->[0]} == 3, "...and the first stanza is the right size");
ok($data->[0]->{Key1} eq "value1", "...and the first value is correct");
ok($data->[0]->{Key2} eq "value2", "...and the second value is correct");
ok($data->[0]->{Key3} eq "value3", "...and the third value is correct");
#Comment char as last character - 2 tests
ok($data = $pdc->parse_mem("Key1: value\#", {stripComments => 1}), "Parse with pound as last character");
ok($data->[0]->{Key1} eq "value", "...data is correct");
#Literal pound as last character - 2 tests
ok($data = $pdc->parse_mem("Key1: value\#\#", {stripComments => 1}), "Parse with literal pound as last character");
ok($data->[0]->{Key1} eq "value\#", "...data is correct");
#Comment char as first character - 3 tests
ok($data = $pdc->parse_mem("Key1: value\n\#oo: bar", {stripComments => 1}), "Parse with comment as first character");
ok($data->[0]->{Key1} eq "value", "...data is correct");
ok(keys %{$data->[0]} == 1, "...data is right size");
#Literal pound as first character - 3 tests
ok($data = $pdc->parse_mem("Key1: value\n\#\#oo: bar", {stripComments => 1}), "Parse with literal pound as first character");
ok($data->[0]->{Key1} eq "value", "...data is correct");
ok($data->[0]->{"\#oo"} eq "bar", "...pound-key character is correct");
#Line skip - 3 tests
ok($data = $pdc->parse_mem("Key1: value\n#hello there#\nKey2: value2", {stripComments => 1}), "Parse with line skip");
ok($data->[0]->{Key1} eq "value", "...first value is correct");
ok($data->[0]->{Key2} eq "value2", "...second value is correct");
#Line skip; leading whitespace - 3 tests
ok($data = $pdc->parse_mem("Key1: value\n #hello there#\nKey2: value2", {stripComments => 1}), "Parse with line skip and leading space");
ok($data->[0]->{Key1} eq "value", "...first value is correct");
ok($data->[0]->{Key2} eq "value2", "...second value is correct");
|
