From 45d5176c0ee4311f4bd40dd60ccfa2bd1e5e277e Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Thu, 10 Aug 2017 20:22:12 +0200 Subject: [PATCH] tests: add test for expansions of mapcar and vector-push --- src/tests/normal-tests/compiler.lsp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/src/tests/normal-tests/compiler.lsp b/src/tests/normal-tests/compiler.lsp index 0a203fcf1..0d558f361 100644 --- a/src/tests/normal-tests/compiler.lsp +++ b/src/tests/normal-tests/compiler.lsp @@ -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))))