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 (diff)
parent 2606 ca1a3083168c (current 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	Fri May 20 14:06:23 2022 +0200
+++ b/RegressionTests__Win32OperatingSystemTest.st	Fri Dec 16 10:44:49 2022 +0100
@@ -5,6 +5,7 @@
  COPYRIGHT (c) 2016 Jan Vrany
  COPYRIGHT (c) 2021 svestkap
  COPYRIGHT (c) 2021-2022 Patrik Svestka
+ COPYRIGHT (c) 2022 Jan Vrany
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -32,7 +33,7 @@
  COPYRIGHT (c) Claus Gittinger / eXept Software AG
  COPYRIGHT (c) 2016 Jan Vrany
  COPYRIGHT (c) 2021 svestkap
- COPYRIGHT (c) 2021-2022 Patrik Svestka
+ COPYRIGHT (c) 2021 Patrik Svestka
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -532,16 +533,14 @@
                          fork:true
                       newPgrp:false
                   inDirectory: Filename currentDirectory pathName
-    ] raise: Exception
+    ] raise: OsError
     suchThat: [ :ex | 
         savedException := ex.
-        ex description includesString: 'File does not exist - CreateProcessW() has failed (File not found)'
+        ex errorSymbol == #'ERROR_FILE_NOT_FOUND'
     ].
-    "/ the error is NOT proceedable
-    self deny: savedException willProceed
 
     "Created: / 21-10-2021 / 12:16:45 / svestkap"
-    "Modified: / 26-11-2021 / 09:51:15 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 25-08-2022 / 11:21:04 / jv"
 !
 
 testExecCreatedProcessError2
@@ -590,13 +589,11 @@
     ] raise: Exception
     suchThat: [ :ex | 
         savedException := ex.
-        ex description includesString: 'Invalid Arguments - commandLineUni16 exceeded size limit (4096 characters) (Invalid parameter)'.
+        ex errorSymbol == #'ERROR_INVALID_PARAMETER'
     ].
-    "/ the exception is NOT proceedable
-    self deny: savedException willProceed
 
     "Created: / 21-10-2021 / 12:16:53 / svestkap"
-    "Modified: / 20-05-2022 / 13:58:24 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 25-08-2022 / 11:22:06 / jv"
 !
 
 testExecWithTooLongCommandLine2
@@ -648,13 +645,11 @@
     ] raise: Exception
     suchThat: [ :ex | 
         savedException := ex.
-        ex description includesString: 'Invalid Arguments - commandPathUni16 exceeded size limit (4096 characters) (Invalid parameter)'.
+        ex errorSymbol == #'ERROR_INVALID_PARAMETER'
     ].
-    "/ the error is NOT proceedable
-    self deny: savedException willProceed
 
     "Created: / 21-10-2021 / 12:18:26 / svestkap"
-    "Modified: / 20-05-2022 / 13:58:09 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 25-08-2022 / 11:22:56 / jv"
 !
 
 testExecWithTooLongCommandPath2
@@ -706,13 +701,11 @@
     ] raise: Exception
     suchThat: [ :ex | 
         savedException := ex.
-        ex description includesString: 'Invalid Arguments - dirNameUni16 exceeded size limit (4096 characters) (Invalid parameter)'.
+        ex errorSymbol == #'ERROR_INVALID_PARAMETER'
     ].
-    "/ the exception is NOT proceedable
-    self deny: savedException willProceed
 
     "Created: / 21-10-2021 / 12:22:38 / svestkap"
-    "Modified: / 20-05-2022 / 13:32:50 / Patrik Svestka <patrik.svestka@gmail.com>"
+    "Modified: / 25-08-2022 / 11:23:15 / jv"
 !
 
 testExecWithTooLongDirName2
hg/stx-goodies-regression