Fix test removing the 'emacs-' prefix

Author: AdrieanKhisbe

features/support/env.el

@@ -1,21 +1,21 @@
 (require 'f)
 
-(defvar emacs-fireplace-support-path
+(defvar fireplace-support-path
   (f-dirname load-file-name))
 
-(defvar emacs-fireplace-features-path
-  (f-parent emacs-fireplace-support-path))
+(defvar fireplace-features-path
+  (f-parent fireplace-support-path))
 
-(defvar emacs-fireplace-root-path
-  (f-parent emacs-fireplace-features-path))
+(defvar fireplace-root-path
+  (f-parent fireplace-features-path))
 
-(add-to-list 'load-path emacs-fireplace-root-path)
+(add-to-list 'load-path fireplace-root-path)
 
 (require 'undercover)
 (undercover "*.el"
 	    (:exclude "*-test.el")
 	    (:report-file "/tmp/undercover-report.json"))
-(require 'emacs-fireplace)
+(require 'fireplace)
 (require 'espuds)
 (require 'ert)
 

test/test-helper.el

@@ -10,24 +10,24 @@
 (defvar cpt-path
   (f-parent (f-this-file)))
 
-(defvar emacs-fireplace-test-path
+(defvar fireplace-test-path
   (f-dirname (f-this-file)))
 
-(defvar emacs-fireplace-root-path
-  (f-parent emacs-fireplace-test-path))
+(defvar fireplace-root-path
+  (f-parent fireplace-test-path))
 
-(defvar emacs-fireplace-sandbox-path
-  (f-expand "sandbox" emacs-fireplace-test-path))
+(defvar fireplace-sandbox-path
+  (f-expand "sandbox" fireplace-test-path))
 
-(when (f-exists? emacs-fireplace-sandbox-path)
-  (error "Something is already in %s. Check and destroy it yourself" emacs-fireplace-sandbox-path))
+(when (f-exists? fireplace-sandbox-path)
+  (error "Something is already in %s. Check and destroy it yourself" fireplace-sandbox-path))
 
 (defmacro within-sandbox (&rest body)
   "Evaluate BODY in an empty sandbox directory."
-  `(let ((default-directory emacs-fireplace-sandbox-path))
-     (when (f-exists? emacs-fireplace-sandbox-path)
+  `(let ((default-directory fireplace-sandbox-path))
+     (when (f-exists? fireplace-sandbox-path)
        (f-delete default-directory :force))
-     (f-mkdir emacs-fireplace-sandbox-path)
+     (f-mkdir fireplace-sandbox-path)
      ,@body
      (f-delete default-directory :force)))
 
@@ -40,7 +40,7 @@
 	    (:exclude "*-test.el")
 	    (:send-report nil)
 	    (:report-file "/tmp/undercover-report.json"))
-(require 'emacs-fireplace)
+(require 'fireplace)
 
 (provide 'test-helper)
 ;;; test-helper.el ends here