Refactor robot testing to allow multiple tests

1 files changed, 3 insertions, 47 deletions

diff --git a/robot/basic-run.el b/robot/basic-run.el
index 1469fef..8e853e3 100644
--- a/robot/basic-run.el
+++ b/robot/basic-run.el
@@ -1,50 +1,4 @@
-;; Shutup
-(setq make-backup-files nil)
-(setq auto-save-default nil)
-
-(setq top-dir default-directory)
-
-;; Clean up
-(delete-file (concat top-dir "robot/failure.txt"))
-(delete-file (concat top-dir "robot/messages.txt"))
-
-(set-frame-name "emacs-bot")
-
-(setq debug-on-error t)
-(setq debug-on-quit t)
-
-(defun die ()
-  (interactive)
-  (kill-emacs)
-  )
-
-(defun dump-buffer (buffer file)
-  (save-excursion
-    (when (get-buffer buffer)
-      (set-buffer buffer)
-      (write-region (point-min) (point-max)
-                    (concat top-dir "robot/" file)
-                    nil 'dont-display-wrote-file-message
-                    ))))
-
-(add-hook 'debugger-mode-hook
-          'org-drill-launcher-dump-in-a-bit)
-
-(defun org-drill-launcher-dump-in-a-bit ()
-  (run-with-timer 1 nil #'org-drill-launcher-dump))
-
-(defun org-drill-dump-messages ()
-  (dump-buffer "*Messages*" "messages.txt"))
-
-(run-with-timer 1 1 #'org-drill-dump-messages)
-
-
-(defun org-drill-launcher-dump ()
-  (dump-buffer "*Backtrace*" "failure.txt")
-  (dump-buffer "*Messages*" "messages.txt")
-  (kill-emacs -1)
-  )
-
+(load-file "robot/robot.el")
 (load-file "org-drill.el")
 
 (defun org-drill-do-drill ()
@@ -62,3 +16,5 @@
 (setq org-drill-presentation-prompt-with-typing t)
 
 (org-drill-do-drill)
+
+(robot-check-cards-seen-and-die 6)