;;slime-batch-test results.

Selector: t
Passed: 286
Failed: 19 (17 unexpected)
Total:  305/305

Started at:   2014-02-07 06:35:50-0800
Finished.
Finished at:  2014-02-07 06:36:18-0800

.........................FF..........f.....................................FF..FFFFFFfFFFF....................................................................FF.............................................................................................................................................F...

F autodoc-tests-23
    Check autodoc works ok for (error 'simple-condition*HERE*
    (ert-test-failed
	 ((should
	   (equal "(error 'simple-condition &rest arguments &key format-arguments format-control)"
			  (slime-autodoc-to-string)))
	  :form
	  (equal "(error 'simple-condition &rest arguments &key format-arguments format-control)" "(error 'simple-condition &rest arguments &key (format-arguments 'nil) (format-control 'nil))")
	  :value nil :explanation
	  (arrays-of-different-length 78 92 "(error 'simple-condition &rest arguments &key format-arguments format-control)" "(error 'simple-condition &rest arguments &key (format-arguments 'nil) (format-control 'nil))" first-mismatch-at 46)))

F autodoc-tests-24
    Check autodoc works ok for (cerror "Foo" 'simple-condition*HERE*
    (ert-test-failed
	 ((should
	   (equal "(cerror \"Foo\" 'simple-condition &rest arguments &key format-arguments format-control)"
			  (slime-autodoc-to-string)))
	  :form
	  (equal "(cerror \"Foo\" 'simple-condition &rest arguments &key format-arguments format-control)" "(cerror \"Foo\" 'simple-condition &rest arguments &key (format-arguments 'nil) (format-control 'nil))")
	  :value nil :explanation
	  (arrays-of-different-length 85 99 "(cerror \"Foo\" 'simple-condition &rest arguments &key format-arguments format-control)" "(cerror \"Foo\" 'simple-condition &rest arguments &key (format-arguments 'nil) (format-control 'nil))" first-mismatch-at 53)))

F enclosing-context\.1-1
    For input ((flet ((,ni..., check that finding local definitions work.
    (void-function slime-enclosing-form-specs)

F enclosing-context\.1-2
    For input ((flet ((foo..., check that finding local definitions work.
    (void-function slime-enclosing-form-specs)

F find-definition-1
    For input (start-serve..., find the definition of a function or macro in swank.lisp.
    (void-function slime-enclosing-form-specs)

F find-definition-2
    For input (swank::star..., find the definition of a function or macro in swank.lisp.
    (void-function slime-enclosing-form-specs)

F find-definition-3
    For input (swank:start..., find the definition of a function or macro in swank.lisp.
    (void-function slime-enclosing-form-specs)

F find-definition-4
    For input (swank::conn..., find the definition of a function or macro in swank.lisp.
    (void-function slime-enclosing-form-specs)

F find-definition-5
    For input (swank::*ema..., find the definition of a function or macro in swank.lisp.
    (void-function slime-enclosing-form-specs)

F find-definition\.2-1
    For input (#.(prog1 ni..., check that we're able to find definitions even when
    (void-function slime-enclosing-form-specs)

F find-local-definitions\.1-1
    For input ((defun foo ..., check that finding local definitions work.
    (void-function slime-enclosing-form-specs)

F find-local-definitions\.1-2
    For input ((defun bar ..., check that finding local definitions work.
    (void-function slime-enclosing-form-specs)

F find-local-definitions\.1-3
    For input ((defun quux..., check that finding local definitions work.
    (void-function slime-enclosing-form-specs)

F find-local-definitions\.1-4
    For input ((defun zurp..., check that finding local definitions work.
    (void-function slime-enclosing-form-specs)

F readme-recipe
    Test the README.md's recipe.
    (ert-test-failed
	 ((should
	   (= 0 retval))
	  :form
	  (= 0 255)
	  :value nil))

F readme-recipe-autoload-on-lisp-visit
    Test more autoload bits in README.md's installation recipe.
    (ert-test-failed "SLIME didn't load after visiting a lisp file!")

F traditional-recipe
    Test the README.md's recipe.
    (ert-test-failed
	 ((should
	   (= 0 retval))
	  :form
	  (= 0 255)
	  :value nil))