suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add some test cases suggested by cover

Browse Source
This commit is contained in:
Robby Findler 2015-04-24 21:47:21 -05:00
parent 482a446db1
commit e150651d8d
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gui-test/framework/tests/racket.rkt
View File

@ -144,6 +144,24 @@
"(define x\n (let/ec return\n (when 1\n (when 2\n 3))\n 2))")
(test-indentation "(for/fold ([x 1])\n([y 2])\n3\n4)"
"(for/fold ([x 1])\n ([y 2])\n 3\n 4)")
(test-indentation "a\na\na\n" "a\na\na\n")
(test-indentation "(begin\n1)" "(begin\n 1)")
(test-indentation "(lambda\n(x) x)" "(lambda\n (x) x)")
(test-indentation "(some-random-function x\nx)"
"(some-random-function x\n x)")
(test-indentation "(some-random-function x y\nx)"
"(some-random-function x y\n x)")
(test-indentation "(x ...\nx)"
"(x ...\n x)")
(test-indentation "(x\n;;; hello\ny)"
"(x\n ;;; hello\n y)")
(test-indentation "(require racket/contract\nracket/unit\nracket/class"
"(require racket/contract\n racket/unit\n racket/class")
(test-indentation "(r a\nb\nc\nd\ne\nf\ng"
"(r a\n b\n c\n d\n e\n f\n g")
(test-indentation "(r a b\nc d\ne f\ng h"
"(r a b\n c d\n e f\n g h")
(define (test-magic-square-bracket which before after)
(test