From 746b52bf3f64f5257e06f7edebc54c4827ea7e58 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Sat, 23 Apr 2016 01:15:30 +0300 Subject: [PATCH] Add a test for adjust array. --- tests/array.pure.lisp | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/tests/array.pure.lisp b/tests/array.pure.lisp index d3ffe4501..24441e7da 100644 --- a/tests/array.pure.lisp +++ b/tests/array.pure.lisp @@ -397,3 +397,11 @@ (let ((array (make-array 10 :fill-pointer t))) (assert (= (fill-pointer (adjust-array array 5 :fill-pointer 2)) 2)))) + +(with-test (:name :adjust-array-initial-element) + (assert (equal (funcall + (checked-compile + `(lambda (x) + (adjust-array x 5 :initial-element #\x))) + "abc") + "abcxx"))) -- 2.11.4.GIT