From 69424359b1616cb87bffd84d78dff87cac766ff6 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 18 Mar 2022 06:41:30 -0700
Subject: [PATCH] add test cases b1317 b1321

---
 dev-bin/run_convergence_tests.pl.data | 58 +++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index e1d6f06f..d3273351 100644
--- 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 ] ;
-- 
2.39.5