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

Run fewer random tests

Browse Source
This commit is contained in:
Daniel Feltey 2017-03-07 12:06:56 -06:00
parent 4b5e87abe1
commit 83cb692738
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gui-test/framework/tests/text.rkt
View File

@ -813,7 +813,7 @@
#:try-to-move? try-to-move? #:try-to-move? try-to-move?
#:contract-this? contract-this?) #:contract-this? contract-this?)
(edit-string str start end dest-pos try-to-move?))) (edit-string str start end dest-pos try-to-move?)))
(for ([i (in-range 1000)]) (for ([i (in-range 100)])
(random-check-edit-string)) (random-check-edit-string))
(define (check-move/copy+delete-property) (define (check-move/copy+delete-property)
@ -840,7 +840,7 @@
[(<= end dest-pos) [(<= end dest-pos)
(send t2 delete start end)]) (send t2 delete start end)])
(check-equal? (send t1 get-text) (send t2 get-text))) (check-equal? (send t1 get-text) (send t2 get-text)))
(for ([i (in-range 1000)]) (for ([i (in-range 100)])
(check-move/copy+delete-property)) (check-move/copy+delete-property))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;