Mercurial > hg > xemacs-beta
diff tests/basic-lisp.el @ 272:c5d627a313b1 r21-0b34
Import from CVS: tag r21-0b34
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:28:48 +0200 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/basic-lisp.el Mon Aug 13 10:28:48 2007 +0200 @@ -0,0 +1,89 @@ +;;; Test basic Lisp functionality + +;;(when (not (boundp 'foo)) (setq foo 1)) +;;(incf foo) +;;(print foo) + +(let ((my-vector [1 2 3 4]) + (my-bit-vector (bit-vector 1 0 1 0)) + (my-string "1234") + (my-list '(1 2 3 4))) + + ;;(Assert (fooooo)) ;; Generate Other failure + ;;(Assert (eq 1 2)) ;; Generate Assertion failure + + (Assert (eq (elt my-vector 0) 1)) + (Assert (eq (elt my-bit-vector 0) 1)) + (Assert (eq (elt my-string 0) ?1)) + (Assert (eq (elt my-list 0) 1)) + + (Assert (eq 4 (length my-vector))) + (Assert (eq 4 (length my-bit-vector))) + (Assert (eq 4 (length my-string))) + + (fillarray my-vector 5) + (fillarray my-bit-vector 1) + (fillarray my-string ?5) + + (Assert (eq 4 (length my-vector))) + (Assert (eq 4 (length my-bit-vector))) + (Assert (eq 4 (length my-string))) + + (Assert (eq (elt my-vector 0) 5)) + (Assert (eq (elt my-bit-vector 0) 1)) + (Assert (eq (elt my-string 0) ?5)) + + (Assert (eq (elt my-vector 3) 5)) + (Assert (eq (elt my-bit-vector 3) 1)) + (Assert (eq (elt my-string 3) ?5)) + + (fillarray my-bit-vector 0) + (Assert (eq 4 (length my-bit-vector))) + (Assert (eq (elt my-bit-vector 2) 0)) + + ;; Test nconc + (let ((x (list 0 1 2))) + (Assert (eq (nconc) nil)) + (Assert (eq (nconc nil) nil)) + (Assert (eq (nconc nil x) x)) + (Assert (eq (nconc x nil) x)) + (let ((y (nconc x nil (list 3 4 5) nil))) + (Assert (eq (length y) 6)) + (Assert (eq (nth 3 y) 3)) + )) + ) + +;;; Old cruft +;;;(run-tests) + +;(defmacro Assert (assertion) +; `(condition-case error +; (progn +; (assert ,assertion) +; (princ (format "Assertion passed: %S" (quote ,assertion))) +; (terpri) +; (incf Assert-successes)) +; (cl-assertion-failed +; (princ (format "Assertion failed: %S" (quote ,assertion))) +; (terpri) +; (incf Assert-failures)) +; (t (princ (format "Test harness error: %S" error)) +; (terpri) +; (incf Harness-failures) +; ))) + + +;(defun run-tests () +; (with-output-to-temp-buffer "*Test-Log*" +; (let ((Assert-successes 0) +; (Assert-failures 0) +; (Harness-failures 0)) +; (basic-lisp-test) +; (byte-compile 'basic-lisp-test) +; (basic-lisp-test) +; (print (format "%d successes, %d assertion failures, %d harness failures" +; Assert-successes +; Assert-failures +; Harness-failures))))) + +;(defun the-test ()