読者です 読者をやめる 読者になる 読者になる

ヽ(゚∀゚)ノ ワー test.simple できたよー!!

;; -*- coding: utf-8; -*-
;; test-simple.lisp
(provide 'test.simple)

;; (defpackage :test
;;   (:use :cl))

;; (in-package :test)

(defpackage :test.simple
  (:use :cl)
  (:export tests ok))

(in-package :test.simple)

(defvar *test-amount* 1)

(defun tests (n)
  (setq *test-amount* 1)
  (format t "1..~A~%" n))

(defun ok (expression &optional comment)
  (unless comment
    (setq comment ""))
  (if expression
      (format t "ok ~A ~A~%" *test-amount* comment)
    ;; else
    (format t "not ok ~A ~A~%" *test-amount* comment))
  (setq *test-amount* (+ 1 *test-amount*)))

ってやって

(require "test-simple")

(defpackage :demo-test-simple
  (:use :cl :test.simple))

(in-package :demo-test-simple)


;; テストの数を宣言します。
(tests 1)

(let ((foo 32)
      (bar 32))
  ;; テストを行い、ok または not ok を出力します。
  (ok (equal foo bar) "foo is bar"))

ってやったらでけたーーー!!

☆-(ノ゚Д゚)八(゚Д゚ )ノイエーイ