(in-package :fomus-test)

(defvar *fomus-test-path* "/tmp/fomus-test")

(export '*md5-learn-checksums*)
(defvar *md5-learn-checksums* nil
  "If T, new (and different!) checksums will
supersede old ones - the corresponding test
will pass.

If checksums have not yet been estimated,
they will be added to the store regardless
of this variable.")