ACL 10.1, MS Windows: 18 Test Failures
On ACL 10.1, MS Windows, there are 18 test failures:
18 unexpected failures: NET.COMMON-LISP.OCT::OCT.CARLSON-RF.1Q,
NET.COMMON-LISP.OCT::OCT.CARLSON-RF.CONTAGION.1Q,
NET.COMMON-LISP.OCT::OCT.CARLSON-RF.CONTAGION.2Q,
NET.COMMON-LISP.OCT::OCT.CARLSON-RF.CONTAGION.3Q,
NET.COMMON-LISP.OCT::EXPINTEGRAL-E.6Q,
NET.COMMON-LISP.OCT::BESSEL-J.NEG-ORDER.D.2,
NET.COMMON-LISP.OCT::BESSEL-J.NEG-ORDER.D.3,
NET.COMMON-LISP.OCT::BESSEL-J.NEG-ORDER.D.5,
NET.COMMON-LISP.OCT::BESSEL-J.NEG-ORDER.D.6,
NET.COMMON-LISP.OCT::BESSEL-J.NEG-ORDER.D.7,
NET.COMMON-LISP.OCT::BESSEL-J.POS-ORDER.D.1,
NET.COMMON-LISP.OCT::BESSEL-J.POS-ORDER.D.2,
NET.COMMON-LISP.OCT::BESSEL-J.POS-ORDER.D.3,
NET.COMMON-LISP.OCT::BESSEL-J.POS-ORDER.D.4,
NET.COMMON-LISP.OCT::BESSEL-J.POS-ORDER.D.5,
NET.COMMON-LISP.OCT::BESSEL-J-COMPLEX-ARG.D.1,
NET.COMMON-LISP.OCT::BESSEL-J-COMPLEX-ARG.D.2,
NET.COMMON-LISP.OCT::BESSEL-J-COMPLEX-ARG.D.3.
3 unexpected successes: NET.COMMON-LISP.OCT::OCT.ATANH-BRANCH-NEG.1,
NET.COMMON-LISP.OCT::OCT.ATANH-BRANCH-POS.1,
NET.COMMON-LISP.OCT::OCT.ELLIPTIC-PI.N2.D-1.
Also, there are two test-ops defined in the ASD file. One that looks newly added:
(defmethod perform ((op test-op) (c (eql (asdf:find-system :oct/tests))))
(let* ((rt-package (find-package "RT"))
(pass (funcall (intern "DO-TESTS" rt-package)))
(unexpected-failures (symbol-value (find-symbol "*UNEXPECTED-FAILURES*" rt-package)))
(unexpected-successes (symbol-value (find-symbol "*UNEXPECTED-SUCCESSES*" rt-package))))
(or (and (null unexpected-failures) (null unexpected-successes))
(error "TEST-OP failed for OCT-TESTS"))))
and an older one:
(defmethod perform ((op test-op) (c (eql (asdf:find-system :oct))))
(oos 'test-op 'oct-tests))
Are they both supposed to be there?