From 8fc5cc6f7ea8d0e7a1c64086d81f0d92bb00f082 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 24 Nov 2014 09:08:22 -0700
Subject: [PATCH] racket/snip: fix bug in splitting string snips

original commit: f02bfbd11ea71b6e0afcd1424da754f2bdea764b
---
 pkgs/gui-pkgs/gui-test/tests/gracket/editor.rktl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/pkgs/gui-pkgs/gui-test/tests/gracket/editor.rktl b/pkgs/gui-pkgs/gui-test/tests/gracket/editor.rktl
index dd454e76..901d15cb 100644
--- a/pkgs/gui-pkgs/gui-test/tests/gracket/editor.rktl
+++ b/pkgs/gui-pkgs/gui-test/tests/gracket/editor.rktl
@@ -648,7 +648,17 @@
     (error 'notifications "too weak? ~e" count))
   (unless (<= 0 count2 (/ N 2))
     (error 'notifications "not weak enough? ~e" count2)))
-  
+
+;; ----------------------------------------
+;; make sure splitting a large string snip works:
+
+(void
+ (send (make-object string-snip% (make-string 100000 #\a))
+       split
+       50000
+       (box #f)
+       (box #f)))
+
 ;; ----------------------------------------
 ;; No #<unsafe-undefined> checks on certain class instances