|
Last change
on this file was
15119,
checked in by Mark Evenson, 7 years ago
|
|
Cleanup prove tests
Remove use of test package, favoring use of CL-USER.
|
|
File size:
658 bytes
|
| Line | |
|---|
| 1 | (in-package :cl-user) |
|---|
| 2 | |
|---|
| 3 | (prove:diag |
|---|
| 4 | "Output a message to the Console. |
|---|
| 5 | |
|---|
| 6 | Note: for users of SLIME, this will appear in the associated *inferior-lisp* buffer.") |
|---|
| 7 | |
|---|
| 8 | (prove:plan 2) |
|---|
| 9 | |
|---|
| 10 | (progn |
|---|
| 11 | (when (find "log4j" (asdf:already-loaded-systems) :test 'equal) |
|---|
| 12 | (prove:diag "Log4j was already loaded. Explicitly clearing it from ASDF.") |
|---|
| 13 | (asdf:clear-system :log4j)) |
|---|
| 14 | (prove:ok (asdf:load-system :log4j) |
|---|
| 15 | "Testing loading the log4j systemâŠ") |
|---|
| 16 | (#"configure" 'log4j.BasicConfigurator) |
|---|
| 17 | (#"info" (#"getRootLogger" 'log4j.Logger) "Kilroy wuz here.") |
|---|
| 18 | (prove:pass "No error occured while testing logging to *standard-output*")) |
|---|
| 19 | |
|---|
| 20 | (prove:finalize) |
|---|
| 21 | |
|---|
| 22 | |
|---|
| 23 | |
|---|
| 24 | |
|---|
| 25 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
