mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

Update changelog and add tests for condition readers

Browse source
This commit is contained in:
Tarn W. Burton 2021-10-02 10:53:30 -04:00
parent bc0e2dbf99
commit 10947989ed
4 changed files with 29 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
CHANGELOG
View file

@ -33,6 +33,7 @@
to utf-8 on Unix and may be changed using ~ext:*default-external-format*~
(Windows always uses the utf-16 format provided by the OS).
- Add hook functions for cl:ed via ext:*ed-functions* list)
- Signal type-error in condition readers for WSCL conformance.
* 21.2.1 changes since 20.4.24
** Announcement
Dear Community,

3
src/tests/ecl-tests.asd
View file

@ -26,7 +26,8 @@
(:file "hash-tables")
(:file "external-formats" :if-feature :unicode)
(:file "unicode" :if-feature :unicode)
(:file "complex")))
(:file "complex")
(:file "wscl")))
(:module stress-tests
:default-component-class asdf:cl-source-file.lsp
:components

2
src/tests/ecl-tests.lisp
View file

@ -22,7 +22,7 @@
;;;; Declare the suites
(suite 'make-check
'(executable ieee-fp eprocess package-ext hash-tables ansi+ mixed
cmp emb ffi mop run-program mp complex #+unicode unicode))
cmp emb ffi mop run-program mp complex wscl #+unicode unicode))
(suite 'ecl-tests
'(make-check eformat))

25
src/tests/normal-tests/wscl.lsp Normal file
View file

@ -0,0 +1,25 @@
;;;; -*- Mode: Lisp; Syntax: Common-Lisp; indent-tabs-mode: nil -*-
;;;; vim: set filetype=lisp tabstop=8 shiftwidth=2 expandtab:
(in-package :cl-test)
(suite 'wscl)
;;;; Author: Tarn W. Burton
;;;; Created: 2021-10-02
;;;; Contains: type-errors for condition readers
(test wscl.0001.condition-readers-type-error
(signals type-error (arithmetic-error-operands 234))
(signals type-error (arithmetic-error-operation 234))
(signals type-error (cell-error-name 234))
(signals type-error (file-error-pathname 234))
(signals type-error (package-error-package 234))
(signals type-error (print-not-readable-object 234))
(signals type-error (simple-condition-format-arguments 234))
(signals type-error (simple-condition-format-control 234))
(signals type-error (stream-error-stream 234))
(signals type-error (type-error-datum 234))
(signals type-error (type-error-expected-type 234))
(signals type-error (unbound-slot-instance 234)))