(save-excursion
(python-nav-beginning-of-statement)
(when (and (not (python-syntax-context-type))
- (looking-at (python-rx dedenter)))
+ (looking-at (python-rx dedenter))
+ ;; Exclude the first "case" in the block.
+ (not (and (string= (match-string-no-properties 0)
+ "case")
+ (save-excursion
+ (back-to-indentation)
+ (python-util-forward-comment -1)
+ (equal (char-before) ?:)))))
(point))))
(defun python-info-line-ends-backslash-p (&optional line-number)
(equal (list (python-tests-look-at "if (" -1 t))
(python-info-dedenter-opening-block-positions)))))
+(ert-deftest python-info-dedenter-opening-block-positions-7 ()
+ "Test case blocks."
+ (python-tests-with-temp-buffer
+ "
+match a:
+ case 1:
+ match b:
+ case 2:
+ something()
+ case 3:
+"
+ (python-tests-look-at "case 1:")
+ (should-not (python-info-dedenter-opening-block-positions))
+ (python-tests-look-at "case 2:")
+ (should-not (python-info-dedenter-opening-block-positions))
+ (python-tests-look-at "case 3:")
+ (equal (list (python-tests-look-at "case 2:" -1)
+ (python-tests-look-at "case 1:" -1 t))
+ (python-info-dedenter-opening-block-positions))))
+
(ert-deftest python-info-dedenter-opening-block-message-1 ()
"Test dedenters inside strings are ignored."
(python-tests-with-temp-buffer
(point))
(python-info-dedenter-statement-p)))))
+(ert-deftest python-info-dedenter-statement-p-6 ()
+ "Test case keyword."
+ (python-tests-with-temp-buffer
+ "
+match a: # Comment
+ case 1:
+ match b:
+ case 2:
+ something()
+ case 3:
+"
+ (python-tests-look-at "case 1:")
+ (should-not (python-info-dedenter-statement-p))
+ (python-tests-look-at "case 2:")
+ (should-not (python-info-dedenter-statement-p))
+ (python-tests-look-at "case 3:")
+ (should (= (point) (python-info-dedenter-statement-p)))))
+
(ert-deftest python-info-line-ends-backslash-p-1 ()
(python-tests-with-temp-buffer
"