[Git][cmucl/cmucl][issue-193-nil-unspecific-equivalent] Add tests for nil being equivalent to :unspecific

[Raymond Toy (@rtoy)]

Raymond Toy pushed to branch issue-193-nil-unspecific-equivalent at cmucl / cmucl


Commits:
dd8b90e0 by Raymond Toy at 2023-04-29T07:33:03-07:00
Add tests for nil being equivalent to :unspecific

Handle the device, name, and type components.

- - - - -


1 changed file:

- tests/issues.lisp


Changes:

=====================================
tests/issues.lisp
=====================================
@@ -944,3 +944,21 @@
     (assert-true (typep idf-max-expo 'kernel:double-float-int-exponent))
     (assert-true (typep (1- idf-max-expo) 'kernel:double-float-int-exponent))
     (assert-false (typep (1+ idf-max-expo) 'kernel:double-float-int-exponent))))
+
+(define-test issue.192.device
+  (assert-true (equal (make-pathname :device :unspecific)
+		      (make-pathname :device nil)))
+  (assert-true (equal (make-pathname :device nil)
+		      (make-pathname :device :unspecific))))
+
+(define-test issue.192.name
+  (assert-true (equal (make-pathname :name :unspecific)
+		      (make-pathname :name nil)))
+  (assert-true (equal (make-pathname :name nil)
+		      (make-pathname :name :unspecific))))
+
+(define-test issue.192.type
+  (assert-true (equal (make-pathname :type :unspecific)
+		      (make-pathname :type nil)))
+  (assert-true (equal (make-pathname :type nil)
+		      (make-pathname :type :unspecific))))



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/dd8b90e0244f9c496ce31b22dc7786f8689e6655

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/dd8b90e0244f9c496ce31b22dc7786f8689e6655
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20230429/38308862/attachment-0001.html>