GitHub - supergrade/wreck

Branches Tags

Name		Name	Last commit message	Last commit date
Latest commit History 4 Commits
Alexandria		Alexandria
asdf		asdf
babel_0.3.0		babel_0.3.0
bordeaux-threads		bordeaux-threads
cffi_0.10.5		cffi_0.10.5
chunga-1.1.1		chunga-1.1.1
cl-base64-3.3.3		cl-base64-3.3.3
cl-fad-0.6.4		cl-fad-0.6.4
cl-plus-ssl-cl-plus-ssl		cl-plus-ssl-cl-plus-ssl
cl-ppcre-2.0.3		cl-ppcre-2.0.3
drakma-1.2.3		drakma-1.2.3
flexi-streams-1.0.7		flexi-streams-1.0.7
heresy		heresy
hunchentoot		hunchentoot
md5-1.8.5		md5-1.8.5
puri-1.5.1		puri-1.5.1
rfc2388		rfc2388
trivial-backtrace		trivial-backtrace
trivial-features_0.6		trivial-features_0.6
trivial-garbage_0.19		trivial-garbage_0.19
trivial-gray-streams-2006-09-16		trivial-gray-streams-2006-09-16
usocket		usocket
README		README
lutils.lisp		lutils.lisp
wreck.lisp		wreck.lisp

Repository files navigation

To run the test:

Go to wreck.lisp

Modify the first line to point to your base directory:
(defvar **prog-lisp-dir** "c:/prog/wreck/")

Paste the ENTIRE file into TWO command line/Win64 SBCLs

In the FIRST one - call (start-server)

In the SECOND one - call (start-stress-test)


The FIRST will now serve a web server on port 82

The SECOND one will keep connecting/disconnecting

If on the SECOND one you call (show-progress), you should see positive growing values for successes AND failures.

Within about 6-10 hours, the SERVER (FIRST) will crash to the debugger:
* fatal error encountered in SBCL pid 10604(tid 10225392):
GC invariant lost, file "gencgc.c", line 3525