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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
use strict;
use Test::More qw/ tests 1 /;
use XML::Generator;
my $XML = XML::Generator->new(conformance => "strict");
my $result = $XML->record(join "\n", map { my ($k, $v) = @{$_}; $XML->$k($v); }
(
[threat => 1],
[desc => "godzilla"],
[value => "http://y.ahoooooooooo.it/0weifjwef"],
[detected => "2012-10-16 00:00:00"]
));
my $expected_result = '<record><threat>1</threat>
<desc>godzilla</desc>
<value>http://y.ahoooooooooo.it/0weifjwef</value>
<detected>2012-10-16 00:00:00</detected></record>';
ok($result eq $expected_result, 'Got expected results');
exit;
$XML = XML::Generator->new();
$result = $XML->record(
join "\n", map { my ($k, $v) = @{$_}; $XML->$k($v); }
(
[threat => 1],
[desc => "gozdilla"],
[value => "http://y.ahoooooooooo.it/0weifjwef"],
[detected => "2012-10-16 00:00:00"]
));
$expected_result = '<record><threat>1</threat>
<desc>gozdilla</desc>
<value>http://y.ahoooooooooo.it/0weifjwef</value>
<detected>2012-10-16 00:00:00</detected></record>';
ok($result eq $expected_result, 'Got expected results');
my $XML = XML::Generator->new(conformance => "strict", pretty => 1);
$result = $XML->record(
map { my ($k, $v) = @{$_}; $XML->$k($v); }
(
[threat => 1],
[desc => "godzilla"],
[value => "http://y.ahoooooooooo.it/0weifjwef"],
[detected => "2012-10-16 00:00:00"]
));
$expected_result = '<record>
<threat>1</threat>
<desc>godzilla</desc>
<value>http://y.ahoooooooooo.it/0weifjwef</value>
<detected>2012-10-16 00:00:00</detected>
</record>';
ok($result eq $expected_result, 'Got expected results');
$XML = XML::Generator->new(conformance => "strict", pretty => 1);
$result = $XML->record(
map { my ($k, $v) = @{$_}; $XML->$k($v); }
(
[threat => 1],
[desc => "godzilla"],
[value => "http://y.ahoooooooooo.it/0weifjwef"],
[detected => "2012-10-16 00:00:00"]
));
$expected_result = '<record>
<threat>1</threat>
<desc>godzilla</desc>
<value>http://y.ahoooooooooo.it/0weifjwef</value>
<detected>2012-10-16 00:00:00</detected>
</record>';
ok($result eq $expected_result, 'Got expected results');
|
