From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

TIMLEGGE / XML-Generator-1.13 / t / Issue-80273.t 

            

              
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');