From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 24 Sep 2024 00:06:09 +0000 (-0700)
Subject: add cases b1489 b1490
X-Git-Tag: 20240903.03~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=19aab6e9bda332197be8609a9a276d457cb0f5b7;p=perltidy.git

add cases b1489 b1490
---

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index e65f53da..b5150314 100644
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -12295,6 +12295,34 @@ use vars qw($VERSION @ISA
 --extended-line-up-parentheses
 --qw-as-function
 
+==> b1489.in <==
+    $menuitem_dict->signal_connect (
+        'activate' => sub { create_dict_window () }, );
+    $menuitem_dict->signal_connect ( 'activate' => sub { create_dict_window () }
+    );
+
+==> b1489.par <==
+--space-function-paren
+--add-trailing-commas
+--want-trailing-commas='h'
+--delete-trailing-commas
+
+==> b1490.in <==
+$e_str->bind (
+'<return>' => sub {$e_hnr->tabfocus if $e_hnr->can ( 'tabfocus' );}, );
+$e_str->bind ( '<return>' => sub {$e_hnr->tabfocus if $e_hnr->can ( 'tabfocus' );}
+);
+
+==> b1490.par <==
+--maximum-line-length=82
+--indent-columns=0
+--space-function-paren
+--paren-tightness=0
+--add-trailing-commas
+--want-trailing-commas='h'
+--delete-trailing-commas
+--block-brace-tightness=2
+
 ==> b156.in <==
 # State 1
 {
diff --git a/dev-bin/run_convergence_tests.pl.expect b/dev-bin/run_convergence_tests.pl.expect
index 34e70625..1986d7a7 100644
--- a/dev-bin/run_convergence_tests.pl.expect
+++ b/dev-bin/run_convergence_tests.pl.expect
@@ -8321,6 +8321,18 @@ use vars qw($VERSION @ISA
 use vars qw($VERSION @ISA
             @EXPORT_OK %EXPORT_TAGS);
 
+==> b1489 <==
+    $menuitem_dict->signal_connect ( 'activate' => sub { create_dict_window () }
+    );
+    $menuitem_dict->signal_connect ( 'activate' => sub { create_dict_window () }
+    );
+
+==> b1490 <==
+$e_str->bind ( '<return>' => sub {$e_hnr->tabfocus if $e_hnr->can ( 'tabfocus' );}
+);
+$e_str->bind ( '<return>' => sub {$e_hnr->tabfocus if $e_hnr->can ( 'tabfocus' );}
+);
+
 ==> b156 <==
 # State 1
 {