diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/progmodes/cperl-mode-tests.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/test/lisp/progmodes/cperl-mode-tests.el b/test/lisp/progmodes/cperl-mode-tests.el index 1f3c0ca3213..958ffe38a8b 100644 --- a/test/lisp/progmodes/cperl-mode-tests.el +++ b/test/lisp/progmodes/cperl-mode-tests.el | |||
| @@ -622,10 +622,9 @@ Also includes valid cases with whitespace in strange places." | |||
| 622 | "Test subroutine signatures." | 622 | "Test subroutine signatures." |
| 623 | (skip-unless (eq cperl-test-mode #'cperl-mode)) | 623 | (skip-unless (eq cperl-test-mode #'cperl-mode)) |
| 624 | (let ((valid | 624 | (let ((valid |
| 625 | '("()" "( )" "($self, %params)" "(@params)")) | 625 | '("()" "( )" "($self, %params)" "(@params)" "($first,$)")) |
| 626 | (invalid | 626 | (invalid |
| 627 | '("$self" ; missing paren | 627 | '("$self" ; missing paren |
| 628 | "($)" ; a subroutine signature | ||
| 629 | "($!)" ; globals not permitted in a signature | 628 | "($!)" ; globals not permitted in a signature |
| 630 | "(@par,%options)" ; two slurpy parameters | 629 | "(@par,%options)" ; two slurpy parameters |
| 631 | "{$self}"))) ; wrong type of paren | 630 | "{$self}"))) ; wrong type of paren |