mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 20:42:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: add test for expansions of mapcar and vector-push

Browse source
This commit is contained in:
Daniel Kochmanski 2017-08-10 20:22:12 +02:00
parent 6d8b0e7f62
commit 45d5176c0e
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/tests/normal-tests/compiler.lsp
View file

@ -1243,3 +1243,17 @@
(funcall (compile nil
'(lambda ()
(eql 10d0 ext:double-float-positive-infinity))))))
;;; Date 2017-08-10
;;; Description
;;;
;;; Confirm, that malformed code compiles (errors should be issued
;;; at runtime).
(test cmp.0057.expand
(let (fun)
;; expand-mapcar
(is (setf fun (compile nil '(lambda () (mapcar)))))
(signals program-error (funcall fun))
;; expand-vector-push
(is (setf fun (compile nil '(lambda () (vector-push)))))
(signals program-error (funcall fun))))