From be851b9eb42faa3c096737daaab0afcbc8c5087e Mon Sep 17 00:00:00 2001 From: Phillip Lord Date: Sat, 15 Jun 2019 22:10:03 +0100 Subject: Refactor robot testing --- robot/org-drill-launch.el | 58 ----------------------------------------------- 1 file changed, 58 deletions(-) delete mode 100644 robot/org-drill-launch.el (limited to 'robot/org-drill-launch.el') 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) -- cgit v1.2.3