2 (in-package #:ch-util-test
)
5 (let ((s1 (strcat "this is " "a test")))
6 (equal s1
"this is a test")))
8 (defun test-interncase ()
9 (let ((s1 (interncase "testINGinternCase")))
13 (defun test-print-buffer ()
14 (print-buffer (read-file-to-buffer "/etc/motd"))
17 (defun test-postincf ()
20 (print (postincf moose
))
22 (print (postincf moose
2))
27 (let ((run (make-test-run)))
28 (run-test #'test-strcat
"test-strcat" run
)
29 (run-test #'test-print-buffer
"test-print-buffer" run
)
30 (run-test #'test-interncase
"test-interncase" run
)
31 (run-test #'test-postincf
"test-postincf" run
)
32 (format t
"~&~A of ~A tests passed" (test-run-passed run
) (test-run-tests run
))
37 ; (let ((gstring (with-output-to-string (gstream) (run-program "ls" nil :output gstream)))) (print gstring))