1(in-package :cl-user) 2 3(prove:diag 4 "Output a message to the Console. 5 6Note: 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 26