Refactor robot testing

1 files changed, 0 insertions, 58 deletions

diff --git a/robot/org-drill-launch.el b/robot/org-drill-launch.el
deleted file mode 100644
index 2de9219..0000000
--- a/robot/org-drill-launch.el
+++ /dev/null
@@ -1,58 +0,0 @@
-;; 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 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 "org-drill.el")
-
-(defun org-drill-do-drill ()
-  (copy-file "robot/main-test.org" "robot/main-test-copy.org" t)
-  (find-file "robot/main-test-copy.org")
-
-  (org-drill)
-  (set-buffer-modified-p nil)
-  (kill-buffer))
-
-(org-drill-do-drill)
-
-(message "First drill complete")
-
-(setq org-drill-presentation-prompt-with-typing t)
-
-(org-drill-do-drill)