From 19aab6e9bda332197be8609a9a276d457cb0f5b7 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 23 Sep 2024 17:06:09 -0700
Subject: [PATCH] add cases b1489 b1490

---
 dev-bin/run_convergence_tests.pl.data   | 28 +++++++++++++++++++++++++
 dev-bin/run_convergence_tests.pl.expect | 12 +++++++++++
 2 files changed, 40 insertions(+)

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
 {
-- 
2.39.5