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
|
#!/usr/bin/perl -w
use Test::More tests => 13;
use Compress::Zlib;
BEGIN {
chdir 't' if -d 't';
use lib '../blib/lib', 'lib/', '..';
}
my $mod = "Parse::DebControl";
#Object initialization - 1 test
use_ok($mod);
ok($pdc = new Parse::DebControl(), "Parser object creation works fine");
#tryGzip - 6 tests
$pdc = new Parse::DebControl(1);
my $string = "Key1: value1\nKey2: value2\nKey3: value3";
my $gzdata = Compress::Zlib::memGzip($string);
my $gzcopy = $gzdata;
ok(Compress::Zlib::memGunzip($gzcopy) eq $string, "memGunzip is sane");
ok($data = $pdc->parse_mem($gzdata, {"tryGzip" => 1}), "Parse with gzip works on a gzipped stanza");
ok(@$data == 1, "...and there is one stanzaa");
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");
#Without gzipped data, emphasis on "try"
ok($data = $pdc->parse_mem($string,), "Parsing the string is sane");
ok($data = $pdc->parse_mem($string, {"tryGzip" => 1}), "Parse with gzip works on a ungzipped stanza");
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");
|
