[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