Small fixes and test runner for MS Windows

cask-test.bat

@@ -0,0 +1,3 @@
+@echo off
+type NUL > tests\user-input.txt
+cask exec emacs -batch -L . -L tests -l buttercup -f buttercup-run-discover < tests\user-input.txt

tests/buttercup-init.el

@@ -29,15 +29,15 @@ Gotcha: this will not work when buttercup spies on `insert-file-contents'."
   ;; throws error if invalid input
   (validate-user-input line)
   (setq input-lines-inserted (1+ input-lines-inserted))
-  (shell-command (format "echo %s >> %s" line user-input-filename)))
+  (shell-command (format "echo %s>> %s" line user-input-filename)))
 
 ;;; save/load purpose configurations
 (defun get-purpose-config ()
   (seq-map (lambda (var)
              (cons var (eval var)))
-           '(purpose-user-mode-purposes
-             purpose-user-name-purposes
+           '(purpose-user-name-purposes
              purpose-user-regexp-purposes
+             purpose-user-mode-purposes
              purpose-extended-configuration
              purpose-use-default-configuration)))
 

tests/test-core.el

@@ -1,7 +1,7 @@
 ;; -*- lexical-binding: t -*-
 (require 'buttercup-init)
 
-(defvar test-purpose-config
+(defvar test-core-purpose-config
   `((purpose-user-name-purposes . (("FOO" . USER1)))
     (purpose-user-regexp-purposes . (("^FOO2\\'" . USER2)))
     (purpose-user-mode-purposes . ((text-mode . USER3)))
@@ -24,7 +24,7 @@
 
   (before-each
     (setq config-case-snapshot (get-purpose-config))
-    (load-purpose-config test-purpose-config)
+    (load-purpose-config test-core-purpose-config)
     (create-buffers "FOO" "FOO2" "FOO3"
                     "BAR" "BAR2" "BAR3"
                     ".gitignore" " *Minibuf-777*" "TUX"