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/dd8b90e0244f9c496ce31b22...