(in-package :cl-user)
 (defpackage cl-yaml-test.float
   (:use :cl :fiveam)

   (:export :float)
   (:documentation "Test floating-point number support."))

 (in-package :cl-yaml-test.float)
 
 (def-suite float
   :description "YAML IEEE float tests.")
 (in-suite float)
 
 (test not-a-number
   (is
    (equal (yaml.float:not-a-number)
           :NaN))
   (is
    (equal (yaml.float:positive-infinity)
           :+Inf))
   (is
    (equal (yaml.float:negative-infinity)
           :-Inf)))
 
 #+sbcl
 (test sbcl-nan
   (let ((yaml.float:*float-strategy* :best-effort))
     (is-true
      (sb-ext:float-nan-p (yaml.float:not-a-number)))
     (is-true
      (sb-ext:float-infinity-p (yaml.float:positive-infinity)))
     (is-true
      (sb-ext:float-infinity-p (yaml.float:negative-infinity)))))

 
 (test error-strategy
   (let ((yaml.float:*float-strategy* :error))
     (signals yaml.error:unsupported-float-value
       (yaml.float:not-a-number))
     (signals yaml.error:unsupported-float-value
       (yaml.float:positive-infinity))
     (signals yaml.error:unsupported-float-value
       (yaml.float:negative-infinity))))