]> git.donarmstrong.com Git - perltidy.git/commitdiff
add tests for -fs -fsb -fse -trp, update some docs
authorSteve Hancock <perltidy@users.sourceforge.net>
Sun, 26 Apr 2020 23:06:08 +0000 (16:06 -0700)
committerSteve Hancock <perltidy@users.sourceforge.net>
Sun, 26 Apr 2020 23:06:08 +0000 (16:06 -0700)
16 files changed:
bin/perltidy
t/snippets/comments.in
t/snippets/comments1.par
t/snippets/comments3.par
t/snippets/comments4.par
t/snippets/coverage_missing.txt
t/snippets/coverage_values.txt
t/snippets/expect/comments.comments1
t/snippets/expect/comments.comments2
t/snippets/expect/comments.comments3
t/snippets/expect/comments.comments4
t/snippets/expect/comments.comments5
t/snippets/expect/comments.def
t/snippets/packing_list.txt
t/snippets17.t
t/snippets18.t

index ecb90cb8a3f16831b873f40045d694f31fe4b00d..5e4388a6479b8c6f04c8c3def4ac43b4891d68e0 100755 (executable)
@@ -1659,6 +1659,9 @@ The B<-fsb=string> is the corresponding parameter used to change the
 ending marker for format skipping.  The default is equivalent to
 -fse='#<<<'.  
 
+The beginning and ending strings may be the same, but it is preferable
+to make them different for clarity.
+
 =back
 
 =head2 Line Break Control
index 9328f6f3b9a09d507dcde623fabbb5f9b6d1d05a..6edda543f0bd05bcc20bba11401dc001c90a9422 100644 (file)
@@ -46,7 +46,7 @@ sub macro_get_names { #
 } # end level 1
 
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -54,6 +54,14 @@ sub macro_get_names { #
                 1, 4, 6, 4, 1,);
 #>>>
 
+#<<  test alternate format skipping string
+    my @list = (1,
+                1, 1,
+                1, 2, 1,
+                1, 3, 3, 1,
+                1, 4, 6, 4, 1,);
+#>>
+
 
 
 # some blank lines follow
@@ -72,7 +80,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp     
 =cut
 
 
index b093922ba52c50e62d7caf152aaff3839f4ba6a4..d96fddc35453d977a9a1a75e168fa1e356f1531b 100644 (file)
@@ -3,4 +3,5 @@
 # --noindent-block-comments,
 # --nohanging-side-comments
 # --static-side-comments
--fpsc=40 -iscl -nibc -nhsc -ssc
+# --trim-pod
+-fpsc=40 -iscl -nibc -nhsc -ssc -trp
index 31726c69c575a3f7fc9e123d99633793d9744f8c..a7e7943e8762acd0dbbebb9e1e745b5f4f2ccc78 100644 (file)
@@ -1,2 +1,2 @@
-# testing --maximum-consecutive-blank-lines=2 and --indent-spaced-block-comments
--mbl=2 -isbc
+# testing --maximum-consecutive-blank-lines=2 and --indent-spaced-block-comments --no-format-skipping
+-mbl=2 -isbc -nfs
index a209e3055a3aacd810e0885764fc14044a746446..e250e66538af738ec7b6a8b1b6e2f4ede8dd97b2 100644 (file)
@@ -1,4 +1,5 @@
 # testing --keep-old-blank-lines=2 [=all] and 
 # --nooutdent-long-comments and 
 # --outdent-static-block-comments
--kbl=2 -nolc -osbc
+# --format-skipping-begin and --format-skipping-end
+-kbl=2 -nolc -osbc -fsb='#<{2,}' -fse='#>{2,}'
index 7b344de3d2bf577e6a66d99dee96343451fe27e2..7d26b91983eb3c2bb774441ece386b5c4d7f3527 100644 (file)
@@ -26,9 +26,6 @@ dump-want-right-space
 extended-syntax
 file-size-order
 force-read-binary
-format-skipping
-format-skipping-begin
-format-skipping-end
 frames
 help
 html
@@ -137,7 +134,6 @@ tee-block-comments
 tee-pod
 tee-side-comments
 title
-trim-pod
 trim-qw
 use-unicode-gcstring
 valign
index a86420eb208d718e496c01b5f0ca6c6ff2446a34..ce53982f18c8cfa1e189dc2f0c7ebaf3c6d44871 100644 (file)
 $VAR1 = {
-          'sub-alias-list' => [
-                                'method fun'
+          'brace-left-and-indent-list' => [
+                                            'if'
+                                          ],
+          'opening-anonymous-sub-brace-on-new-line' => [
+                                                         0,
+                                                         1
+                                                       ],
+          'maximum-fields-per-table' => [
+                                          0
+                                        ],
+          'blank-lines-after-opening-block' => [
+                                                 2
+                                               ],
+          'starting-indentation-level' => [
+                                            0
+                                          ],
+          'cuddled-else' => [
+                              0,
+                              1
+                            ],
+          'paren-tightness' => [
+                                 0,
+                                 1,
+                                 2
+                               ],
+          'perl-syntax-check-flags' => [
+                                         '-c -T'
+                                       ],
+          'outdent-labels' => [
+                                0,
+                                1
                               ],
           'space-function-paren' => [
                                       0,
                                       1
                                     ],
+          'timestamp' => [
+                           0,
+                           1
+                         ],
+          'closing-side-comment-maximum-text' => [
+                                                   20,
+                                                   40
+                                                 ],
+          'ignore-old-breakpoints' => [
+                                        0,
+                                        1
+                                      ],
+          'closing-brace-indentation' => [
+                                           0,
+                                           1,
+                                           2
+                                         ],
+          'blank-lines-before-closing-block' => [
+                                                  1
+                                                ],
+          'break-at-old-comma-breakpoints' => [
+                                                0,
+                                                1
+                                              ],
           'delete-pod' => [
                             0,
                             1
                           ],
-          'blank-lines-before-closing-block' => [
-                                                  1
+          'brace-vertical-tightness-closing' => [
+                                                  0,
+                                                  2
                                                 ],
-          'delete-block-comments' => [
-                                       0,
-                                       1
-                                     ],
-          'square-bracket-tightness' => [
-                                          0,
-                                          1,
-                                          2
-                                        ],
-          'closing-side-comment-else-flag' => [
-                                                0
-                                              ],
-          'one-line-block-nesting' => [
+          'want-right-space' => [
+                                  '= .= =~ !~ ? :',
+                                  '= / *'
+                                ],
+          'keyword-group-blanks-delete' => [
+                                             0,
+                                             1
+                                           ],
+          'indent-columns' => [
+                                0,
+                                2,
+                                4
+                              ],
+          'weld-nested-containers' => [
                                         0,
                                         1
                                       ],
-          'indent-closing-brace' => [
-                                      0,
-                                      1
-                                    ],
-          'blanks-before-blocks' => [
-                                      0,
+          'closing-side-comments' => [
+                                       0,
+                                       1
+                                     ],
+          'cuddled-break-option' => [
                                       1
                                     ],
-          'break-before-all-operators' => [
-                                            0,
-                                            1
-                                          ],
-          'want-left-space' => [
-                                 '+ -',
-                                 '= .= =~ !~ :'
-                               ],
-          'closing-side-comments-balanced' => [
-                                                0,
-                                                1
-                                              ],
-          'square-bracket-vertical-tightness-closing' => [
-                                                           0,
-                                                           2
-                                                         ],
-          'short-concatenation-item-length' => [
-                                                 12,
-                                                 8
-                                               ],
-          'space-terminal-semicolon' => [
+          'space-prototype-paren' => [
+                                       0,
+                                       1,
+                                       2
+                                     ],
+          'stack-opening-hash-brace' => [
                                           0,
                                           1
                                         ],
-          'delete-semicolons' => [
-                                   0,
-                                   1
-                                 ],
-          'keyword-group-blanks-size' => [
-                                           '5'
-                                         ],
-          'iterations' => [
-                            1
-                          ],
-          'outdent-long-quotes' => [
-                                     0,
-                                     1
-                                   ],
-          'block-brace-vertical-tightness' => [
+          'add-whitespace' => [
+                                0,
+                                1
+                              ],
+          'static-block-comments' => [
+                                       0,
+                                       1
+                                     ],
+          'trim-pod' => [
+                          0,
+                          1
+                        ],
+          'closing-side-comments-balanced' => [
                                                 0,
                                                 1
                                               ],
-          'stack-closing-paren' => [
+          'long-block-line-count' => [
+                                       8
+                                     ],
+          'maximum-line-length' => [
                                      0,
-                                     1
+                                     1,
+                                     100,
+                                     100000,
+                                     160,
+                                     77,
+                                     78,
+                                     80
                                    ],
-          'default-tabsize' => [
-                                 8
-                               ],
-          'closing-side-comments' => [
+          'backup-and-modify-in-place' => [
+                                            0,
+                                            1
+                                          ],
+          'delete-semicolons' => [
+                                   0,
+                                   1
+                                 ],
+          'outdent-long-comments' => [
                                        0,
                                        1
                                      ],
-          'delete-old-whitespace' => [
+          'check-syntax' => [
+                              0,
+                              1
+                            ],
+          'delete-side-comments' => [
+                                      0,
+                                      1
+                                    ],
+          'hanging-side-comments' => [
                                        0,
                                        1
                                      ],
+          'entab-leading-whitespace' => [
+                                          8
+                                        ],
+          'one-line-block-semicolons' => [
+                                           0,
+                                           1,
+                                           2
+                                         ],
+          'stack-closing-block-brace' => [
+                                           0,
+                                           1
+                                         ],
+          'add-newlines' => [
+                              0,
+                              1
+                            ],
           'keyword-group-blanks-before' => [
                                              1,
                                              2
                                            ],
-          'space-backslash-quote' => [
-                                       0,
-                                       1,
-                                       2
-                                     ],
-          'cuddled-break-option' => [
+          'indent-spaced-block-comments' => [
+                                              0,
+                                              1
+                                            ],
+          'indent-closing-brace' => [
+                                      0,
                                       1
                                     ],
-          'closing-square-bracket-indentation' => [
-                                                    0,
-                                                    1,
-                                                    2
-                                                  ],
-          'keyword-group-blanks-inside' => [
-                                             0,
-                                             1
-                                           ],
+          'character-encoding' => [
+                                    'guess'
+                                  ],
+          'opening-sub-brace-on-new-line' => [
+                                               0,
+                                               1
+                                             ],
+          'add-semicolons' => [
+                                0,
+                                1
+                              ],
+          'paren-vertical-tightness-closing' => [
+                                                  0,
+                                                  2
+                                                ],
+          'nospace-after-keyword' => [
+                                       'my for'
+                                     ],
+          'delete-old-newlines' => [
+                                     0,
+                                     1
+                                   ],
           'paren-vertical-tightness' => [
                                           0,
                                           1,
                                           2
                                         ],
-          'brace-tightness' => [
+          'nowant-right-space' => [
+                                    '+ -',
+                                    '++ --',
+                                    '..',
+                                    '= + - / *',
+                                    'A'
+                                  ],
+          'format-skipping' => [
                                  0,
-                                 1,
-                                 2
+                                 1
                                ],
+          'brace-left-and-indent' => [
+                                       0,
+                                       1
+                                     ],
           'delete-closing-side-comments' => [
                                               0,
                                               1
                                             ],
-          'format' => [
-                        'html',
-                        'tidy'
-                      ],
+          'closing-side-comment-else-flag' => [
+                                                0
+                                              ],
+          'opening-paren-right' => [
+                                     0,
+                                     1
+                                   ],
+          'outdent-static-block-comments' => [
+                                               0,
+                                               1
+                                             ],
+          'keep-old-blank-lines' => [
+                                      0,
+                                      1,
+                                      2
+                                    ],
+          'break-before-all-operators' => [
+                                            0,
+                                            1
+                                          ],
           'space-for-semicolon' => [
                                      0,
                                      1
                                    ],
-          'nospace-after-keyword' => [
-                                       'my for'
-                                     ],
-          'standard-error-output' => [
-                                       0,
-                                       1
-                                     ],
-          'opening-brace-on-new-line' => [
-                                           0,
-                                           1
-                                         ],
-          'ignore-side-comment-lengths' => [
-                                             0,
-                                             1
-                                           ],
-          'static-block-comments' => [
-                                       0,
-                                       1
-                                     ],
-          'square-bracket-vertical-tightness' => [
-                                                   0,
-                                                   1,
-                                                   2
-                                                 ],
           'want-break-before' => [
                                    ' ',
                                    '% + - * / x != == >= <= =~ !~ < > | & = **= += *= &= <<= &&= -= /= |= >>= ||= //= .= %= ^= x=',
                                    '% + - * / x != == >= <= =~ < > | & **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x=',
                                    '='
                                  ],
-          'block-brace-tightness' => [
-                                       0,
-                                       1,
-                                       2
-                                     ],
-          'brace-left-and-indent-list' => [
-                                            'if'
-                                          ],
-          'closing-side-comment-maximum-text' => [
-                                                   20,
-                                                   40
-                                                 ],
-          'entab-leading-whitespace' => [
-                                          8
-                                        ],
-          'break-at-old-semicolon-breakpoints' => [
-                                                    0,
-                                                    1
-                                                  ],
-          'space-keyword-paren' => [
-                                     0,
-                                     1
+          'blank-lines-before-subs' => [
+                                         0,
+                                         1
+                                       ],
+          'one-line-block-nesting' => [
+                                        0,
+                                        1
+                                      ],
+          'space-after-keyword' => [
+                                     'push'
                                    ],
-          'closing-side-comment-interval' => [
-                                               2,
-                                               20,
-                                               6
-                                             ],
-          'indent-columns' => [
-                                0,
-                                2,
-                                4
-                              ],
-          'variable-maximum-line-length' => [
+          'break-after-all-operators' => [
+                                           0,
+                                           1
+                                         ],
+          'opening-square-bracket-right' => [
                                               0,
                                               1
                                             ],
-          'add-newlines' => [
-                              0,
-                              1
-                            ],
-          'stack-opening-hash-brace' => [
+          'outdent-long-quotes' => [
+                                     0,
+                                     1
+                                   ],
+          'stack-opening-paren' => [
+                                     0,
+                                     1
+                                   ],
+          'maximum-consecutive-blank-lines' => [
+                                                 0,
+                                                 1,
+                                                 2
+                                               ],
+          'stack-closing-hash-brace' => [
                                           0,
                                           1
                                         ],
-          'add-whitespace' => [
-                                0,
-                                1
-                              ],
-          'stack-closing-square-bracket' => [
-                                              0,
-                                              1
-                                            ],
           'comma-arrow-breakpoints' => [
                                          1,
                                          5
                                        ],
-          'keyword-group-blanks-repeat-count' => [
-                                                   0
+          'fixed-position-side-comment' => [
+                                             40
+                                           ],
+          'blank-lines-before-closing-block-list' => [
+                                                       '*'
+                                                     ],
+          'keyword-group-blanks-inside' => [
+                                             0,
+                                             1
+                                           ],
+          'want-break-after' => [
+                                  '% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x= . << >> -> && ||'
+                                ],
+          'square-bracket-vertical-tightness-closing' => [
+                                                           0,
+                                                           2
+                                                         ],
+          'square-bracket-tightness' => [
+                                          0,
+                                          1,
+                                          2
+                                        ],
+          'break-at-old-method-breakpoints' => [
+                                                 0,
+                                                 1
+                                               ],
+          'square-bracket-vertical-tightness' => [
+                                                   0,
+                                                   1,
+                                                   2
                                                  ],
-          'closing-brace-indentation' => [
-                                           0,
-                                           1,
-                                           2
-                                         ],
-          'nowant-right-space' => [
-                                    '+ -',
-                                    '++ --',
-                                    '..',
-                                    '= + - / *',
-                                    'A'
-                                  ],
-          'delete-side-comments' => [
-                                      0,
-                                      1
-                                    ],
-          'long-block-line-count' => [
-                                       8
-                                     ],
-          'keyword-group-blanks-delete' => [
+          'default-tabsize' => [
+                                 8
+                               ],
+          'ignore-side-comment-lengths' => [
                                              0,
                                              1
                                            ],
-          'tight-secret-operators' => [
-                                        0,
-                                        1
-                                      ],
+          'iterations' => [
+                            1
+                          ],
+          'closing-square-bracket-indentation' => [
+                                                    0,
+                                                    1,
+                                                    2
+                                                  ],
           'continuation-indentation' => [
                                           0,
                                           2,
                                           4
                                         ],
-          'brace-left-and-indent' => [
+          'nowant-left-space' => [
+                                   '++ -- ?',
+                                   '..',
+                                   '= + - / *',
+                                   '= / *'
+                                 ],
+          'standard-error-output' => [
                                        0,
                                        1
                                      ],
-          'line-up-parentheses' => [
-                                     0,
-                                     1
-                                   ],
-          'opening-sub-brace-on-new-line' => [
-                                               0,
-                                               1
-                                             ],
-          'opening-paren-right' => [
-                                     0,
-                                     1
-                                   ],
-          'opening-anonymous-sub-brace-on-new-line' => [
-                                                         0,
-                                                         1
-                                                       ],
-          'want-right-space' => [
-                                  '= .= =~ !~ ? :',
-                                  '= / *'
-                                ],
-          'delete-old-newlines' => [
-                                     0,
-                                     1
+          'blanks-before-blocks' => [
+                                      0,
+                                      1
+                                    ],
+          'closing-paren-indentation' => [
+                                           0,
+                                           1,
+                                           2
+                                         ],
+          'format-skipping-end' => [
+                                     '#>{2,}'
                                    ],
-          'stack-closing-hash-brace' => [
+          'keyword-group-blanks-repeat-count' => [
+                                                   0
+                                                 ],
+          'backup-file-extension' => [
+                                       'bak',
+                                       '~'
+                                     ],
+          'keyword-group-blanks-after' => [
+                                            1,
+                                            2
+                                          ],
+          'keep-interior-semicolons' => [
                                           0,
                                           1
                                         ],
-          'starting-indentation-level' => [
-                                            0
-                                          ],
-          'backup-and-modify-in-place' => [
-                                            0,
-                                            1
-                                          ],
-          'perl-syntax-check-flags' => [
-                                         '-c -T'
-                                       ],
-          'keep-interior-semicolons' => [
+          'keyword-group-blanks-size' => [
+                                           '5'
+                                         ],
+          'space-terminal-semicolon' => [
                                           0,
                                           1
                                         ],
-          'stack-opening-square-bracket' => [
-                                              0,
-                                              1
-                                            ],
-          'outdent-long-comments' => [
-                                       0,
-                                       1
-                                     ],
-          'blank-lines-after-opening-block' => [
-                                                 2
-                                               ],
-          'add-semicolons' => [
-                                0,
-                                1
-                              ],
+          'outdent-keywords' => [
+                                  0,
+                                  1
+                                ],
           'indent-block-comments' => [
                                        0,
                                        1
                                      ],
-          'break-after-all-operators' => [
-                                           0,
-                                           1
-                                         ],
-          'character-encoding' => [
-                                    'guess'
-                                  ],
-          'timestamp' => [
+          'blank-lines-before-packages' => [
+                                             0,
+                                             1
+                                           ],
+          'recombine' => [
                            0,
                            1
                          ],
-          'fixed-position-side-comment' => [
-                                             40
-                                           ],
-          'one-line-block-semicolons' => [
-                                           0,
-                                           1,
-                                           2
-                                         ],
-          'fuzzy-line-length' => [
-                                   0,
-                                   1
-                                 ],
-          'brace-vertical-tightness-closing' => [
-                                                  0,
-                                                  2
-                                                ],
-          'blank-lines-before-subs' => [
-                                         0,
-                                         1
-                                       ],
+          'blank-lines-after-opening-block-list' => [
+                                                      '*'
+                                                    ],
+          'stack-opening-square-bracket' => [
+                                              0,
+                                              1
+                                            ],
           'cuddled-block-list' => [
                                     'map,sort,grep',
                                     'sort,map,grep'
                                   ],
-          'opening-brace-always-on-right' => [
-                                               0,
-                                               1
-                                             ],
-          'indent-spaced-block-comments' => [
-                                              0,
-                                              1
-                                            ],
-          'recombine' => [
-                           0,
-                           1
-                         ],
-          'backup-file-extension' => [
-                                       'bak',
-                                       '~'
+          'space-backslash-quote' => [
+                                       0,
+                                       1,
+                                       2
                                      ],
-          'check-syntax' => [
-                              0,
-                              1
-                            ],
-          'ignore-old-breakpoints' => [
-                                        0,
-                                        1
-                                      ],
-          'static-side-comments' => [
-                                      0,
-                                      1
-                                    ],
-          'minimum-space-to-comment' => [
-                                          10,
-                                          2,
-                                          4
-                                        ],
-          'keyword-group-blanks-after' => [
-                                            1,
-                                            2
-                                          ],
-          'cuddled-else' => [
-                              0,
-                              1
-                            ],
-          'space-after-keyword' => [
-                                     'push'
-                                   ],
-          'paren-tightness' => [
-                                 0,
-                                 1,
-                                 2
+          'want-left-space' => [
+                                 '+ -',
+                                 '= .= =~ !~ :'
                                ],
-          'stack-opening-paren' => [
-                                     0,
-                                     1
-                                   ],
-          'want-break-after' => [
-                                  '% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x= . << >> -> && ||'
-                                ],
-          'brace-vertical-tightness' => [
-                                          0,
-                                          1,
-                                          2
-                                        ],
-          'space-prototype-paren' => [
+          'format' => [
+                        'html',
+                        'tidy'
+                      ],
+          'fuzzy-line-length' => [
+                                   0,
+                                   1
+                                 ],
+          'block-brace-tightness' => [
                                        0,
                                        1,
                                        2
                                      ],
-          'weld-nested-containers' => [
-                                        0,
-                                        1
-                                      ],
-          'opening-square-bracket-right' => [
-                                              0,
-                                              1
-                                            ],
-          'closing-paren-indentation' => [
-                                           0,
-                                           1,
-                                           2
-                                         ],
           'warning-output' => [
                                 0,
                                 1
                               ],
-          'paren-vertical-tightness-closing' => [
-                                                  0,
-                                                  2
-                                                ],
-          'blank-lines-before-closing-block-list' => [
-                                                       '*'
-                                                     ],
-          'outdent-static-block-comments' => [
-                                               0,
-                                               1
-                                             ],
-          'nowant-left-space' => [
-                                   '++ -- ?',
-                                   '..',
-                                   '= + - / *',
-                                   '= / *'
-                                 ],
-          'hanging-side-comments' => [
-                                       0,
-                                       1
-                                     ],
-          'break-at-old-method-breakpoints' => [
-                                                 0,
-                                                 1
-                                               ],
-          'maximum-consecutive-blank-lines' => [
-                                                 0,
-                                                 1,
-                                                 2
-                                               ],
-          'keep-old-blank-lines' => [
-                                      0,
-                                      1,
-                                      2
-                                    ],
+          'stack-closing-square-bracket' => [
+                                              0,
+                                              1
+                                            ],
           'opening-hash-brace-right' => [
                                           0,
                                           1
                                         ],
-          'outdent-labels' => [
-                                0,
-                                1
-                              ],
-          'maximum-fields-per-table' => [
-                                          0
-                                        ],
-          'break-at-old-comma-breakpoints' => [
+          'block-brace-vertical-tightness' => [
                                                 0,
                                                 1
                                               ],
-          'blank-lines-before-packages' => [
-                                             0,
-                                             1
-                                           ],
-          'outdent-keywords' => [
-                                  0,
-                                  1
-                                ],
-          'maximum-line-length' => [
-                                     0,
-                                     1,
-                                     100,
-                                     100000,
-                                     160,
-                                     77,
-                                     78,
-                                     80
-                                   ],
+          'minimum-space-to-comment' => [
+                                          10,
+                                          2,
+                                          4
+                                        ],
+          'opening-brace-always-on-right' => [
+                                               0,
+                                               1
+                                             ],
+          'break-at-old-semicolon-breakpoints' => [
+                                                    0,
+                                                    1
+                                                  ],
           'blanks-before-comments' => [
                                         0,
                                         1
                                       ],
-          'stack-closing-block-brace' => [
+          'delete-old-whitespace' => [
+                                       0,
+                                       1
+                                     ],
+          'closing-side-comment-interval' => [
+                                               2,
+                                               20,
+                                               6
+                                             ],
+          'tight-secret-operators' => [
+                                        0,
+                                        1
+                                      ],
+          'brace-vertical-tightness' => [
+                                          0,
+                                          1,
+                                          2
+                                        ],
+          'space-keyword-paren' => [
+                                     0,
+                                     1
+                                   ],
+          'variable-maximum-line-length' => [
+                                              0,
+                                              1
+                                            ],
+          'short-concatenation-item-length' => [
+                                                 12,
+                                                 8
+                                               ],
+          'delete-block-comments' => [
+                                       0,
+                                       1
+                                     ],
+          'opening-brace-on-new-line' => [
                                            0,
                                            1
                                          ],
-          'blank-lines-after-opening-block-list' => [
-                                                      '*'
-                                                    ]
+          'sub-alias-list' => [
+                                'method fun'
+                              ],
+          'brace-tightness' => [
+                                 0,
+                                 1,
+                                 2
+                               ],
+          'line-up-parentheses' => [
+                                     0,
+                                     1
+                                   ],
+          'format-skipping-begin' => [
+                                       '#<{2,}'
+                                     ],
+          'stack-closing-paren' => [
+                                     0,
+                                     1
+                                   ],
+          'static-side-comments' => [
+                                      0,
+                                      1
+                                    ]
         };
index ba95d6f09820b89d69a059b0c2edc00462bcd3c7..a53e5e627814d08588b6ffdec3b6980fc275c6fe 100644 (file)
@@ -51,7 +51,7 @@ sub macro_get_names {                  #
     }                                  # end level 2
 }                                      # end level 1
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -59,6 +59,11 @@ sub macro_get_names {                  #
                 1, 4, 6, 4, 1,);
 #>>>
 
+#<<  test alternate format skipping string
+my @list = ( 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, );
+
+#>>
+
 # some blank lines follow
 
 =pod
@@ -72,7 +77,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp
 =cut
 
 
index 9de359bf5efcce2a491020aee90825af992e872d..feac27a7b432a934f70c4997b4983b3a20714c05 100644 (file)
@@ -37,7 +37,7 @@ sub macro_get_names {          #
     }          # end level 2
 }          # end level 1
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -45,6 +45,8 @@ sub macro_get_names {          #
                 1, 4, 6, 4, 1,);
 #>>>
 
+my @list = ( 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, );
+
 
 __END__
 
index 16e819be374eacd0b00d70b50d973de5427296d9..ec1cc230208c877101894898ce8ab6f2f83affb1 100644 (file)
@@ -53,14 +53,16 @@ sub macro_get_names {    #
 }    # end level 1
 
 
-#<<<  do not let perltidy touch this
-    my @list = (1,
-                1, 1,
-                1, 2, 1,
-                1, 3, 3, 1,
-                1, 4, 6, 4, 1,);
+#<<<  do not let perltidy touch this unless -nfs is set
+my @list = ( 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, );
+
 #>>>
 
+#<<  test alternate format skipping string
+my @list = ( 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, );
+
+#>>
+
 
 # some blank lines follow
 
@@ -77,7 +79,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp     
 =cut
 
 
index a6d1e831f089c80eb4b3e47e056213720bf056e2..e862a51fbb6877a1988c24d105e8b18d9cfe8ac3 100644 (file)
@@ -54,7 +54,7 @@ sub macro_get_names {    #
 }    # end level 1
 
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -62,6 +62,14 @@ sub macro_get_names {    #
                 1, 4, 6, 4, 1,);
 #>>>
 
+#<<  test alternate format skipping string
+    my @list = (1,
+                1, 1,
+                1, 2, 1,
+                1, 3, 3, 1,
+                1, 4, 6, 4, 1,);
+#>>
+
 
 
 # some blank lines follow
@@ -80,7 +88,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp     
 =cut
 
 
index 04efd9c1f3f407037ce9a91cccde8237b255ff82..158df431f17d7d4438bc3577388e9cee05cc60ce 100644 (file)
@@ -46,7 +46,7 @@ sub macro_get_names {
     }
 }
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -54,6 +54,11 @@ sub macro_get_names {
                 1, 4, 6, 4, 1,);
 #>>>
 
+#<<  test alternate format skipping string
+my @list = ( 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, );
+
+#>>
+
 # some blank lines follow
 
 =pod
@@ -67,7 +72,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp     
 =cut
 
 
index 177ce345e28c8e14ecf801f3884f2296b01ed7da..2bfe03ec6549ef74536a6d72adf595bed3dcf280 100644 (file)
@@ -50,7 +50,7 @@ sub macro_get_names {    #
     }    # end level 2
 }    # end level 1
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -58,6 +58,11 @@ sub macro_get_names {    #
                 1, 4, 6, 4, 1,);
 #>>>
 
+#<<  test alternate format skipping string
+my @list = ( 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, );
+
+#>>
+
 # some blank lines follow
 
 =pod
@@ -71,7 +76,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp     
 =cut
 
 
index aff810f59af985b93715270d14152200188fedfb..051470326cfe888a26d41ce6ee20007fab656e32 100644 (file)
 ../snippets19.t        space_paren.space_paren2
 ../snippets19.t        braces.braces5
 ../snippets19.t        braces.braces6
+../snippets19.t        maths.maths3
 ../snippets2.t angle.def
 ../snippets2.t arrows1.def
 ../snippets2.t arrows2.def
 ../snippets9.t rt98902.def
 ../snippets9.t rt98902.rt98902
 ../snippets9.t rt99961.def
-../snippets19.t        maths.maths3
index 108c0738fdafec641053a9a712ef53c8c4e2a7fe..19e4a3d5b8cacc7fb7f9df9aa44a0a34704772fd 100644 (file)
@@ -44,21 +44,23 @@ BEGIN {
 # --noindent-block-comments,
 # --nohanging-side-comments
 # --static-side-comments
--fpsc=40 -iscl -nibc -nhsc -ssc
+# --trim-pod
+-fpsc=40 -iscl -nibc -nhsc -ssc -trp
 ----------
         'comments2' => <<'----------',
 # testing --minimum-space-to-comment=10, --delete-block-comments, --delete-pod
 -msc=10 -dbc -dp
 ----------
         'comments3' => <<'----------',
-# testing --maximum-consecutive-blank-lines=2 and --indent-spaced-block-comments
--mbl=2 -isbc
+# testing --maximum-consecutive-blank-lines=2 and --indent-spaced-block-comments --no-format-skipping
+-mbl=2 -isbc -nfs
 ----------
         'comments4' => <<'----------',
 # testing --keep-old-blank-lines=2 [=all] and 
 # --nooutdent-long-comments and 
 # --outdent-static-block-comments
--kbl=2 -nolc -osbc
+# --format-skipping-begin and --format-skipping-end
+-kbl=2 -nolc -osbc -fsb='#<{2,}' -fse='#>{2,}'
 ----------
         'def'       => "",
         'long_line' => "-l=0",
@@ -133,7 +135,7 @@ sub macro_get_names { #
 } # end level 1
 
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -141,6 +143,14 @@ sub macro_get_names { #
                 1, 4, 6, 4, 1,);
 #>>>
 
+#<<  test alternate format skipping string
+    my @list = (1,
+                1, 1,
+                1, 2, 1,
+                1, 3, 3, 1,
+                1, 4, 6, 4, 1,);
+#>>
+
 
 
 # some blank lines follow
@@ -159,7 +169,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp     
 =cut
 
 
@@ -350,7 +360,7 @@ sub macro_get_names {                  #
     }                                  # end level 2
 }                                      # end level 1
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -358,6 +368,11 @@ sub macro_get_names {                  #
                 1, 4, 6, 4, 1,);
 #>>>
 
+#<<  test alternate format skipping string
+my @list = ( 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, );
+
+#>>
+
 # some blank lines follow
 
 =pod
@@ -371,7 +386,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp
 =cut
 
 
@@ -421,7 +436,7 @@ sub macro_get_names {          #
     }          # end level 2
 }          # end level 1
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -429,6 +444,8 @@ sub macro_get_names {          #
                 1, 4, 6, 4, 1,);
 #>>>
 
+my @list = ( 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, );
+
 
 __END__
 
@@ -500,14 +517,16 @@ sub macro_get_names {    #
 }    # end level 1
 
 
-#<<<  do not let perltidy touch this
-    my @list = (1,
-                1, 1,
-                1, 2, 1,
-                1, 3, 3, 1,
-                1, 4, 6, 4, 1,);
+#<<<  do not let perltidy touch this unless -nfs is set
+my @list = ( 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, );
+
 #>>>
 
+#<<  test alternate format skipping string
+my @list = ( 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, );
+
+#>>
+
 
 # some blank lines follow
 
@@ -524,7 +543,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp     
 =cut
 
 
@@ -591,7 +610,7 @@ sub macro_get_names {    #
 }    # end level 1
 
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -599,6 +618,14 @@ sub macro_get_names {    #
                 1, 4, 6, 4, 1,);
 #>>>
 
+#<<  test alternate format skipping string
+    my @list = (1,
+                1, 1,
+                1, 2, 1,
+                1, 3, 3, 1,
+                1, 4, 6, 4, 1,);
+#>>
+
 
 
 # some blank lines follow
@@ -617,7 +644,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp     
 =cut
 
 
@@ -680,7 +707,7 @@ sub macro_get_names {    #
     }    # end level 2
 }    # end level 1
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -688,6 +715,11 @@ sub macro_get_names {    #
                 1, 4, 6, 4, 1,);
 #>>>
 
+#<<  test alternate format skipping string
+my @list = ( 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, );
+
+#>>
+
 # some blank lines follow
 
 =pod
@@ -701,7 +733,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp     
 =cut
 
 
index 29984b65d9032e48877d2333966e4222c36ea00f..f8554385f0d55a33cbdf735ccb01978f9bfff593 100644 (file)
@@ -129,7 +129,7 @@ sub macro_get_names { #
 } # end level 1
 
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -137,6 +137,14 @@ sub macro_get_names { #
                 1, 4, 6, 4, 1,);
 #>>>
 
+#<<  test alternate format skipping string
+    my @list = (1,
+                1, 1,
+                1, 2, 1,
+                1, 3, 3, 1,
+                1, 4, 6, 4, 1,);
+#>>
+
 
 
 # some blank lines follow
@@ -155,7 +163,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp     
 =cut
 
 
@@ -359,7 +367,7 @@ sub macro_get_names {
     }
 }
 
-#<<<  do not let perltidy touch this
+#<<<  do not let perltidy touch this unless -nfs is set
     my @list = (1,
                 1, 1,
                 1, 2, 1,
@@ -367,6 +375,11 @@ sub macro_get_names {
                 1, 4, 6, 4, 1,);
 #>>>
 
+#<<  test alternate format skipping string
+my @list = ( 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 6, 4, 1, );
+
+#>>
+
 # some blank lines follow
 
 =pod
@@ -380,7 +393,7 @@ __END__
 
 
 =pod
-Some pod after  __END__ to delete with -dp
+Some pod after __END__ to delete with -dp and trim with -trp     
 =cut