IS-VALUES ignores number of values

[3b]

(define-test values
  (is-values (values) (= 1))
  (is-values (values 2)))

(test 'values)

        ？ VALUES
  0.000 ✔   (is-values (values) (= 1))
  0.000 ✔   (is-values (values 2))
  0.004 ✔ VALUES

;; Summary:
Passed:     2
Failed:     0
Skipped:    0
#<PLAIN 3, PASSED results>

I'd expect both to fail (or at least to have an option for that)

using (is equalp '(...) (multiple-value-list ...l)) as a workaround, but lose ability to specify comparator that way.