diff options
Diffstat (limited to 'test/indent')
| -rwxr-xr-x | test/indent/perl.perl | 13 | ||||
| -rw-r--r-- | test/indent/ruby.rb | 3 |
2 files changed, 15 insertions, 1 deletions
diff --git a/test/indent/perl.perl b/test/indent/perl.perl index c7a2fbfb2d2..aca478a1375 100755 --- a/test/indent/perl.perl +++ b/test/indent/perl.perl | |||
| @@ -1,9 +1,20 @@ | |||
| 1 | #!/usr/bin/perl | 1 | #!/usr/bin/perl |
| 2 | # -*- eval: (bug-reference-mode 1) -*- | 2 | # -*- eval: (bug-reference-mode 1) -*- |
| 3 | 3 | ||
| 4 | use v5.14; | ||
| 5 | |||
| 6 | my $str= <<END; | ||
| 7 | Hello | ||
| 8 | END | ||
| 9 | |||
| 10 | my $a = $'; | ||
| 11 | |||
| 12 | my $b=3; | ||
| 13 | |||
| 14 | print $str; | ||
| 4 | if ($c && /====/){xyz;} | 15 | if ($c && /====/){xyz;} |
| 5 | 16 | ||
| 6 | print <<"EOF1" . s/he"llo/th'ere/; | 17 | print << "EOF1" . s/he"llo/th'ere/; |
| 7 | foo | 18 | foo |
| 8 | EOF2 | 19 | EOF2 |
| 9 | bar | 20 | bar |
diff --git a/test/indent/ruby.rb b/test/indent/ruby.rb index fb341ee7ba6..7e778798996 100644 --- a/test/indent/ruby.rb +++ b/test/indent/ruby.rb | |||
| @@ -16,6 +16,9 @@ d = %(hello (nested) world) | |||
| 16 | # Don't propertize percent literals inside strings. | 16 | # Don't propertize percent literals inside strings. |
| 17 | "(%s, %s)" % [123, 456] | 17 | "(%s, %s)" % [123, 456] |
| 18 | 18 | ||
| 19 | "abc/#{def}ghi" | ||
| 20 | "abc\#{def}ghi" | ||
| 21 | |||
| 19 | # Or inside comments. | 22 | # Or inside comments. |
| 20 | x = # "tot %q/to"; = | 23 | x = # "tot %q/to"; = |
| 21 | y = 2 / 3 | 24 | y = 2 / 3 |