Changeset 15277


Ignore:
Timestamp:
05/13/20 06:04:40 (6 months ago)
Author:
Mark Evenson
Message:

t/compiler: add test failures reported by pdietz

Start ormalizing common form for problems in the compiler.

Additional failures reported by Paul Dietz in

<https://mailman.common-lisp.net/pipermail/armedbear-devel/2020-May/004054.html>
<https://mailman.common-lisp.net/pipermail/armedbear-devel/2020-May/004055.html>

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/t/compiler.lisp

    r15217 r15277  
    22
    33;;; FIXME test shouldn't signal error
    4 (prove:is-error
    5  (compile-file (asdf:system-relative-pathname :abcl "t/eg/compiler-fails-on-inline-recursion.lisp"))
    6  'compiler-error
    7  "FIXME: this test should not result in a STORAGE-CONDITION as a compiler error")
     4(prove:plan 1)
     5(let ((file (asdf:system-relative-pathname :abcl
     6                                           "t/eg/compiler-fails-on-inline-recursion.lisp")))
     7  (prove:ok
     8   (handler-case
     9       (compile-file file)
     10     ;;; anything signalled as error is a failure
     11     (t (e) (prove:diag (format nil "Compilation failed signalling ~a" e))))
     12   (format nil "Compiling '~a'~%" file)))
     13     
     14;; <https://mailman.common-lisp.net/pipermail/armedbear-devel/2020-May/004054.html>
     15(prove:plan 1)
     16(prove:ok
     17  (handler-case
     18      (multiple-value-bind (compiled-function warnings failure)
     19          (compile nil '(lambda () ((lambda () ((lambda () 0))))))
     20        (equal
     21         (compiled-function warnings failure)
     22         (t nil nil)))
     23    (t (e) (prove:diag (format nil "Compilation failed signalling ~a" e))))
     24  "Able to compile nested lambda expression")
     25
     26;; <https://mailman.common-lisp.net/pipermail/armedbear-devel/2020-May/004055.html>
     27(prove:plan 1)
     28(prove:ok
     29 (handler-case
     30     (multiple-value-bind (compiled-function warnings failure)
     31         (compile nil '(lambda () (dotimes (i 1 2) (catch 'c 3))))
     32       (equal
     33        (compiled-function warnings failure)
     34        (t nil nil)))
     35   (t (e) (prove:diag (format nil "Compilation failed signalling ~a" e))))
     36 "Able to compile tagbody not found form.")
    837
    938(prove:finalize)
Note: See TracChangeset for help on using the changeset viewer.