test sistemi başlangıcı
This commit is contained in:
13
testler/test.lisp
Normal file
13
testler/test.lisp
Normal file
@@ -0,0 +1,13 @@
|
||||
(defpackage :html-jen/testler
|
||||
(:use :common-lisp :html-jen))
|
||||
|
||||
(in-package :html-jen/testler)
|
||||
|
||||
(defun test-test ()
|
||||
(assert (= 3 (+ 1 2)))
|
||||
(unless (= 3 2)
|
||||
(error "hata")))
|
||||
|
||||
(defun testleri-çalıştır ()
|
||||
;; (test-test)
|
||||
)
|
||||
Reference in New Issue
Block a user