3 (luna-define-class test-riece-ruby (lunit-test-case))
5 (luna-define-method lunit-test-case-teardown ((case test-riece-ruby))
6 (riece-ruby-execute "exit!")
9 (luna-define-method test-riece-ruby-execute-1 ((case test-riece-ruby))
12 (equal (riece-ruby-execute "sleep 30") "0"))
15 (equal (riece-ruby-execute "1 << 32") "1"))
18 (equal (riece-ruby-execute "\"") "2")))
20 (luna-define-method test-riece-ruby-inspect-1 ((case test-riece-ruby))
21 (let ((name (riece-ruby-execute "sleep 30")))
24 (eq (car (car (riece-ruby-inspect name))) 'OK))
27 (assoc "running" (nth 2 (riece-ruby-inspect name))))))
29 (luna-define-method test-riece-ruby-inspect-2 ((case test-riece-ruby))
30 (let ((name (riece-ruby-execute "1 << 32")))
33 (eq (car (car (riece-ruby-inspect name))) 'OK))
36 (equal (nth 1 (riece-ruby-inspect name)) "4294967296"))
39 (assoc "finished" (nth 2 (riece-ruby-inspect name))))))
41 (luna-define-method test-riece-ruby-inspect-3 ((case test-riece-ruby))
42 (let ((name (riece-ruby-execute "\"")))
45 (eq (car (car (riece-ruby-inspect name))) 'OK))
48 (equal (nth 1 (riece-ruby-inspect name))
49 "unterminated string meets end of file"))
52 (assoc "exited" (nth 2 (riece-ruby-inspect name))))))
54 (luna-define-method test-riece-ruby-clear-1 ((case test-riece-ruby))
55 (let ((name (riece-ruby-execute "sleep 30")))
56 (riece-ruby-clear name)
59 (eq (car (car (riece-ruby-inspect name))) 'ERR))
62 (= (nth 1 (car (riece-ruby-inspect name))) 105))))
64 (defvar test-riece-ruby-exit-handler-1 nil)
65 (luna-define-method test-riece-ruby-exit-handler-1 ((case test-riece-ruby))
66 (let ((name (riece-ruby-execute "1 << 32")))
67 (riece-ruby-set-exit-handler
70 (setq test-riece-ruby-exit-handler-1 name)))
74 (equal test-riece-ruby-exit-handler-1 name))))
76 (defvar test-riece-ruby-output-handler-1 nil)
77 (luna-define-method test-riece-ruby-output-handler-1 ((case test-riece-ruby))
78 (let ((name (riece-ruby-execute "output(1 << 32)")))
79 (riece-ruby-set-output-handler
81 (lambda (name output time)
82 (setq test-riece-ruby-output-handler-1 output)))
86 (equal test-riece-ruby-output-handler-1 "4294967296"))))
88 (defvar test-riece-ruby-output-handler-2 nil)
89 (luna-define-method test-riece-ruby-output-handler-2 ((case test-riece-ruby))
90 (let ((name (riece-ruby-execute "output(1 << 32)")))
92 (riece-ruby-set-output-handler
94 (lambda (name output time)
95 (setq test-riece-ruby-output-handler-2 output)))
98 (equal test-riece-ruby-output-handler-2 "4294967296"))))