1 # Created with: ./make_t.pl
9 #6 break_old_methods.break_old_methods
10 #7 break_old_methods.def
14 # To locate test #13 you can search for its name or the string '#13'
26 ###########################################
27 # BEGIN SECTION 1: Parameter combinations #
28 ###########################################
31 'break_old_methods' => "--break-at-old-method-breakpoints",
38 ############################
39 # BEGIN SECTION 2: Sources #
40 ############################
43 'bom1' => <<'----------',
44 # keep cuddled call chain with -bom
45 return Mojo::Promise->resolve(
50 return $c->render(text => '', status => $code);
53 return $c->render(json => {}, status => 400);
57 'break_old_methods' => <<'----------',
59 ->related_resultset('CDs')
60 ->related_resultset('Tracks')
62 'track.id' => { -ident => 'none_search.id' },
67 'gnu5' => <<'----------',
68 # side comments limit gnu type formatting with l=80; note extra comma
70 "Lowest code point requiring 13 bytes to represent", # 2**36
71 "\xff\x80\x80\x80\x80\x80\x81\x80\x80\x80\x80\x80\x80",
72 ($::is64bit) ? 0x1000000000 : -1, # overflows on 32bit
77 'olbs' => <<'----------',
78 for $x ( 1, 2 ) { s/(.*)/+$1/ }
79 for $x ( 1, 2 ) { s/(.*)/+$1/ } # side comment
80 if ( $editlblk eq 1 ) { $editlblk = "on"; $editlblkchecked = "checked" }
81 for $x ( 1, 2 ) { s/(.*)/+$1/; }
82 for $x ( 1, 2 ) { s/(.*)/+$1/; } # side comment
83 if ( $editlblk eq 1 ) { $editlblk = "on"; $editlblkchecked = "checked"; }
86 'wngnu1' => <<'----------',
88 foreach my $parameter (
93 maximum_violations_per_document
99 $config->get($parameter),
101 qq<"$parameter" is not defined via get() for $policy_short_name.>,
107 ####################################
108 # BEGIN SECTION 3: Expected output #
109 ####################################
115 expect => <<'#1...........',
116 # side comments limit gnu type formatting with l=80; note extra comma
118 "Lowest code point requiring 13 bytes to represent", # 2**36
119 "\xff\x80\x80\x80\x80\x80\x81\x80\x80\x80\x80\x80\x80",
120 ($::is64bit) ? 0x1000000000 : -1, # overflows on 32bit
129 expect => <<'#2...........',
131 foreach my $parameter (
136 maximum_violations_per_document
142 $config->get($parameter),
144 qq<"$parameter" is not defined via get() for $policy_short_name.>,
153 expect => <<'#3...........',
154 for $x ( 1, 2 ) { s/(.*)/+$1/ }
155 for $x ( 1, 2 ) { s/(.*)/+$1/ } # side comment
156 if ( $editlblk eq 1 ) { $editlblk = "on"; $editlblkchecked = "checked" }
157 for $x ( 1, 2 ) { s/(.*)/+$1/; }
158 for $x ( 1, 2 ) { s/(.*)/+$1/; } # side comment
159 if ( $editlblk eq 1 ) { $editlblk = "on"; $editlblkchecked = "checked"; }
166 expect => <<'#4...........',
167 for $x ( 1, 2 ) { s/(.*)/+$1/ }
168 for $x ( 1, 2 ) { s/(.*)/+$1/ } # side comment
169 if ( $editlblk eq 1 ) { $editlblk = "on"; $editlblkchecked = "checked" }
170 for $x ( 1, 2 ) { s/(.*)/+$1/ }
171 for $x ( 1, 2 ) { s/(.*)/+$1/ } # side comment
172 if ( $editlblk eq 1 ) { $editlblk = "on"; $editlblkchecked = "checked"; }
179 expect => <<'#5...........',
180 for $x ( 1, 2 ) { s/(.*)/+$1/; }
181 for $x ( 1, 2 ) { s/(.*)/+$1/; } # side comment
182 if ( $editlblk eq 1 ) { $editlblk = "on"; $editlblkchecked = "checked"; }
183 for $x ( 1, 2 ) { s/(.*)/+$1/; }
184 for $x ( 1, 2 ) { s/(.*)/+$1/; } # side comment
185 if ( $editlblk eq 1 ) { $editlblk = "on"; $editlblkchecked = "checked"; }
189 'break_old_methods.break_old_methods' => {
190 source => "break_old_methods",
191 params => "break_old_methods",
192 expect => <<'#6...........',
194 ->related_resultset('CDs')
195 ->related_resultset('Tracks')
198 'track.id' => { -ident => 'none_search.id' },
204 'break_old_methods.def' => {
205 source => "break_old_methods",
207 expect => <<'#7...........',
208 my $q = $rs->related_resultset('CDs')->related_resultset('Tracks')->search(
210 'track.id' => { -ident => 'none_search.id' },
219 expect => <<'#8...........',
220 # keep cuddled call chain with -bom
221 return Mojo::Promise->resolve(
225 )->then( sub ($code) {
226 return $c->render( text => '', status => $code );
230 return $c->render( json => {}, status => 400 );
238 expect => <<'#9...........',
239 # keep cuddled call chain with -bom
240 return Mojo::Promise->resolve($query_params)->then(&_reveal_event)->then(
242 return $c->render( text => '', status => $code );
247 return $c->render( json => {}, status => 400 );
254 my $ntests = 0 + keys %{$rtests};
255 plan tests => $ntests;
262 foreach my $key ( sort keys %{$rtests} ) {
264 my $sname = $rtests->{$key}->{source};
265 my $expect = $rtests->{$key}->{expect};
266 my $pname = $rtests->{$key}->{params};
267 my $source = $rsources->{$sname};
268 my $params = defined($pname) ? $rparams->{$pname} : "";
270 my $errorfile_string;
271 my $err = Perl::Tidy::perltidy(
273 destination => \$output,
274 perltidyrc => \$params,
275 argv => '', # for safety; hide any ARGV from perltidy
276 stderr => \$stderr_string,
277 errorfile => \$errorfile_string, # not used when -se flag is set
279 if ( $err || $stderr_string || $errorfile_string ) {
282 "This error received calling Perl::Tidy with '$sname' + '$pname'\n";
285 if ($stderr_string) {
286 print STDERR "---------------------\n";
287 print STDERR "<<STDERR>>\n$stderr_string\n";
288 print STDERR "---------------------\n";
290 "This error received calling Perl::Tidy with '$sname' + '$pname'\n";
291 ok( !$stderr_string );
293 if ($errorfile_string) {
294 print STDERR "---------------------\n";
295 print STDERR "<<.ERR file>>\n$errorfile_string\n";
296 print STDERR "---------------------\n";
298 "This error received calling Perl::Tidy with '$sname' + '$pname'\n";
299 ok( !$errorfile_string );
303 ok( $output, $expect );