@@ -6,5 +6,6 @@

   :components ((:module "t"

                 :serial t

                 :components

-                ((:file "parser")

+                ((:file "float")

+                 (:file "parser")

                  (:file "cl-yaml")))))

new file mode 100644

@@ -0,0 +1,30 @@

+(in-package :cl-user)

+(defpackage cl-yaml-test.float

+  (:use :cl :fiveam)

+  (:export :float))

+(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)))))