From 50885fbeea8a282dc027b03b19097de3c6dabd18 Mon Sep 17 00:00:00 2001 From: Phillip Lord Date: Sun, 16 Jun 2019 20:21:31 +0100 Subject: Refactor robot testing to allow multiple tests --- robot/basic-run.el | 50 +++----------------------------------------------- 1 file changed, 3 insertions(+), 47 deletions(-) (limited to 'robot/basic-run.el') 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) -- cgit v1.2.3