From dee1d7fd55ff0d84e7b865c5668c7bfd2ede7697 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 5 Nov 2021 07:12:52 -0700
Subject: [PATCH] new sub set_lp_indentation fixes b1235 b1237

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

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index db1af0af..cb9a057d 100644
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -7880,6 +7880,42 @@ is(
 --maximum-line-length=12
 --variable-maximum-line-length
 
+==> b1235.in <==
+# S1
+  my $oldage
+          = (
+        sort { $a <=> $b }
+                map { -M }
+                @files )[-1];
+  my $depage
+          = (
+   sort { $a <=> $b }
+   map  { -M } @deps )
+          [0];
+
+# S2
+  my $oldage = (
+   sort {
+    $a <=> $b
+   } map { -M }
+           @files
+  )[-1];
+  my $depage = (
+   sort {
+    $a <=> $b
+   } map { -M }
+           @deps
+  )[0];
+
+==> b1235.par <==
+--break-before-all-operators
+--continuation-indentation=8
+--ignore-old-breakpoints
+--indent-columns=1
+--line-up-parentheses
+--maximum-line-length=26
+--variable-maximum-line-length
+
 ==> b1236.in <==
 # Added level test when applying kpit
 # S1
@@ -7910,6 +7946,29 @@ is(
 --space-keyword-paren
 --variable-maximum-line-length
 
+==> b1237.in <==
+# S1
+ my $h = {
+  map {
+   $_ => uc $_
+  } 'a' .. 'z'
+ };
+
+# S2
+ my $h
+         = {
+       map {$_ => uc $_}
+               'a' .. 'z' };
+
+==> b1237.par <==
+--block-brace-tightness=2
+--break-before-all-operators
+--continuation-indentation=8
+--indent-columns=1
+--line-up-parentheses
+--maximum-line-length=26
+--variable-maximum-line-length
+
 ==> b1238.in <==
 # S1
   local $Other::{ ${ \
-- 
2.39.5