Added a couple of simple test files for documentation purposes.

2003-02-27 16:00:28 +00:00
parent 683777fe1e
commit 838fe54e2d
2 changed files with 27 additions and 0 deletions
--- a/examples/silly-test.cl
+++ b/examples/silly-test.cl
@ -0,0 +1,12 @@
+(cl:defpackage :TEST-CLASH (:USE :CL :CLASH))
+(cl:in-package :TEST-CLASH)
+(enable-clash-syntax)
+(defvar *my-server* (make-instance 'http-server/1.0))
+(export-resource *my-server* #u"/index.html"
+                 'static-resource
+                 :entity (make-instance 'string-entity :body  
+"<HTML><HEAD><TITLE>Test Page on ACL 5.0.3</TITLE></HEAD>
+<BODY BGCOLOR='#eeeeff'><H1>Test Page on ACL 5.0.3</H1><P> Hi! </P>
+</BODY></HTML>"))
+(start-http-listener 3080 *my-server*)
+(initialize-clash)