[hcoop/debian/mlton.git] / regression / substring-overflow.sml

open Substring

val _ =
   (slice (full "abc", 1, SOME (valOf Int.maxInt))
    ; print "ERROR\n")
   handle Subscript => print "OK\n"
Commit	Line	Data
7f918cf1 CE	1	open Substring
	2
	3	val _ =
	4	(slice (full "abc", 1, SOME (valOf Int.maxInt))
	5	; print "ERROR\n")
	6	handle Subscript => print "OK\n"