update directory

Signed-off-by: Psionik K <[email protected]>
positron-solutions · Dec 28, 2023 · fd1d879 · fd1d879
1 parent de4cfdb
commit fd1d879
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 5 deletions.
diff --git a/lisp/scratch-pkgs.el b/lisp/scratch-pkgs.el
@@ -54,8 +54,8 @@
 (declare-function no-littering-expand-var-file-name "no-littering")
 (defcustom scratch-pkgs-dir
   (file-name-directory (if (featurep 'no-littering)
-                           (no-littering-expand-var-file-name "scratch")
-                         (expand-file-name "var/scratch" user-emacs-directory)))
+                           (no-littering-expand-var-file-name "scratch-pkgs")
+                         (expand-file-name "var/scratch-pkgs" user-emacs-directory)))
   "Where scratches are saved."
   :group 'scratch-pkgs
   :type 'directory)

diff --git a/test/scratch-pkgs-test.el b/test/scratch-pkgs-test.el
@@ -37,9 +37,14 @@
 (require 'ert)
 (require 'scratch-pkgs)
 
-;; (ert-deftest scratch-pkgs-hello-test ()
-;;   (should (string-match-p (scratch-pkgs-hello)
-;;                           "hello")))
+(ert-deftest scratch-pkgs-new-test ()
+  (should (save-window-excursion
+            (progn (scratch-pkgs-new "scratch-pkgs-test-package")
+                   (save-buffer "scratch-pkgs-test-package.el")
+                   (require 'scratch-pkgs-test-package)
+                   (delete-file "scratch-pkgs-test-package.el")
+                   (kill-buffer "scratch-pkgs-test-package.el")
+                   t))))
 
 (provide 'scratch-pkgs-test)
 ;;; scratch-pkgs-test.el ends here.