added a test case for just creating a snip% (but the test case doesnt run yet)
svn: r16131
This commit is contained in:
parent
cde6f8818b
commit
9b8c2d15cc
|
@ -81,7 +81,7 @@ This produces an ACK message
|
||||||
|
|
||||||
(define test-data
|
(define test-data
|
||||||
(list
|
(list
|
||||||
|
#|
|
||||||
;; basic tests
|
;; basic tests
|
||||||
(mktest "1"
|
(mktest "1"
|
||||||
("1"
|
("1"
|
||||||
|
@ -840,6 +840,21 @@ This produces an ACK message
|
||||||
void
|
void
|
||||||
void)
|
void)
|
||||||
|
|
||||||
|
|#
|
||||||
|
|
||||||
|
(mktest "(new snip%)"
|
||||||
|
("1"
|
||||||
|
"1"
|
||||||
|
"1"
|
||||||
|
"1"
|
||||||
|
"1"
|
||||||
|
"1")
|
||||||
|
'interactions
|
||||||
|
#f
|
||||||
|
void
|
||||||
|
void)
|
||||||
|
|
||||||
|
|
||||||
;; graphical lambda tests
|
;; graphical lambda tests
|
||||||
(mktest (list "((" '("Insert" "Insert λ") "(x) x) 1)")
|
(mktest (list "((" '("Insert" "Insert λ") "(x) x) 1)")
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user