Revision: 6310
Author: ek.kato
Date: Tue Apr 6 23:52:15 2010
Log: * test/run-test.scm : Modify load path.
* doc/UNIT-TEST : Update.
http://code.google.com/p/uim/source/detail?r=6310
Modified:
/trunk/doc/UNIT-TEST
/trunk/test/run-test.scm
=======================================
--- /trunk/doc/UNIT-TEST Wed Nov 12 00:39:36 2008
+++ /trunk/doc/UNIT-TEST Tue Apr 6 23:52:15 2010
@@ -42,19 +42,21 @@
2) Build uim
- 3) Run test as follows
+ 3) cd test/
+
+ 4) Run test as follows
All tests:
- $ gosh -I. test/run-test.scm
+ $ ./run-test.scm
Selective:
- $ gosh -I. test/run-test.scm test/test-foo.scm
+ $ ./run-test.scm test-foo.scm
With options:
- $ gosh -I. test/run-test.scm test/test-util.scm -vv -c "list
procedures"
+ $ ./run-test.scm test-util.scm -vv -c "list procedures"
Refer the document of GaUnit or specify -h to see all options.
=======================================
--- /trunk/test/run-test.scm Mon Apr 5 21:29:34 2010
+++ /trunk/test/run-test.scm Tue Apr 6 23:52:15 2010
@@ -51,9 +51,22 @@
:canonicalize #t)))
(apply build-path top-dir components)))
+(define (uim-test-test-source-path . components)
+ (let* ((test-dir (sys-dirname *program-name*))
+ (abs-test-dir (sys-normalize-pathname test-dir
+ :absolute #t
+ :expand #t
+ :canonicalize #t)))
+ (apply build-path abs-test-dir components)))
+
+
(define-macro (%add-top-path-to-load-path)
`(add-load-path ,(uim-test-source-path)))
+(define-macro (%add-test-source-path-to-load-path)
+ `(add-load-path ,(uim-test-test-source-path)))
+
(%add-top-path-to-load-path)
+(%add-test-source-path-to-load-path)
(define gaunit-main main)
(define (main args)
--
To unsubscribe, reply using "remove me" as the subject.
