From 83cb692738d06e825988999e89d9fe2d00f8a438 Mon Sep 17 00:00:00 2001 From: Daniel Feltey Date: Tue, 7 Mar 2017 12:06:56 -0600 Subject: [PATCH] Run fewer random tests --- gui-test/framework/tests/text.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gui-test/framework/tests/text.rkt b/gui-test/framework/tests/text.rkt index afbbb21f..c9cc4593 100644 --- a/gui-test/framework/tests/text.rkt +++ b/gui-test/framework/tests/text.rkt @@ -813,7 +813,7 @@ #:try-to-move? try-to-move? #:contract-this? contract-this?) (edit-string str start end dest-pos try-to-move?))) -(for ([i (in-range 1000)]) +(for ([i (in-range 100)]) (random-check-edit-string)) (define (check-move/copy+delete-property) @@ -840,7 +840,7 @@ [(<= end dest-pos) (send t2 delete start end)]) (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)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;