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

bring down below 102 columns

Browse Source
This commit is contained in:
Robby Findler 2013-07-06 09:04:46 -05:00
parent 5e8a9780e8
commit f56c94b9f5
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
pkgs/gui-pkgs/gui-test/framework/tests/racket.rkt
View File

@ -130,7 +130,9 @@
;; smart-skip-parentheses preferences .nah.
;; test-auto-parens-behavior
;; : any string [or num (list num num)] [or char symbol 1string (list char) (list key-event%)] [or num (list num num)] string
;; : any string
;; [or num (list num num)] [or char symbol 1string (list char) (list key-event%)]
;; [or num (list num num)] string
(define (test-auto-parens-behavior which initial-text initial-pos keys final-text final-pos
[auto-parens? #f])
(test
@ -188,9 +190,11 @@
initial-text (list initial-start-pos initial-end-pos) keys
(apply string-append final-pair)
(if (= 3 (length final-pair))
; final-pair could actually be a triplet to indicate residual selection after insertion
(list (string-length (car final-pair)) (string-length (string-append (car final-pair)
(cadr final-pair))))
; final-pair could actually be a triplet
; to indicate residual selection after insertion
(list (string-length (car final-pair))
(string-length (string-append (car final-pair)
(cadr final-pair))))
(string-length (car final-pair)))
auto?))
'("no-auto-parens" "with-auto-parens")
@ -327,7 +331,7 @@
"\"abcd \\" "" ""
#\"
'(["\"abcd \\\"" ""]
["\"abcd \\\"" "\""])) ; this happens to insert double since string was not closed
["\"abcd \\\"" "\""])) ; this inserts double since string was not closed
(test-parens-behavior/full 'double-quote-escaped-2
"\"abcd \\" "" "\""
#\"
@ -432,16 +436,17 @@
'(escape #\)) ; '((new key-event% [key-code #\)] [meta-down #t]))
'(["(define before (list 1 2 3 4)" ""]
["(define before (list 1 2 3 4)" ""]))
(test-parens-behavior/full 'meta-close-skip-2
"#lang racket\n(define before+afters `([\"\" abc \"efg\""
""
" 12345 xyz] [84])"
'(escape #\)) ;'((new key-event% [key-code #\)] [meta-down #t]))
'(["#lang racket\n(define before+afters `([\"\" abc \"efg\" 12345 xyz]" " [84])"]
["#lang racket\n(define before+afters `([\"\" abc \"efg\" 12345 xyz]" " [84])"]))
(test-parens-behavior/full
'meta-close-skip-2
"#lang racket\n(define before+afters `([\"\" abc \"efg\""
""
" 12345 xyz] [84])"
'(escape #\)) ;'((new key-event% [key-code #\)] [meta-down #t]))
'(["#lang racket\n(define before+afters `([\"\" abc \"efg\" 12345 xyz]" " [84])"]
["#lang racket\n(define before+afters `([\"\" abc \"efg\" 12345 xyz]" " [84])"]))
(test-parens-behavior/full 'meta-close-skip-3
"(define before" "" " (list 1 2 3 4)"
'(escape #\)) ; '((new key-event% [key-code #\)] [meta-down #t]))
'(["(define before (list 1 2 3 4)" ""]
["(define before (list 1 2 3 4)" ""]))
)
["(define before (list 1 2 3 4)" ""])))