From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 20 Jul 2021 02:32:59 +0000 (-0700)
Subject: add test case b1178
X-Git-Tag: 20210717.02~82
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=981b2482e8f1ff4b84680c381009b63021bd3ebe;p=perltidy.git

add test case b1178
---

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index 988f9b5a..a731b171 100644
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -6637,6 +6637,36 @@ my $json_response
 --indent-columns=8
 --maximum-line-length=40
 
+==> b1178.in <==
+# S1
+use Modern::Perl;
+use CGI qw ( -utf8 );
+use Koha::FrameworkPlugin;
+my $input = CGI->new;
+my $plugin =
+  Koha::FrameworkPlugin->new( {
+          name => scalar $input->param("plugin_name"),
+  } );
+
+# S2
+use Modern::Perl;
+use CGI qw ( -utf8 );
+use Koha::FrameworkPlugin;
+my $input  = CGI->new;
+my $plugin = Koha::FrameworkPlugin->new( {
+
+          name => scalar $input->param("plugin_name"),
+} );
+
+
+==> b1178.par <==
+--ignore-old-breakpoints
+--indent-columns=10
+--keep-old-blank-lines=0
+--keyword-group-blanks-after=2
+--maximum-line-length=55
+--weld-nested-containers
+
 ==> b120.in <==
 # Same as bug96
 # State 1