RegressionTests__VMCrashTests.st
branchjv
changeset 1967 520545b0b5d9
parent 1965 a787232be371
child 1968 6d251802f109
--- a/RegressionTests__VMCrashTests.st	Tue Jan 02 16:29:05 2018 +0000
+++ b/RegressionTests__VMCrashTests.st	Tue Mar 27 09:18:33 2018 +0100
@@ -772,6 +772,24 @@
     "Modified: / 21-12-2017 / 15:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!VMCrashTests methodsFor:'tests - regression'!
+
+test_issue_197a
+    "
+    https://swing.fit.cvut.cz/projects/stx-jv/ticket/197
+    "
+    <spawn: true>
+
+    | path |
+
+    self skipIf: OperatingSystem isMSWINDOWSlike not  description: 'This test is Windows-specific'.
+
+    path := (Unicode16String new: 10000) replaceAll: Character space with: $x.
+    OperatingSystem primGetFileAttributes: path
+
+    "Created: / 27-03-2018 / 09:05:57 / jv"
+! !
+
 !VMCrashTests class methodsFor:'documentation'!
 
 version