Permalink
Browse files

Add watchr script to get autotest

  • Loading branch information...
1 parent 14673a6 commit 7b529511ddd1b463ce0eea10a82ddeaea2e207ff @magnars committed Sep 24, 2012
Showing with 38 additions and 0 deletions.
  1. +38 −0 watch-tests.watchr
View
@@ -0,0 +1,38 @@
+ENV["WATCHR"] = "1"
+system 'clear'
+
+def run(cmd)
+ `#{cmd}`
+end
+
+def run_all_tests
+ system('clear')
+ result = run "./run-tests.sh"
+ puts result
+end
+
+run_all_tests
+watch('.*.el') { run_all_tests }
+
+# Ctrl-\
+Signal.trap 'QUIT' do
+ puts " --- Running all tests ---\n\n"
+ run_all_tests
+end
+
+@interrupted = false
+
+# Ctrl-C
+Signal.trap 'INT' do
+ if @interrupted then
+ @wants_to_quit = true
+ abort("\n")
+ else
+ puts "Interrupt a second time to quit"
+ @interrupted = true
+ Kernel.sleep 1.5
+ # raise Interrupt, nil # let the run loop catch it
+ run_all_tests
+ @interrupted = false
+ end
+end

0 comments on commit 7b52951

Please sign in to comment.