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 +; +;