]> git.donarmstrong.com Git - perltidy.git/commitdiff
add test case b1178
authorSteve Hancock <perltidy@users.sourceforge.net>
Tue, 20 Jul 2021 02:32:59 +0000 (19:32 -0700)
committerSteve Hancock <perltidy@users.sourceforge.net>
Tue, 20 Jul 2021 02:32:59 +0000 (19:32 -0700)
dev-bin/run_convergence_tests.pl.data

index 988f9b5a0732fa410401e47422d32ede03e30901..a731b1715cbe3d7af8e6b3ec90168efd3305a0cc 100644 (file)
@@ -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