initial round of tests for Porting/merge-deltas.pl

Co-authored-by: Philippe Bruhat (BooK) <[email protected]>

Author: ericherman

t/porting/merge-delta.t

@@ -0,0 +1,76 @@
+use v5.36;
+use Test2::V0;
+
+# load the script
+do('./Porting/merge-deltas.pl') or die $@ || $!;
+
+# helper function
+sub head2_slice ( $tree, $title ) {
+    my $begin = next_header_pos( $tree, 2, header_pos( $tree, 1, $title ) );
+    my $end   = next_header_pos( $tree, 1, $begin ) - 1;
+    return [ $tree->@[ $begin .. $end ] ];
+}
+
+# test data
+my %pod = do {
+    local $/;
+    my ( undef, @kv ) = split /^# (.*)\n/m, <DATA>;
+    @kv;
+};
+$pod{master} = slurp( 'Porting/perldelta_template.pod' );
+
+# tree_for:
+# just a single test: we're not testing Pod::Simple::SimpleTree
+is(
+    tree_for( $pod{'NAME section'} ),
+    [
+        Document => { start_line => 1 },
+        [ head1 => { start_line => 1 }, 'NAME' ],
+        [ Para  => { start_line => 3 }, 'some text' ]
+    ],
+    'tree_for on NAME section'
+);
+
+# as_pod: round trips
+is( as_pod( tree_for( $pod{$_} ) ), $pod{$_}, "$_ POD round trips" )
+  for sort keys %pod;
+
+# merge_into: skips NAME section
+my $master_tree = tree_for( $pod{master} );
+my $master_pod  = as_pod( $pod{master} );
+merge_into( $master_tree, tree_for( $pod{'NAME section'} ), 'NAME section' );
+is( as_pod($master_tree), $master_pod, 'merge_into( master, NAME section )' );
+
+# merge_into: head2 section (e.g. Security)
+$master_tree = tree_for( $pod{master} );
+my $security_tree = tree_for( $pod{Security} );
+merge_into( $master_tree, $security_tree, 'Security' );
+is(
+    head2_slice( $security_tree, 'Security' ),
+    head2_slice( $master_tree,   'Security' ),
+    'merge_into Security'
+);
+
+done_testing;
+
+__DATA__
+# NAME section
+=head1 NAME
+
+some text
+
+=cut
+# Security
+=head1 Security
+
+Some security blurb.
+
+=head2 [CVE-1999-12345] Heap buffer overflow vulnerability
+
+A heap buffer overflow vulnerability was discovered in Perl.
+
+=head1 Acknowledgements
+
+ACK
+
+=cut