File: nested.t

package info (click to toggle)
libpod-elemental-perl 0.103006-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 396 kB
  • sloc: perl: 1,471; makefile: 7
file content (44 lines) | stat: -rw-r--r-- 854 bytes parent folder | download | duplicates (6)
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
#!perl
use strict;
use warnings;

use Test::More tests => 1;

use Pod::Elemental::Element::Pod5::Command;
use Pod::Elemental::Element::Pod5::Ordinary;
use Pod::Elemental::Element::Nested;

my $nested = Pod::Elemental::Element::Nested->new({
  command  => 'head1',
  content  => "Header 1.\n",
  children => [
    Pod::Elemental::Element::Pod5::Command->new({
      command => 'head2',
      content => "Header 2.1.\n",
    }),
    Pod::Elemental::Element::Pod5::Ordinary->new({
      content => "Ordinary.\n",
    }),
    Pod::Elemental::Element::Pod5::Command->new({
      command => 'head2',
      content => "Header 2.2.\n",
    }),
  ],
});

my $pod_expected = <<'END_FOR';
=head1 Header 1.

=head2 Header 2.1.

Ordinary.

=head2 Header 2.2.

END_FOR

is(
  $nested->as_pod_string,
  $pod_expected,
  "nested element pod-stringifies as expected",
);