Mercurial > core / lisp/lib/doc/tests.lisp
changeset 419: |
0f0e5f9b5c55 |
parent: |
f3d814fb136a
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Thu, 06 Jun 2024 17:24:19 -0400 |
permissions: |
-rw-r--r-- |
description: |
add emacs/babel.org, finished clap refactor phase 1, test system fixes and more top-level packages |
1 ;;; doc/tests.lisp --- DOC tests 7 (:use :cl :rt :doc :std)) 9 (in-package :doc/tests) 15 (defvar *good-header* #";;; foo/bar.lisp --- a dummy lisp description 17 ;; a dummy lisp summary 22 (defvar *bad-header* #";; not a valid header -- :'C 27 (defvar *good-heading* #";;; Foobar: 30 (defvar *bad-heading* #";;;Foobar:"#) 33 (defmacro is-doc-typep (type arg) 34 `(is (typep ,arg ',type)))) 36 (deftest doc-symbol () 37 (is-doc-typep symbol-documentation (symbol-documentation 'car))) 40 (deftest doc-package () 41 (is-doc-typep package-documentation (package-documentation))) 43 (deftest doc-system () 44 (is-doc-typep system-documentation (system-documentation :std))) 47 (let ((file (or *compile-file-pathname* (asdf:system-relative-pathname :doc "tests.lisp")))) 48 (is-doc-typep file-documentation (file-documentation file)))) 51 (is-doc-typep dist-documentation (dist-documentation :quicklisp))) 53 (deftest image-documentation () 57 (rocksdb:load-rocksdb))