From 838fe54e2d3c1b846ac0f467ac91953b4e2a7c75 Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Thu, 27 Feb 2003 16:00:28 +0000 Subject: [PATCH] Added a couple of simple test files for documentation purposes. --- examples/silly-test.cl | 12 ++++++++++++ examples/static-test.cl | 15 +++++++++++++++ 2 files changed, 27 insertions(+) create mode 100644 examples/silly-test.cl create mode 100644 examples/static-test.cl diff --git a/examples/silly-test.cl b/examples/silly-test.cl new file mode 100644 index 0000000..f5aaa6e --- /dev/null +++ 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 +"Test Page on ACL 5.0.3 +

Test Page on ACL 5.0.3

Hi!

+")) +(start-http-listener 3080 *my-server*) +(initialize-clash) diff --git a/examples/static-test.cl b/examples/static-test.cl new file mode 100644 index 0000000..a803ba0 --- /dev/null +++ b/examples/static-test.cl @@ -0,0 +1,15 @@ +;;(eval-when (:compile-toplevel :load-toplevel :execute) (require "CLASH")) +(defpackage :CLASH-BENCH (:use :cl :CLASH)) +(in-package :CLASH-BENCH) + +(eval-when (:compile-toplevel :load-toplevel :execute) (enable-clash-syntax)) +(defvar *my-server* (make-instance 'http-server/1.0)) + +(apply #'export-files *my-server* "image/gif" #u"/img/" (directory "*.gif")) +(apply #'export-files *my-server* "image/jpeg" #u"/img/" (directory "*.jpg")) +(apply #'export-files *my-server* "text/html" #u"/" (directory "*.html")) + +(start-http-listener 3080 *my-server*) +(initialize-clash) + +(eval-when (:compile-toplevel :load-toplevel :execute) (disable-clash-syntax))