[mcclim-cvs] CVS mcclim/Tests
crhodes
crhodes at common-lisp.net
Tue Mar 7 14:59:29 UTC 2006
Update of /project/mcclim/cvsroot/mcclim/Tests
In directory clnet:/tmp/cvs-serv6393/Tests
Modified Files:
postscript.lisp
Log Message:
Make our EPS files always have lower bounds of 0.
--- /project/mcclim/cvsroot/mcclim/Tests/postscript.lisp 2005/10/31 10:21:09 1.1
+++ /project/mcclim/cvsroot/mcclim/Tests/postscript.lisp 2006/03/07 14:59:29 1.2
@@ -47,6 +47,9 @@
(assert (numberp lly))
(assert (numberp urx))
(assert (numberp ury))
+ ;; our EPS files have lower bounds of 0.
+ (assert (= 0 llx))
+ (assert (= 0 lly))
(assert (>= 20 (- urx llx) 18))
(assert (>= 22 (- ury lly) 20))
(return t))))))))
More information about the Mcclim-cvs
mailing list