96 lines
3.7 KiB
Common Lisp
96 lines
3.7 KiB
Common Lisp
;;;; activity-servist/tests/vocab/activity: Testing activity-vocabulary.
|
||
|
||
;; Copyright © 2024 Jaidyn Levesque <jadedctrl@posteo.at>
|
||
;;
|
||
;; This program is free software: you can redistribute it and/or
|
||
;; modify it under the terms of the GNU Affero General Public License
|
||
;; as published by the Free Software Foundation, either version 3 of
|
||
;; the License, or (at your option) any later version.
|
||
;;
|
||
;; This program is distributed in the hope that it will be useful,
|
||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;; GNU Affero General Public License for more details.
|
||
;;
|
||
;; You should have received a copy of the GNU Affero General Public License
|
||
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
||
|
||
(defpackage :activity-servist/tests/vocab/activity
|
||
(:use :cl :lisp-unit2)
|
||
(:nicknames "AS/T/V/A")
|
||
(:export :run :run-with-summary))
|
||
|
||
(in-package :activity-servist/tests/vocab/activity)
|
||
|
||
(defun run ()
|
||
"Run all ACTIVITY-VOCABULARY tests."
|
||
(let ((json-ld:*default-json-type* "https://www.w3.org/ns/activitystreams#Object"))
|
||
(lisp-unit2:run-tests :package :activity-servist/tests/vocab/activity)))
|
||
|
||
(defun run-with-summary ()
|
||
"Run tests with summary for ACTIVITY-VOCABULARY."
|
||
(lisp-unit2:with-summary()
|
||
(run)))
|
||
|
||
|
||
|
||
;;; Util
|
||
;;; ————————————————————————————————————————
|
||
(defmacro relative-pathname (path)
|
||
"Return an absolute path adding the relative PATH to the system’s path."
|
||
`(asdf:system-relative-pathname :activity-servist/tests/vocab/activity ,path))
|
||
|
||
(defmacro define-json-test (path tags)
|
||
"Define a lisp-unit2 test for parsing of the given JSON file.
|
||
We compare the original JSON to that of the parsed-then-reserialized JSON,
|
||
ensuring they are semantically equivalent. White-space and key order are ignored."
|
||
(let ((content (alexandria:read-file-into-string (relative-pathname path))))
|
||
`(define-test ,(intern (format nil "EX-~A" (string-upcase (pathname-name path))))
|
||
(:tags ,tags)
|
||
(assert-equal
|
||
(hash-table-sorted-alist
|
||
(yason:parse ,content))
|
||
(hash-table-sorted-alist
|
||
(yason:parse
|
||
(yason:with-output-to-string* ()
|
||
(yason:encode-object
|
||
(json-ld:parse ,content)))))))))
|
||
|
||
(defun sort-alist (alist predicate)
|
||
"Sort an associative list by its keys."
|
||
(sort alist
|
||
(lambda (cell-a cell-b)
|
||
(apply predicate (list (car cell-a) (car cell-b))))))
|
||
|
||
(defun ensure-list (item)
|
||
"Ensure ITEM is either a list or the sole member of a new list."
|
||
(if (listp item)
|
||
item
|
||
(list item)))
|
||
|
||
(defun hash-table-sorted-alist (table &optional (predicate #'string<))
|
||
"Return a sorted associative list containing the keys and values of TABLE.
|
||
Any nested hash-tables found as values are also sorted, recursively."
|
||
(sort-alist
|
||
(mapcar (lambda (cell)
|
||
(cons (car cell)
|
||
(mapcar (lambda (cell-item)
|
||
(if (hash-table-p cell-item)
|
||
(hash-table-sorted-alist cell-item)
|
||
cell-item))
|
||
(ensure-list (cdr cell)))))
|
||
(alexandria:hash-table-alist table))
|
||
predicate))
|
||
|
||
|
||
|
||
;;; Test definitions
|
||
;;; ————————————————————————————————————————
|
||
;; Define a test for each ActivityVocabulary type’s example JSON.
|
||
;; Examples are taken from the spec:
|
||
;; https://www.w3.org/TR/activitystreams-vocabulary/
|
||
(mapcar (lambda (file)
|
||
(eval `(define-json-test ,file '(:activity-vocabulary))))
|
||
(uiop:directory-files
|
||
(relative-pathname "t/vocab/activity/")))
|