Make phpinspect--match-sequence return nil unless entire sequence matches

phpinspect-util.el

@@ -238,8 +238,8 @@ it evaluates to a non-nil value."
             (,match-sym (cons nil nil))
             (,match-rear-sym ,match-sym))
        (and (= ,sequence-length (length ,sequence))
-            ,@checkers)
-       (cdr ,match-sym))))
+            ,@checkers
+            (cdr ,match-sym)))))
 
 (defun phpinspect--pattern-concat (pattern1 pattern2)
   (let* ((pattern1-sequence-length (/ (length (phpinspect--pattern-code pattern1)) 2)))

test/test-util.el

@@ -48,3 +48,10 @@
     (should (equal '(:m "a" :m * :m "b" :f stringp :m * :m "D") (phpinspect--pattern-code result)))
 
     (should (phpinspect--pattern-match result '("a" "anything" "b" "astring" nil "D")))))
+
+(ert-deftest phpinspect--pattern-match-partially ()
+  (let ((result (phpinspect--match-sequence '((:variable "this") (:object-attrib (:word "em")))
+                  :m '(:variable "this")
+                  :m '(:object-attrib (:word "not-a-match")))))
+
+    (should-not result)))