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

add regression test for #329

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-20 17:50:47 +01:00
parent 25b25fc1bd
commit a302a2e36c
1 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/tests/normal-tests/mixed.lsp
View file

@ -178,7 +178,7 @@
;;;; Created: 2016-09-07
;;;; Contains: External process interaction API
;;;;
(test external-process.0001.run-program
(test mix.0011.run-program
(let ((p (nth-value 2 (ext:run-program #-windows "sleep"
#+windows "timeout"
(list "3") :wait nil))))
@ -195,3 +195,19 @@
(finishes (ext:terminate-process p))))
;;; Date: 2016-12-20
;;; Reported by: Kris Katterjohn
;;; Fixed: Daniel Kochmański
;;; Description:
;;;
;;; atan signalled `division-by-zero' exception when the second
;;; argument was signed zero. Also inconsistent behavior on invalid
;;; operation (atan 0.0 0.0).
;;;
;;; Bug: https://gitlab.com/embeddable-common-lisp/ecl/issues/329
(test mix.0012.atan-signed-zero
(finishes (atan 1.0 -0.0))
(signals floating-point-invalid-operation (atan -0.0 -0.0))
(signals floating-point-invalid-operation (atan +0.0 -0.0))
(signals floating-point-invalid-operation (atan -0.0 +0.0))
(signals floating-point-invalid-operation (atan +0.0 +0.0)))