Simplify test helper

test/loop-test.el

@@ -1,4 +1,5 @@
 (require 'ert)
+(require 'loop)
 
 (ert-deftest loop-test-while ()
   "Test basic `loop-while' usage."

test/test-helper.el

@@ -22,24 +22,10 @@
 (when (f-exists? loop-sandbox-path)
   (error "Something is already in %s. Check and destroy it yourself" loop-sandbox-path))
 
-(defmacro within-sandbox (&rest body)
-  "Evaluate BODY in an empty sandbox directory."
-  `(let ((default-directory loop-sandbox-path))
-     (when (f-exists? loop-sandbox-path)
-       (f-delete default-directory :force))
-     (f-mkdir loop-sandbox-path)
-     ,@body
-     (f-delete default-directory :force)))
-
-(require 'ert)
-(require 'el-mock)
-(eval-when-compile
-    (require 'cl))
 (require 'undercover)
 (undercover "loop.el"
 	    (:exclude "*-test.el")
 	    (:report-file "/tmp/undercover-report.json"))
-(require 'loop)
 
 (provide 'test-helper)
 ;;; test-helper.el ends here