add cases b1489 b1490

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index e65f53daa9977c33f23074da3b775bedb9ee75cd..b51503147a2c7581faafab5242d7521cc2d3044a 100644 (file)
--- 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 34e70625fb2dac306a8cfab2394da696648e7c99..1986d7a7837037cc76f243cacea3c3fb074b2d4f 100644 (file)
--- 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
 {