Author: ek.kato
Date: Tue Nov 4 02:56:27 2008
New Revision: 5614
Modified:
trunk/test/run-test.scm
Log:
* test/run-test.scm: Use sys-normalize-pathname (Kouhei Sutou).
Modified: trunk/test/run-test.scm
==============================================================================
--- trunk/test/run-test.scm (original)
+++ trunk/test/run-test.scm Tue Nov 4 02:56:27 2008
@@ -35,7 +35,10 @@
(define (uim-test-build-path . components)
(let* ((test-dir (sys-dirname *program-name*))
- (top-dir (sys-realpath (build-path test-dir ".."))))
+ (top-dir (sys-normalize-pathname (build-path test-dir "..")
+ :absolute #t
+ :expand #t
+ :canonicalize #t)))
(apply build-path top-dir components)))
(define-macro (%add-top-path-to-load-path)
