add test cases b1317 b1321

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index e1d6f06f026860c7a30ec1a53c387da451cdbff5..d3273351eeeb9217b5c28955bb8c7c72aa4986e0 100644 (file)
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -9403,6 +9403,64 @@ $garage->add_path(
 --paren-tightness=2
 --paren-vertical-tightness-closing=2
 
+==> b1317.in <==
+# S1
+my %config = (
+  checkincludedtext =>
+    0,
+  includedcutoff => 40,
+  includedratio => 0.6,
+  quotere => '^[>:]',
+  antiquotere =>
+    '^[<]',    # so as not to reject dict(1) output
+);
+
+# S2
+my %config = (
+    checkincludedtext =>
+      0,
+    includedcutoff =>
+      40,
+    includedratio =>
+      0.6,
+    quotere => '^[>:]',
+    antiquotere =>
+      '^[<]',    # so as not to reject dict(1) output
+);
+
+==> b1317.par <==
+--extended-line-up-parentheses
+--maximum-line-length=19
+--variable-maximum-line-length
+
+==> b1321.in <==
+my $parser =
+  Pod::Markdown->new(
+
+       perldoc_fragment_format =>
+       'pod_simple_html',  # CodeRef ( $self, $text )
+       markdown_fragment_format =>
+       'pod_simple_html',  # CodeRef ( $self, $text )
+       include_meta_tags => 0,
+  );
+
+my $parser =
+  Pod::Markdown->new(
+
+                perldoc_fragment_format =>
+                'pod_simple_html', # CodeRef ( $self, $text )
+                markdown_fragment_format =>
+                'pod_simple_html'
+                ,    # CodeRef ( $self, $text )
+                include_meta_tags => 0,
+  );
+
+==> b1321.par <==
+--extended-continuation-indentation
+--extended-line-up-parentheses
+--indent-columns=0
+--maximum-line-length=53
+
 ==> b140.in <==
 $cmd[ $i ]=[
         $s, $e, $cmd, \@hunk, $i ] ;