svn: r1815
This commit is contained in:
John Clements 2006-01-12 18:15:22 +00:00
parent 5426be858d
commit 2ab94a5bf3

View File

@ -1369,7 +1369,7 @@
;; ;;
;;;;;;;;;;; ;;;;;;;;;;;
(t trivial-begin (t simple-begin
(test-advanced-sequence "(+ 3 (begin 4 5))" (test-advanced-sequence "(+ 3 (begin 4 5))"
`((before-after ((+ 3 (hilite (begin 4 5)))) `((before-after ((+ 3 (hilite (begin 4 5))))
((+ 3 (hilite 5)))) ((+ 3 (hilite 5))))
@ -1403,6 +1403,6 @@
(test-teachpack-sequence " (define (f2c x) x) (convert-gui f2c)" `() ; placeholder (test-teachpack-sequence " (define (f2c x) x) (convert-gui f2c)" `() ; placeholder
)) ))
(run-tests '(trivial-begin)) (run-tests '(simple-begin))
#;(run-all-tests) #;(run-all-tests)
) )