diff --git a/shell/exception-logger.sml b/shell/exception-logger.sml index a6d1e54..8caa3cd 100644 --- a/shell/exception-logger.sml +++ b/shell/exception-logger.sml @@ -33,6 +33,6 @@ struct val () = TextIO.output (io, textOutput) val () = TextIO.closeOut io in - raise Empty + raise e end end diff --git a/test/regression.sml b/test/regression.sml index 67da7e1..da54692 100644 --- a/test/regression.sml +++ b/test/regression.sml @@ -43,12 +43,22 @@ struct let val app = appFromText initialText val history = "G12dk" - val history = "100G55dkz33dk" val newApp = applyChars (history, app) in (* just expect that we do not fail or throw an exception *) Expect.isTrue true - end)] + end), + + test "idk yet" (fn _ => + let + val app = appFromText initialText + val history = "16G18ddjjjjjjjjjdkdkdkjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj" + val newApp = applyChars (history, app) + in + Expect.isTrue true + end + ) + ] val tests = [charEventTests] end