3 (luna-define-class test-riece-ruby (lunit-test-case))
5 (luna-define-method lunit-test-case-teardown ((case test-riece-ruby))
6 (setq riece-ruby-output-handler-alist nil
7 riece-ruby-output-queue-alist nil)
8 (riece-ruby-execute "exit!")
11 (luna-define-method test-riece-ruby-execute-1 ((case test-riece-ruby))
14 (equal (riece-ruby-execute "sleep 30") "0"))
17 (equal (riece-ruby-execute "1 << 32") "1"))
20 (equal (riece-ruby-execute "\"") "2")))
22 (luna-define-method test-riece-ruby-inspect-1 ((case test-riece-ruby))
23 (let ((name (riece-ruby-execute "sleep 30")))
26 (eq (car (car (riece-ruby-inspect name))) 'OK))
29 (assoc "running" (nth 2 (riece-ruby-inspect name))))))
31 (luna-define-method test-riece-ruby-inspect-2 ((case test-riece-ruby))
32 (let ((name (riece-ruby-execute "1 << 32")))
35 (eq (car (car (riece-ruby-inspect name))) 'OK))
38 (equal (nth 1 (riece-ruby-inspect name)) "4294967296"))
41 (assoc "finished" (nth 2 (riece-ruby-inspect name))))))
43 (luna-define-method test-riece-ruby-inspect-3 ((case test-riece-ruby))
44 (let ((name (riece-ruby-execute "\"")))
47 (eq (car (car (riece-ruby-inspect name))) 'OK))
50 (equal (nth 1 (riece-ruby-inspect name))
51 "unterminated string meets end of file"))
54 (assoc "exited" (nth 2 (riece-ruby-inspect name))))))
56 (luna-define-method test-riece-ruby-clear-1 ((case test-riece-ruby))
57 (let ((name (riece-ruby-execute "sleep 30")))
58 (riece-ruby-clear name)
61 (eq (car (car (riece-ruby-inspect name))) 'ERR))
64 (= (nth 1 (car (riece-ruby-inspect name))) 105))))
66 (defvar test-riece-ruby-exit-handler-1 nil)
67 (luna-define-method test-riece-ruby-exit-handler-1 ((case test-riece-ruby))
68 (let ((name (riece-ruby-execute "1 << 32")))
69 (riece-ruby-set-exit-handler
72 (setq test-riece-ruby-exit-handler-1 name)))
76 (equal test-riece-ruby-exit-handler-1 name))))
78 (defvar test-riece-ruby-output-handler-1 nil)
79 (luna-define-method test-riece-ruby-output-handler-1 ((case test-riece-ruby))
80 (let ((name (riece-ruby-execute "output(1 << 32)")))
81 (riece-ruby-set-output-handler
83 (lambda (name output time)
84 (setq test-riece-ruby-output-handler-1 output)))
88 (equal test-riece-ruby-output-handler-1 "4294967296"))))
90 (defvar test-riece-ruby-output-handler-2 nil)
91 (luna-define-method test-riece-ruby-output-handler-2 ((case test-riece-ruby))
92 (let ((name (riece-ruby-execute "output(1 << 32)")))
94 (riece-ruby-set-output-handler
96 (lambda (name output time)
97 (setq test-riece-ruby-output-handler-2 output)))
100 (equal test-riece-ruby-output-handler-2 "4294967296"))))