[ganelon-cvs] CVS update: ganelon/tests/d.lsp ganelon/tests/page.lsp ganelon/tests/test.lisp

[Tomek Lipski]

Update of /project/ganelon/cvsroot/ganelon/tests
In directory common-lisp.net:/tmp/cvs-serv20334/tests

Modified Files:
	d.lsp page.lsp test.lisp 
Log Message:

Bugfixes + formatting

Date: Mon Mar  8 18:21:47 2004
Author: tlipski

Index: ganelon/tests/d.lsp
diff -u ganelon/tests/d.lsp:1.1.1.1 ganelon/tests/d.lsp:1.2
--- ganelon/tests/d.lsp:1.1.1.1	Wed Mar  3 18:50:38 2004
+++ ganelon/tests/d.lsp	Mon Mar  8 18:21:47 2004
@@ -1,2 +1,2 @@
-dupka!
-<%= "dupa2" %>
+test!
+<%= "test2" %>


Index: ganelon/tests/page.lsp
diff -u ganelon/tests/page.lsp:1.1.1.1 ganelon/tests/page.lsp:1.2
--- ganelon/tests/page.lsp:1.1.1.1	Wed Mar  3 18:50:38 2004
+++ ganelon/tests/page.lsp	Mon Mar  8 18:21:47 2004
@@ -1,4 +1,9 @@
-<%@ (contents-of-file "d.lsp") %>
+<!--
+; 
+; $Id: page.lsp,v 1.2 2004/03/08 23:21:47 tlipski Exp $
+;
+-->
+<%@ (contents-of-file "../tests/d.lsp") %>
 <%@ (ah) %>
 <%= (format nil "~A~%" *package*) %>
 <%= (mvc-bean '("testform" "test")) %>
@@ -9,12 +14,23 @@
 <% (mvc-input "test" nil) %>
 <% (mvc-select "test" nil nil %>
 	<option value="a">b</option>
-	<% (mvc-option "dupka" nil %>hurra!<% ) %>
-	<% (mvc-option "durka" nil %>hurra1!<% ) %>
-	<% (mvc-option "dudka" nil %>hurra2!<% ) %>
+	<% (mvc-option "test" nil %>hurray!<% ) %>
+	<% (mvc-option "test2" nil %>hurray1!<% ) %>
+	<% (mvc-option "test3" nil %>hurray2!<% ) %>
 <% ) %>
 <% (mvc-input "" '(("type" . "submit")) :value "Yanyanyan") %>
 <% (mvc-checkbox "zz" "1") %>1
 <% (mvc-checkbox "test" "2") %>2
 <% ) %>
 aaaa
+
+<!--
+; 
+; $Log: page.lsp,v $
+; Revision 1.2  2004/03/08 23:21:47  tlipski
+;
+; Bugfixes + formatting
+;
+;
+-->
+


Index: ganelon/tests/test.lisp
diff -u ganelon/tests/test.lisp:1.1.1.1 ganelon/tests/test.lisp:1.2
--- ganelon/tests/test.lisp:1.1.1.1	Wed Mar  3 18:50:38 2004
+++ ganelon/tests/test.lisp	Mon Mar  8 18:21:47 2004
@@ -1,10 +1,9 @@
-;;;(load "/home/lemur/cl-mvc/test.cl")
-;;;(load "/home/lemur/cl-mvc/run.cl")
+;
+; $Id: test.lisp,v 1.2 2004/03/08 23:21:47 tlipski Exp $
+;
 ;;(net.aserve::start :port 8080 :listeners 50)
 ;;(net.aserve::shutdown)
-;(load "/home/lemur/cl-mvc/utils.x86f")
-;(load "/home/lemur/cl-mvc/cl-mvc.x86f")
-;(load "/home/lemur/cl-mvc/mvc-html.x86f")
+;(load "test.lisp")
 
 (asdf:operate 'asdf:load-op 'ganelon)
 
@@ -51,10 +50,20 @@
    :filepath "page.lsp")
   )
  "GANELON.TEST"
- :session-timeout 30)
+ :session-timeout 30
+ :path-prefix "../tests/"
+ :lsp-default-charset "iso-8859-2")
 
 (defun ualal()
   "ó³æóæ³wekljthsakletjglgj")
 
 (defun ah()
   "tralala")
+
+;
+; $Log: test.lisp,v $
+; Revision 1.2  2004/03/08 23:21:47  tlipski
+;
+; Bugfixes + formatting
+;
+;