Mercurial Mercurial > hg > stx-goodies-regression / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge jv tip master
author"Patrik Svestka <patrik.svestka@gmail.com>"
Fri, 16 Dec 2022 10:44:49 +0100
branchjv
changeset 2608 b77fda6a2e98
parent 2607 ddf2eb8b3f1d (current diff)
parent 2606 ca1a3083168c (diff)
Merge - commit more robust tests - commit fixes random test fails when creating a process
RegressionTests__Win32OperatingSystemTest.st file | annotate | diff | comparison | revisions 
--- a/RegressionTests__Win32OperatingSystemTest.st	Thu Aug 25 11:29:18 2022 +0100
+++ b/RegressionTests__Win32OperatingSystemTest.st	Fri Dec 16 10:44:49 2022 +0100
@@ -4,7 +4,7 @@
  COPYRIGHT (c) Claus Gittinger / eXept Software AG
  COPYRIGHT (c) 2016 Jan Vrany
  COPYRIGHT (c) 2021 svestkap
- COPYRIGHT (c) 2021 Patrik Svestka
+ COPYRIGHT (c) 2021-2022 Patrik Svestka
  COPYRIGHT (c) 2022 Jan Vrany
               All Rights Reserved
 
@@ -576,7 +576,7 @@
     | beyondCreateProcessArgumentsLimit commandLine savedException |
     
     beyondCreateProcessArgumentsLimit := 4096.    
-    commandLine := RandomGenerator new nextCharacters: beyondCreateProcessArgumentsLimit.
+    commandLine := RandomGenerator new nextLettersOrDigits: beyondCreateProcessArgumentsLimit.
     self assert: commandLine size = beyondCreateProcessArgumentsLimit.
     
     self should: [
@@ -602,7 +602,7 @@
     
     beyondCreateProcessArgumentsLimit := 4097.         
     "/ created random String size 4097
-    commandLine := RandomGenerator new nextCharacters: beyondCreateProcessArgumentsLimit.
+    commandLine := RandomGenerator new nextLettersOrDigits: beyondCreateProcessArgumentsLimit.
     self assert: commandLine size = beyondCreateProcessArgumentsLimit.
     
     handle := Win32OperatingSystem::Win32ProcessHandle new.
@@ -624,6 +624,7 @@
     self assert: handle isNil.
 
     "Created: / 21-10-2021 / 12:17:02 / svestkap"
+    "Modified: / 20-05-2022 / 13:58:16 / Patrik Svestka <patrik.svestka@gmail.com>"
 !
 
 testExecWithTooLongCommandPath
@@ -631,7 +632,7 @@
     | beyondCreateProcessArgumentsLimit commandPath savedException |
     
     beyondCreateProcessArgumentsLimit := 4096.
-    commandPath := RandomGenerator new nextCharacters: beyondCreateProcessArgumentsLimit.
+    commandPath := RandomGenerator new nextLettersOrDigits: beyondCreateProcessArgumentsLimit.
     self assert: commandPath size = beyondCreateProcessArgumentsLimit.
     
     self should: [
@@ -657,7 +658,7 @@
     
     beyondCreateProcessArgumentsLimit := 4097.
     "/ created random String size 4097
-    commandPath := RandomGenerator new nextCharacters: beyondCreateProcessArgumentsLimit.
+    commandPath := RandomGenerator new nextLettersOrDigits: beyondCreateProcessArgumentsLimit.
     self assert: commandPath size = beyondCreateProcessArgumentsLimit.
     
     handle := Win32OperatingSystem::Win32ProcessHandle new.
@@ -679,6 +680,7 @@
     self assert: handle isNil.
 
     "Created: / 21-10-2021 / 12:19:37 / svestkap"
+    "Modified: / 20-05-2022 / 13:58:03 / Patrik Svestka <patrik.svestka@gmail.com>"
 !
 
 testExecWithTooLongDirName
@@ -686,7 +688,7 @@
     | beyondCreateProcessArgumentsLimit dirName savedException |
     
     beyondCreateProcessArgumentsLimit := 4096.
-    dirName := RandomGenerator new nextCharacters: beyondCreateProcessArgumentsLimit.
+    dirName := RandomGenerator new nextLettersOrDigits: beyondCreateProcessArgumentsLimit.
     self assert: dirName size = beyondCreateProcessArgumentsLimit.
     
     self should: [
@@ -711,7 +713,7 @@
     | beyondCreateProcessArgumentsLimit dirName handle |
     
     beyondCreateProcessArgumentsLimit := 4097.
-    dirName := RandomGenerator new nextCharacters: beyondCreateProcessArgumentsLimit.
+    dirName := RandomGenerator new nextLettersOrDigits: beyondCreateProcessArgumentsLimit.
     self assert: dirName size = beyondCreateProcessArgumentsLimit.
     
     handle := Win32OperatingSystem::Win32ProcessHandle new.
@@ -733,6 +735,7 @@
     self assert: handle isNil.
 
     "Created: / 21-10-2021 / 12:21:54 / svestkap"
+    "Modified: / 20-05-2022 / 13:35:31 / Patrik Svestka <patrik.svestka@gmail.com>"
 ! !
 
 !Win32OperatingSystemTest methodsFor:'tests'!
hg/stx-goodies-regression