Commit 38d15bbf authored by Karsten Poeck's avatar Karsten Poeck

update to latest clasp dev

parent 37040c76
......@@ -13,34 +13,13 @@
(make-pathname :directory base-directory))))
(when (probe-file dir)
(core::rmdir dir))))
;;;(load (compile-file "sys:regression-tests;activate-eclector.lisp"))
(progn
(rt:disable-note :nil-vectors-are-strings)
(rt:disable-note :allow-nil-arrays)
(rt:disable-note :make-condition-with-compound-name)
(rt:rem-test 'cl-test::print.cons.random.2)
(rt:rem-test 'cl-test::print.vector.random.4)
#-karsten (rt:rem-test 'cl-test::mapcon.2)
#+cst (rt:rem-test 'cl-test::shared-initialize.error.2)
#+cst (rt:rem-test 'cl-test::map.error.3)
#+cst (rt:rem-test 'cl-test::copy-pprint-dispatch.error.2)
#+cst (rt:rem-test 'cl-test::map.error.3)
#+cst (rt:rem-test 'cl-test::make-instance.error.5)
#-karsten (rt:rem-test 'cl-test::print.ratios.random)
#-karsten (rt:rem-test 'cl-test::print.complex.random.2)
#-karsten (rt:rem-test 'cl-test::print.backquote.random.13)
#-karsten (rt:rem-test 'cl-test::syntax.sharp-x.13)
#-karsten (rt:rem-test 'cl-test::syntax.sharp-x.14)
;;; (rt:rem-test 'cl-test::every.error.14)
;;; (rt:rem-test 'cl-test::some.error.14)
;;; (rt:rem-test 'cl-test::input-stream-p.error.3)
;;; (rt:rem-test 'cl-test::output-stream-p.error.3)
;;; (rt:rem-test 'cl-test::interactive-stream-p.error.1)
;;; (rt:rem-test 'cl-test::stream-element-type.error.3)
)
;;; Fixed in https://github.com/clasp-developers/clasp/pull/1001
(rt:rem-test 'cl-test::print.complex.random.2)
)
......@@ -53,29 +53,38 @@ sbcl --load "doit-clasp.lsp"
new eclector
164 out of 21852 total tests failed:
SYNTAX.NUMBER-TOKEN.3, SYNTAX.NUMBER-TOKEN.4.
|#
(defun get-last-failures ()
;;; they must be all from package :cl-test
(assure-symbol-list
;;; fails sometimes
PRINT.SYMBOL.RANDOM.4
PRINT.SYMBOL.RANDOM.3
COMPILE-FILE.6
COMPILE-FILE.8
COMPILE-FILE.14
;;; fails sometimes
;;; PRINT.CONS.RANDOM.1
;;; PRINT.SYMBOL.RANDOM.4
;;; PRINT.SYMBOL.RANDOM.3
;;; PRINT.BACKQUOTE.RANDOM.14
PRINT.ARRAY.2.25
PRINT.ARRAY.2.26
SET-SYNTAX-FROM-CHAR.BACKQUOTE
SET-SYNTAX-FROM-CHAR.COMMA
;;; COMPILE-FILE.6
;;; COMPILE-FILE.8
;;; COMPILE-FILE.14
PRINT.DOUBLE-FLOAT.RANDOM
PRINT.LONG-FLOAT.RANDOM
PRINT.CONS.RANDOM.1
PRINT.BACKQUOTE.RANDOM.1
PRINT.BACKQUOTE.RANDOM.5
PRINT.BACKQUOTE.RANDOM.10
PRINT.BACKQUOTE.RANDOM.11
PRINT.BACKQUOTE.RANDOM.14
PRINT.VECTOR.RANDOM.1
PRINT.VECTOR.RANDOM.2
PRINT.VECTOR.RANDOM.3
PRINT.ARRAY.0.11
;;; PRINT.ARRAY.0.11
PRINT.ARRAY.2.21
PRINT.ARRAY.2.22
PRINT.ARRAY.2.23
......@@ -99,8 +108,8 @@ new eclector
;;; READ-SUPPRESS.SHARP-SHARP.3
;;; READ-SUPPRESS.SHARP-SHARP.4
;;; SYNTAX.DIGITS.ALPHABETIC.1
SYNTAX.NUMBER-TOKEN.3
SYNTAX.NUMBER-TOKEN.4
;;; SYNTAX.NUMBER-TOKEN.3
;;; SYNTAX.NUMBER-TOKEN.4
;;; SYNTAX.COMMA-ERROR.1
MISC.273
;;; new after the 2 new binary format (fasp,faso)
......@@ -112,7 +121,7 @@ new eclector
FORMAT.E.26
;;; The loop macro has bugs with regarding to wrong declarations
;;; with (optimize (safety 3)) errors are thrown
LOOP.10.87
;;; LOOP.10.87
;;; these no longer crash, but fail
EXP.ERROR.6
EXP.ERROR.7
......@@ -133,7 +142,7 @@ new eclector
FUNCALL.ERROR.3
ATAN.IEEE.2
READ-SUPPRESS.17
SET-SYNTAX-FROM-CHAR.SINGLE-ESCAPE.2
;;; SET-SYNTAX-FROM-CHAR.SINGLE-ESCAPE.2
SET-SYNTAX-FROM-CHAR.DOUBLE-QUOTE
SET-SYNTAX-FROM-CHAR.SHARP.1
SYMBOL-MACROLET.ERROR.2
......@@ -229,7 +238,6 @@ new eclector
PRINT.RANDOM-STATE.1
FORMAT.LOGICAL-BLOCK.23
READ-SYMBOL.19
SET-SYNTAX-FROM-CHAR.SINGLE-ESCAPE.2
SET-SYNTAX-FROM-CHAR.DOUBLE-QUOTE
SET-SYNTAX-FROM-CHAR.SHARP.1
;;; SYNTAX.NUMBER-TOKEN.ERROR.1
......@@ -241,8 +249,8 @@ new eclector
MISC.577
PRINT.BACKQUOTE.RANDOM.13
PRINT.VECTOR.RANDOM.4
MAKE-LOAD-FORM.ERROR.2
NEXT-METHOD-P.ERROR.1
;;; MAKE-LOAD-FORM.ERROR.2
;;; NEXT-METHOD-P.ERROR.1
CELL-ERROR-NAME.ERROR.2
PACKAGE-ERROR-PACKAGE.ERROR.2
ARITHMETIC-ERROR-OPERATION.ERROR.2
......
......@@ -33,10 +33,13 @@
(in-package :cl-test)
(time
(let ((*random-state* (make-random-state t)))
(test-random-integer-forms 100 4 2000)))
;(load "~/fork-ansi-test/doit-clasp-random-tester.lsp" :print t)
(handler-bind ((style-warning #'muffle-warning))
(test-random-integer-forms 100 4 200))))
#|
(load "~/fork-ansi-test/doit-clasp-random-tester.lsp" :print t)
(load "~/pfdietz-ansi-test/doit-clasp-random-tester.lsp" :print t)
|#
......
......@@ -81,7 +81,7 @@
(format t "Package ~S~%" p)
(not (with-package-iterator-internal (list p))))
(error (c)
(format "Error ~S on package ~A~%" c p)
(format t "Error ~S on package ~A~%" c p)
t)))
0)
......@@ -93,7 +93,7 @@
(format t "Package ~S~%" p)
(not (with-package-iterator-external (list p))))
(error (c)
(format "Error ~S on package ~A~%" c p)
(format t "Error ~S on package ~A~%" c p)
t)))
0)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment