From: Steve Hancock Date: Wed, 24 Aug 2022 02:54:37 +0000 (-0700) Subject: add test for -cs -csb -cse X-Git-Tag: 20220613.05~29 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d83d23942096c5cd30ff11d1fc14844af02634c1;p=perltidy.git add test for -cs -csb -cse --- diff --git a/t/snippets/code_skipping.par b/t/snippets/code_skipping.par new file mode 100644 index 00000000..77ec8156 --- /dev/null +++ b/t/snippets/code_skipping.par @@ -0,0 +1,4 @@ +# same as the default but tests -cs -csb and -cse +--code-skipping +--code-skipping-begin='#< [ - 1 - ], - 'nowant-right-space' => [ - '+ -', - '+ - / *', - '++ --', - '..', - '= + - / *', - 'A' + 'one-line-block-semicolons' => [ + 0, + 1, + 2 + ], + 'break-after-labels' => [ + 0, + 1, + 2 ], - 'iterations' => [ - 1, - 4 - ], - 'break-at-old-ternary-breakpoints' => [ - 0, - 1 - ], - 'square-bracket-vertical-tightness-closing' => [ - 0, - 1, - 2 - ], - 'format' => [ - 'html', - 'tidy' - ], - 'keyword-group-blanks-delete' => [ - 0, - 1 - ], - 'break-at-old-attribute-breakpoints' => [ - 0, - 1 - ], - 'comma-arrow-breakpoints' => [ - 1, - 5 - ], - 'maximum-line-length' => [ - 0, - 1, - 100, - 100000, - 160, - 33, - 77, - 78, - 80 - ], - 'opening-square-bracket-right' => [ - 0, - 1 - ], - 'line-up-parentheses' => [ - 0, - 1 - ], - 'brace-vertical-tightness' => [ - 0, - 1, - 2 - ], - 'brace-left-and-indent-list' => [ - '*', - 'if' - ], - 'nowant-left-space' => [ - '+ - / *', - '++ -- ?', - '..', - '= + - / *', - '= / *' + 'maximum-unexpected-errors' => [ + 0 + ], + 'valign-code' => [ + 0, + 1 + ], + 'delete-semicolons' => [ + 0, + 1 ], - 'opening-sub-brace-on-new-line' => [ - 0, - 1 - ], - 'want-right-space' => [ - '->', - '= .= =~ !~ ? :', - '= / *' - ], - 'cuddled-else' => [ + 'check-syntax' => [ 0, 1 ], - 'paren-tightness' => [ - 0, - 1, - 2 - ], - 'indent-columns' => [ - 0, - 2, - 4 - ], - 'paren-vertical-tightness' => [ + 'break-before-hash-brace' => [ + 0, + 2, + 3 + ], + 'stack-opening-hash-brace' => [ 0, - 1, - 2 + 1 ], - 'break-at-old-semicolon-breakpoints' => [ - 0, - 1 - ], - 'space-keyword-paren' => [ - 0, - 1 - ], - 'opening-paren-right' => [ - 0, - 1 - ], - 'maximum-file-size-mb' => [ - 10 - ], - 'outdent-long-quotes' => [ + 'stack-closing-paren' => [ 0, 1 ], - 'maximum-consecutive-blank-lines' => [ - 0, - 1, - 2 - ], - 'space-terminal-semicolon' => [ - 0, - 1 - ], - 'stack-opening-hash-brace' => [ - 0, - 1 - ], - 'closing-paren-indentation' => [ - 0, - 1, - 2 - ], - 'keyword-group-blanks-inside' => [ - 0, - 1 - ], - 'maximum-unexpected-errors' => [ - 0 - ], - 'non-indenting-brace-prefix' => [ - '#\\+\\+' - ], - 'delete-old-whitespace' => [ + 'recombine' => [ + 0, + 1 + ], + 'timestamp' => [ + 0, + 1 + ], + 'look-for-hash-bang' => [ + 0, + 1 + ], + 'space-backslash-quote' => [ 0, - 1 + 1, + 2 ], - 'brace-left-and-indent' => [ + 'outdent-labels' => [ + 0, + 1 + ], + 'break-at-old-ternary-breakpoints' => [ + 0, + 1 + ], + 'delete-old-whitespace' => [ 0, 1 ], - 'static-side-comments' => [ - 0, - 1 - ], - 'opening-anonymous-sub-brace-on-new-line' => [ - 0, - 1 - ], - 'default-tabsize' => [ - 8 - ], - 'break-before-all-operators' => [ - 0, - 1 - ], + 'closing-square-bracket-indentation' => [ + 0, + 1, + 2 + ], + 'break-at-old-logical-breakpoints' => [ + 0, + 1 + ], + 'blank-lines-before-subs' => [ + 0, + 1 + ], + 'format-skipping-end' => [ + '#>{2,}' + ], + 'keyword-paren-inner-tightness-list' => [ + 'return factorial' + ], + 'opening-sub-brace-on-new-line' => [ + 0, + 1 + ], + 'maximum-fields-per-table' => [ + 0 + ], 'closing-side-comment-interval' => [ 2, 20, 6 ], - 'fuzzy-line-length' => [ - 0, - 1 + 'closing-paren-indentation' => [ + 0, + 1, + 2 + ], + 'nowant-left-space' => [ + '+ - / *', + '++ -- ?', + '..', + '= + - / *', + '= / *' ], - 'break-before-square-bracket-and-indent' => [ - 0 - ], - 'one-line-block-nesting' => [ - 0, - 1 - ], - 'stack-opening-paren' => [ - 0, - 1 - ], - 'keep-old-breakpoints-after' => [ - '=>' - ], - 'opening-brace-always-on-right' => [ - 0, - 1 - ], - 'logical-padding' => [ - 0, - 1 - ], - 'indent-block-comments' => [ + 'opening-brace-on-new-line' => [ + 0, + 1 + ], + 'trim-pod' => [ + 0, + 1 + ], + 'closing-side-comments' => [ 0, 1 ], - 'brace-vertical-tightness-closing' => [ - 0, - 1, - 2 - ], - 'closing-brace-indentation' => [ + 'square-bracket-vertical-tightness' => [ + 0, + 1, + 2 + ], + 'brace-vertical-tightness' => [ + 0, + 1, + 2 + ], + 'tabs' => [ + 0, + 1 + ], + 'extended-line-up-parentheses' => [ + 0, + 1 + ], + 'stack-closing-block-brace' => [ 0, - 1, - 2 + 1 ], - 'break-at-old-comma-breakpoints' => [ - 0, - 1 - ], + 'stack-closing-square-bracket' => [ + 0, + 1 + ], + 'want-left-space' => [ + '+ -', + '->', + '= -> ( )', + '= .= =~ !~ :' + ], + 'minimum-space-to-comment' => [ + 10, + 2, + 4 + ], + 'add-semicolons' => [ + 0, + 1 + ], + 'delete-closing-side-comments' => [ + 0, + 1 + ], + 'default-tabsize' => [ + 8 + ], + 'space-after-keyword' => [ + 'push' + ], 'break-at-old-method-breakpoints' => [ 0, 1 ], - 'opening-hash-brace-right' => [ - 0, - 1 - ], - 'indent-closing-brace' => [ + 'warning-output' => [ + 0, + 1 + ], + 'delete-old-newlines' => [ + 0, + 1 + ], + 'delete-side-comments' => [ 0, 1 ], - 'keyword-group-blanks-after' => [ - 1, - 2 - ], + 'blank-lines-before-closing-block' => [ + 1 + ], 'delete-pod' => [ 0, 1 ], - 'sub-alias-list' => [ - 'method', - 'method fun' - ], - 'add-semicolons' => [ - 0, - 1 - ], - 'static-block-comments' => [ + 'long-block-line-count' => [ + 8 + ], + 'stack-opening-paren' => [ + 0, + 1 + ], + 'keyword-paren-inner-tightness' => [ + 0, + 1 + ], + 'standard-error-output' => [ 0, 1 ], + 'want-right-space' => [ + '->', + '= -> ( )', + '= .= =~ !~ ? :', + '= / *' + ], + 'non-indenting-brace-prefix' => [ + '#\\+\\+' + ], + 'ignore-side-comment-lengths' => [ + 0, + 1 + ], + 'break-before-paren' => [ + 0, + 2, + 3 + ], + 'valign-exclusion-list' => [ + '*', + '=', + 'q' + ], + 'outdent-keyword-list' => [ + 'next' + ], + 'outdent-keywords' => [ + 0, + 1 + ], + 'entab-leading-whitespace' => [ + 4, + 8 + ], 'square-bracket-tightness' => [ 0, 1, 2 ], + 'keyword-group-blanks-size' => [ + '5' + ], + 'keep-old-breakpoints-after' => [ + '=>' + ], + 'opening-brace-always-on-right' => [ + 0, + 1 + ], + 'vertical-tightness-closing' => [ + 3 + ], + 'outdent-long-comments' => [ + 0, + 1 + ], + 'tight-secret-operators' => [ + 0, + 1 + ], + 'whitespace-cycle' => [ + 4 + ], + 'delete-repeated-commas' => [ + 0, + 1 + ], + 'fuzzy-line-length' => [ + 0, + 1 + ], + 'brace-left-and-indent' => [ + 0, + 1 + ], + 'valign-block-comments' => [ + 0, + 1 + ], + 'brace-left-and-indent-list' => [ + '*', + 'if' + ], + 'brace-tightness' => [ + 0, + 1, + 2 + ], + 'line-up-parentheses-exclusion-list' => [ + '{ [ (', + '{ [ F(2', + '{ [ W(1' + ], + 'closing-side-comment-else-flag' => [ + 0 + ], + 'fixed-position-side-comment' => [ + 40 + ], + 'break-at-old-semicolon-breakpoints' => [ + 0, + 1 + ], 'cuddled-block-list' => [ 'map,sort,grep', 'sort,map,grep' ], - 'closing-side-comments' => [ - 0, - 1 - ], - 'backup-and-modify-in-place' => [ + 'add-newlines' => [ + 0, + 1 + ], + 'maximum-line-length' => [ + 0, + 1, + 100, + 100000, + 120, + 160, + 33, + 77, + 78, + 80 + ], + 'break-before-all-operators' => [ 0, 1 ], + 'closing-brace-indentation' => [ + 0, + 1, + 2 + ], + 'nowant-right-space' => [ + '+ -', + '+ - / *', + '++ --', + '..', + '= + - / *', + 'A' + ], + 'backup-file-extension' => [ + 'bak', + '~' + ], + 'keyword-group-blanks-before' => [ + 1, + 2 + ], 'block-brace-tightness' => [ 0, 1, 2 ], - 'trim-pod' => [ - 0, - 1 - ], + 'maximum-file-size-mb' => [ + 10 + ], + 'opening-paren-right' => [ + 0, + 1 + ], + 'ignore-old-breakpoints' => [ + 0, + 1 + ], + 'keyword-group-blanks-delete' => [ + 0, + 1 + ], + 'function-paren-vertical-alignment' => [ + 0, + 1 + ], 'block-brace-vertical-tightness' => [ 0, 1 ], - 'delete-closing-side-comments' => [ + 'iterations' => [ + 1, + 2, + 4 + ], + 'brace-left-exclusion-list' => [ + ' ' + ], + 'backup-and-modify-in-place' => [ + 0, + 1 + ], + 'indent-block-comments' => [ + 0, + 1 + ], + 'opening-square-bracket-right' => [ 0, 1 ], - 'short-concatenation-item-length' => [ - 12, - 8 + 'space-function-paren' => [ + 0, + 1 + ], + 'space-keyword-paren' => [ + 0, + 1 + ], + 'sub-alias-list' => [ + 'first any sum sum0 reduce', + 'method', + 'method fun' + ], + 'blank-lines-after-opening-block' => [ + 2 ], - 'stack-closing-block-brace' => [ - 0, - 1 - ], - 'continuation-indentation' => [ - 0, - 2, - 4 - ], - 'format-skipping' => [ + 'valign-side-comments' => [ + 0, + 1 + ], + 'brace-left-and-indent-exclusion-list' => [ + 'eval' + ], + 'format-skipping-begin' => [ + '#<{2,}' + ], + 'maximum-consecutive-blank-lines' => [ + 0, + 1, + 2 + ], + 'logical-padding' => [ 0, 1 ], - 'nospace-after-keyword' => [ - 'my for' - ], - 'keyword-paren-inner-tightness-list' => [ - 'return factorial' + 'blank-lines-after-opening-block-list' => [ + '*' + ], + 'short-concatenation-item-length' => [ + 12, + 8 + ], + 'paren-vertical-tightness-closing' => [ + 0, + 1, + 2 + ], + 'line-up-parentheses-inclusion-list' => [ + 'f(2' ], - 'maximum-level-errors' => [ - 1 - ], - 'want-left-space' => [ - '+ -', - '->', - '= .= =~ !~ :' - ], - 'fixed-position-side-comment' => [ - 40 - ], - 'keep-interior-semicolons' => [ + 'backup-method' => [ + 'copy' + ], + 'space-terminal-semicolon' => [ 0, 1 ], - 'outdent-keywords' => [ - 0, - 1 - ], - 'stack-opening-square-bracket' => [ - 0, - 1 - ], - 'ignore-side-comment-lengths' => [ - 0, - 1 - ], 'want-break-before' => [ ' ', '% + - * / x != == >= <= =~ !~ < > | & = **= += *= &= <<= &&= -= /= |= >>= ||= //= .= %= ^= x=', '% + - * / x != == >= <= =~ < > | & **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x=', '=' ], - 'non-indenting-braces' => [ - 0, - 1 - ], - 'timestamp' => [ - 0, - 1 - ], - 'opening-brace-on-new-line' => [ - 0, - 1 - ], - 'delete-semicolons' => [ - 0, - 1 - ], - 'keyword-group-blanks-size' => [ - '5' - ], - 'ignore-old-breakpoints' => [ + 'variable-maximum-line-length' => [ + 0, + 1 + ], + 'keyword-group-blanks-repeat-count' => [ + 0 + ], + 'break-at-old-attribute-breakpoints' => [ + 0, + 1 + ], + 'one-line-block-nesting' => [ 0, 1 ], - 'delete-block-comments' => [ + 'break-at-old-keyword-breakpoints' => [ + 0, + 1 + ], + 'cuddled-break-option' => [ + 1 + ], + 'break-before-square-bracket' => [ + 0 + ], + 'paren-vertical-tightness' => [ + 0, + 1, + 2 + ], + 'keyword-group-blanks-after' => [ + 1, + 2 + ], + 'starting-indentation-level' => [ + 0 + ], + 'space-prototype-paren' => [ 0, - 1 + 1, + 2 ], - 'closing-side-comment-maximum-text' => [ - 20, - 40 - ], - 'add-newlines' => [ - 0, - 1 - ], - 'stack-closing-paren' => [ + 'line-up-parentheses' => [ 0, 1 ], - 'entab-leading-whitespace' => [ - 8 + 'closing-side-comments-balanced' => [ + 0, + 1 + ], + 'opening-hash-brace-right' => [ + 0, + 1 ], - 'perl-syntax-check-flags' => [ - '-c -T' - ], - 'blank-lines-before-packages' => [ - 0, - 1 - ], - 'long-block-line-count' => [ - 8 - ], - 'keyword-group-blanks-before' => [ - 1, - 2 - ], - 'stack-closing-square-bracket' => [ + 'stack-opening-square-bracket' => [ 0, 1 ], - 'break-at-old-keyword-breakpoints' => [ - 0, - 1 - ], - 'space-function-paren' => [ - 0, - 1 - ], - 'keep-old-breakpoints-before' => [ - '=> ,' - ], - 'tight-secret-operators' => [ + 'grep-alias-list' => [ + 'Grep Map' + ], + 'break-before-hash-brace-and-indent' => [ + 0, + 1, + 2 + ], + 'nospace-after-keyword' => [ + 'my for' + ], + 'format-skipping' => [ + 0, + 1 + ], + 'weld-nested-containers' => [ 0, 1 ], - 'space-after-keyword' => [ - 'push' + 'outdent-long-quotes' => [ + 0, + 1 ], - 'indent-spaced-block-comments' => [ - 0, - 1 - ], - 'break-before-paren-and-indent' => [ - 0, - 1, - 2 - ], - 'paren-vertical-tightness-closing' => [ - 0, - 1, - 2 - ], - 'delete-old-newlines' => [ + 'keep-interior-semicolons' => [ + 0, + 1 + ], + 'paren-tightness' => [ + 0, + 1, + 2 + ], + 'format' => [ + 'html', + 'tidy' + ], + 'space-for-semicolon' => [ 0, 1 ], - 'starting-indentation-level' => [ - 0 - ], - 'weld-nested-containers' => [ - 0, - 1 - ], - 'check-syntax' => [ - 0, - 1 - ], - 'backup-file-extension' => [ - 'bak', - '~' + 'delete-block-comments' => [ + 0, + 1 ], - 'look-for-hash-bang' => [ - 0, - 1 - ], - 'break-before-hash-brace-and-indent' => [ - 0, - 1, - 2 - ], - 'blank-lines-before-subs' => [ - 0, - 1 - ], - 'blank-lines-before-closing-block-list' => [ - '*' - ], - 'delete-side-comments' => [ + 'brace-vertical-tightness-closing' => [ + 0, + 1, + 2 + ], + 'static-side-comments' => [ 0, 1 ], - 'one-line-block-semicolons' => [ - 0, - 1, - 2 - ], - 'keyword-group-blanks-repeat-count' => [ - 0 - ], - 'break-before-square-bracket' => [ - 0 + 'valign-inclusion-list' => [ + '=' + ], + 'keep-old-breakpoints-before' => [ + '=> ,' ], - 'static-block-comment-prefix' => [ - '#x#' + 'quiet' => [ + 0, + 1 + ], + 'break-before-paren-and-indent' => [ + 0, + 1, + 2 + ], + 'keyword-group-blanks-inside' => [ + 0, + 1 ], - 'space-backslash-quote' => [ - 0, - 1, - 2 - ], - 'closing-side-comments-balanced' => [ - 0, - 1 - ], - 'outdent-labels' => [ - 0, - 1 - ], - 'closing-square-bracket-indentation' => [ - 0, - 1, - 2 - ], + 'break-before-square-bracket-and-indent' => [ + 0 + ], + 'blanks-before-blocks' => [ + 0, + 1 + ], + 'closing-side-comment-maximum-text' => [ + 20, + 40 + ], 'add-whitespace' => [ 0, 1 ], - 'recombine' => [ - 0, - 1 - ], - 'format-skipping-end' => [ - '#>{2,}' - ], - 'break-after-all-operators' => [ - 0, - 1 + 'break-at-old-comma-breakpoints' => [ + 0, + 1 + ], + 'keep-old-blank-lines' => [ + 0, + 1, + 2 + ], + 'stack-closing-hash-brace' => [ + 0, + 1 + ], + 'closing-side-comment-list' => [ + 'sub' ], - 'character-encoding' => [ - 'guess' - ], - 'want-break-after' => [ - '% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x= . << >> -> && ||' - ], - 'blank-lines-before-closing-block' => [ - 1 - ], - 'whitespace-cycle' => [ - 4 - ], - 'keyword-paren-inner-tightness' => [ + 'indent-columns' => [ + 0, + 2, + 4 + ], + 'indent-spaced-block-comments' => [ + 0, + 1 + ], + 'outdent-static-block-comments' => [ 0, 1 ], - 'break-before-hash-brace' => [ - 0, - 2, - 3 + 'weld-nested-exclusion-list' => [ + '.K{', + '.K{ ^{ [', + '^K( [ { q', + '^[' + ], + 'static-block-comment-prefix' => [ + '#x#' + ], + 'static-block-comments' => [ + 0, + 1 + ], + 'extended-continuation-indentation' => [ + 0, + 1 + ], + 'comma-arrow-breakpoints' => [ + 1, + 5 ], - 'blanks-before-blocks' => [ + 'square-bracket-vertical-tightness-closing' => [ + 0, + 1, + 2 + ], + 'non-indenting-braces' => [ 0, 1 ], - 'maximum-fields-per-table' => [ - 0 - ], - 'closing-side-comment-list' => [ - 'sub' + 'break-after-all-operators' => [ + 0, + 1 ], + 'maximum-level-errors' => [ + 1 + ], 'hanging-side-comments' => [ 0, 1 ], - 'outdent-long-comments' => [ - 0, - 1 - ], - 'format-skipping-begin' => [ - '#<{2,}' - ], - 'blanks-before-comments' => [ - 0, - 1 - ], - 'keep-old-blank-lines' => [ + 'blank-lines-before-packages' => [ + 0, + 1 + ], + 'indent-closing-brace' => [ 0, - 1, - 2 + 1 ], - 'space-prototype-paren' => [ - 0, - 1, - 2 - ], - 'quiet' => [ - 0, - 1 - ], - 'break-at-old-logical-breakpoints' => [ - 0, - 1 - ], - 'outdent-static-block-comments' => [ - 0, - 1 - ], - 'stack-closing-hash-brace' => [ + 'perl-syntax-check-flags' => [ + '-c -T' + ], + 'brace-left-list' => [ + 'sub do asub' + ], + 'continuation-indentation' => [ 0, - 1 - ], - 'blank-lines-after-opening-block-list' => [ - '*' - ], - 'standard-error-output' => [ - 0, - 1 - ], - 'space-for-semicolon' => [ - 0, - 1 - ], - 'minimum-space-to-comment' => [ - 10, 2, 4 ], - 'warning-output' => [ - 0, - 1 - ], - 'break-before-paren' => [ - 0, - 2, - 3 + 'blanks-before-comments' => [ + 0, + 1 + ], + 'want-break-after' => [ + '% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x= . << >> -> && ||' + ], + 'blank-lines-before-closing-block-list' => [ + '*' + ], + 'character-encoding' => [ + 'guess' ], - 'closing-side-comment-else-flag' => [ - 0 - ], - 'square-bracket-vertical-tightness' => [ - 0, - 1, - 2 - ], - 'blank-lines-after-opening-block' => [ - 2 - ], - 'extended-continuation-indentation' => [ - 0, - 1 - ], - 'brace-tightness' => [ - 0, - 1, - 2 - ], - 'outdent-keyword-list' => [ - 'next' - ], - 'variable-maximum-line-length' => [ - 0, - 1 - ] + 'opening-anonymous-sub-brace-on-new-line' => [ + 0, + 1 + ], + 'cuddled-else' => [ + 0, + 1 + ] }; diff --git a/t/snippets/expect/code_skipping.code_skipping b/t/snippets/expect/code_skipping.code_skipping new file mode 100644 index 00000000..4ef0790d --- /dev/null +++ b/t/snippets/expect/code_skipping.code_skipping @@ -0,0 +1,10 @@ +%Hdr = %U2E = %E2U = %Fallback = (); +$in_charmap = $nerror = $nwarning = 0; +$. = 0; +#<>V +my $self = shift; +my $cloning = shift; diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt index a88b7d6f..ec4c13d1 100644 --- a/t/snippets/packing_list.txt +++ b/t/snippets/packing_list.txt @@ -359,6 +359,7 @@ ../snippets26.t git105.def ../snippets26.t git106.def ../snippets26.t git106.git106 +../snippets26.t c154.def ../snippets3.t ce_wn1.ce_wn ../snippets3.t ce_wn1.def ../snippets3.t colin.colin @@ -499,4 +500,4 @@ ../snippets9.t rt98902.def ../snippets9.t rt98902.rt98902 ../snippets9.t rt99961.def -../snippets26.t c154.def +../snippets26.t code_skipping.code_skipping diff --git a/t/snippets26.t b/t/snippets26.t index 8b4c563b..c553ac72 100644 --- a/t/snippets26.t +++ b/t/snippets26.t @@ -15,6 +15,7 @@ #12 git106.def #13 git106.git106 #14 c154.def +#15 code_skipping.code_skipping # To locate test #13 you can search for its name or the string '#13' @@ -32,8 +33,14 @@ BEGIN { # BEGIN SECTION 1: Parameter combinations # ########################################### $rparams = { - 'bal2' => "-bal=2", - 'c133' => "-boc", + 'bal2' => "-bal=2", + 'c133' => "-boc", + 'code_skipping' => <<'----------', +# same as the default but tests -cs -csb and -cse +--code-skipping +--code-skipping-begin='#< "", 'drc' => "-drc", 'git106' => "-xlp -gnu -xci", @@ -144,6 +151,19 @@ for ( ...; } }}}} +---------- + + 'code_skipping' => <<'----------', +%Hdr=%U2E=%E2U=%Fallback=(); +$in_charmap=$nerror=$nwarning=0; +$.=0; +#<>V +my $self=shift; +my $cloning=shift; ---------- 'drc' => <<'----------', @@ -713,6 +733,23 @@ abcdefghijklmnopq } #14........... }, + + 'code_skipping.code_skipping' => { + source => "code_skipping", + params => "code_skipping", + expect => <<'#15...........', +%Hdr = %U2E = %E2U = %Fallback = (); +$in_charmap = $nerror = $nwarning = 0; +$. = 0; +#<>V +my $self = shift; +my $cloning = shift; +#15........... + }, }; my $ntests = 0 + keys %{$rtests};