normalize the tests and the variable names

Author: book

t/porting/merge-delta.t

@@ -17,7 +17,7 @@ my %pod = do {
     my ( undef, @kv ) = split /^# (.*)\n/m, <DATA>;
     @kv;
 };
-$pod{master} = slurp( 'Porting/perldelta_template.pod' );
+$pod{master} = slurp('Porting/perldelta_template.pod');
 
 # tree_for:
 # just a single test: we're not testing Pod::Simple::SimpleTree
@@ -35,20 +35,25 @@ is(
 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_info
+my ( $master, $delta, $title );
+
+# merge_into: skips (e.g. NAME)
+$title  = 'NAME';
+$master = tree_for( $pod{master} );
+my $master_pod = as_pod( $pod{master} );    # compute it before munging $master
+merge_into( $master, tree_for( $pod{$title} ), $title );
+is( as_pod($master), $master_pod, 'merge_into( skip )' );
 
 # 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' );
+$title  = 'Security';
+$master = tree_for( $pod{master} );
+$delta  = tree_for( $pod{$title} );
+merge_into( $master, $delta, $title );
 is(
-    head2_slice( $security_tree, 'Security' ),
-    head2_slice( $master_tree,   'Security' ),
-    'merge_into Security'
+    head2_slice( $master, $title ),
+    head2_slice( $delta,  $title ),
+    'merge_into( head2 )'
 );
 
 done_testing;