Refactor robot testing

1 files changed, 64 insertions, 0 deletions

diff --git a/robot/basic-run.el b/robot/basic-run.el
new file mode 100644
index 0000000..1469fef
--- /dev/null
+++ b/robot/basic-run.el
@@ -0,0 +1,64 @@
+;; 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 "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)