Small changes to test code

Author: RobertvanderHulst

src/CompilerTests/Applications/Tester/Prg/tester.prg

@@ -1,10 +1,37 @@
 // Core dialect
-PUBLIC STRUCTURE MyStruct
-	EXPORT n AS INT
-	EXPORT c AS STRING
-END STRUCTURE
 
 FUNCTION Start() AS VOID
-	? SizeOf(System.Drawing.Point) // OK
-	? SizeOf(MyStruct) // error XS0208: Cannot take the address of, get the size of, or declare a pointer to a managed type ('MyStruct')
 RETURN
+
+function XSGetProcessIdThread( nThreadId as dword ) as array
+	local aWindows			as array
+	local oGCHandle			as System.Runtime.InteropServices.GCHandle
+	local oPtr 				as IntPtr
+	local oDelegate			as EnumWindowsProc_delegate
+	// static local oEnumWindowsProcDelegate := EnumWindowsProc as EnumWindowsProc_Delegate
+
+	aWindows		:= {}
+	oDelegate		:= EnumWindowsProcProc
+	oPtr 		:= System.Runtime.InteropServices.Marshal.GetFunctionPointerForDelegate( oDelegate )
+	oGcHandle := NULL // default( System.Runtime.InteropServices.GCHandle)
+	EnumThreadWindows( nThreadId, oPtr, System.Runtime.InteropServices.GCHandle.ToIntPtr( oGCHandle ) )
+	oGCHandle:Free()
+
+	return aWindows
+
+function EnumWindowsProcProc(hwnd as ptr, lParam as IntPtr) as logic
+	local aWindows 	as array
+	local gch 		as System.Runtime.InteropServices.GCHandle
+	local nProcId	as dword
+	local pProcId   as dword Ptr
+
+	nProcId		:= 0
+	pProcId     := @nProcId
+	gch 		:= System.Runtime.InteropServices.GCHandle.FromIntPtr(LParam)
+	aWindows 	:= (array) gch:Target
+	GetWindowThreadProcessID( hWnd, pProcId )
+	AAdd( aWindows, { hwnd, nProcId } )
+
+	return true
+
+delegate EnumWindowsProc_delegate( hWnd as ptr, LParam as IntPtr ) as logic

src/CompilerTests/xSharp Tests.viproj

@@ -34,6 +34,7 @@ RecentReference = Browse:E:\XSharp\Dev\src\CompilerTests\Runtime\XSharp.RT.dll
 RecentReference = Browse:E:\XSharp\Dev\src\CompilerTests\Runtime\XSharp.VFP.dll
 RecentReference = GAC:XSharp.Core,v4,2.6.0.0
 RecentReference = GAC:XSharp.RT,v4,2.6.0.0
+RecentReference = Browse:E:\XSharp\Dev30\Artifacts\Debug\VOWin32APILibrary.dll
 
 [Application Groups]
 ApplicationGroup = BUGS,E440B545-3C18-4457-A54F-4F3256349ABE,723E53EA-0D2C-4FC9-B86E-F050D29A49D2
@@ -121419,11 +121420,12 @@ ReferenceGAC = CLR4,System.Core,1,0,4.0.0.0
 ReferenceBrowse = E:\XSharp\Dev\src\CompilerTests\Runtime\XSharp.RT.dll,1,1
 ReferenceBrowse = E:\XSharp\Dev\src\CompilerTests\Runtime\XSharp.Core.dll,1,1
 ReferenceBrowse = E:\XSharp\Dev\src\CompilerTests\Runtime\XSharp.VFP.dll,1,1
+ReferenceBrowse = E:\XSharp\Dev30\Artifacts\Debug\VOWin32APILibrary.dll,1,1
 [Tester Resources]
 [Tester Native Resources]
 [Tester License files]
 [Tester General Options]
-Switches=/ppo
+Switches=
 ZeroArrays=0
 CaseSensitive=0
 ImplicitNamespace=0
@@ -121435,7 +121437,7 @@ VO5=0
 VO6=0
 VO7=0
 VO8=0
-VO9=1
+VO9=0
 VO10=0
 VO11=0
 VO12=0
@@ -121447,7 +121449,7 @@ VO17=0
 FOX1=0
 FOX2=0
 XPP1=0
-LateBound=1
+LateBound=0
 Unsafe=0
 Undeclared=0
 EnforceSelf=0
@@ -121460,8 +121462,8 @@ FOvf=0
 ModernSyntax=0
 NamedArgs=0
 InitLocals=0
-AllowOldStyleAssignments=1
-AllowDotOption=1
+AllowOldStyleAssignments=0
+AllowDotOption=0
 ResponseOnly=0
 [Tester Configurations]
 AppConfig = Debug,11111111-1111-1111-1111-111111111111
@@ -136639,8 +136641,8 @@ FileType = Code
 CopyToBin = 0
 [C934 - Problem calling error handler from BEGIN...END SEQUENCE References]
 ReferenceGAC = CLR4,System,1,0,4.0.0.0
-ReferenceGAC = CLR4,XSharp.Core,1,0,2.6.0.0
-ReferenceGAC = CLR4,XSharp.RT,1,0,2.6.0.0
+ReferenceGAC = XSharp.Core,1,0,2.6.0.0
+ReferenceGAC = XSharp.RT,1,0,2.6.0.0
 [C934 - Problem calling error handler from BEGIN...END SEQUENCE Resources]
 [C934 - Problem calling error handler from BEGIN...END SEQUENCE Native Resources]
 [C934 - Problem calling error handler from BEGIN...END SEQUENCE License files]
@@ -136887,8 +136889,8 @@ CopyToBin = 0
 [C936 - Exception with default parameters from type float References]
 ReferenceGAC = CLR4,System,1,0,4.0.0.0
 ReferenceGAC = CLR4,System.Core,1,0,4.0.0.0
-ReferenceGAC = CLR4,XSharp.Core,1,0,2.6.0.0
-ReferenceGAC = CLR4,XSharp.RT,1,0,2.6.0.0
+ReferenceGAC = XSharp.Core,1,0,2.6.0.0
+ReferenceGAC = XSharp.RT,1,0,2.6.0.0
 [C936 - Exception with default parameters from type float Resources]
 [C936 - Exception with default parameters from type float Native Resources]
 [C936 - Exception with default parameters from type float License files]
@@ -137008,8 +137010,8 @@ CopyToBin = 0
 [C937 - Late bound problem with enums References]
 ReferenceGAC = CLR4,System,1,0,4.0.0.0
 ReferenceGAC = CLR4,System.Core,1,0,4.0.0.0
-ReferenceGAC = CLR4,XSharp.Core,1,0,2.6.0.0
-ReferenceGAC = CLR4,XSharp.RT,1,0,2.6.0.0
+ReferenceGAC = XSharp.Core,1,0,2.6.0.0
+ReferenceGAC = XSharp.RT,1,0,2.6.0.0
 [C937 - Late bound problem with enums Resources]
 [C937 - Late bound problem with enums Native Resources]
 [C937 - Late bound problem with enums License files]
@@ -137129,8 +137131,8 @@ CopyToBin = 0
 [C938 - Latebound assign of iVars References]
 ReferenceGAC = CLR4,System,1,0,4.0.0.0
 ReferenceGAC = CLR4,System.Core,1,0,4.0.0.0
-ReferenceGAC = CLR4,XSharp.Core,1,0,2.6.0.0
-ReferenceGAC = CLR4,XSharp.RT,1,0,2.6.0.0
+ReferenceGAC = XSharp.Core,1,0,2.6.0.0
+ReferenceGAC = XSharp.RT,1,0,2.6.0.0
 [C938 - Latebound assign of iVars Resources]
 [C938 - Latebound assign of iVars Native Resources]
 [C938 - Latebound assign of iVars License files]

src/CompilerTests/xSharp Tests.xicfg

@@ -2034,7 +2034,7 @@ LASTTOUCHED = 20230824123424
 APPLICATION = 20EFCF0E-6B10-43CF-918A-74C0DDE17AC8
 LASTTOUCHED = 20230824123424
 APPLICATION = 00517D44-7F90-491B-9AC1-3C6885BEA33F
-LASTTOUCHED = 20241119154613
+LASTTOUCHED = 20250418091532
 APPLICATION = C41734F5-C73D-469B-989C-328098E245DD
 LASTTOUCHED = 20230824123424
 APPLICATION = 92954064-33D6-486F-ACBF-FE857B16DEC2
@@ -2283,6 +2283,18 @@ APPLICATION = D48A0E62-DE1B-4E0D-AF91-E4FE5C842868
 LASTTOUCHED = 20241115085159
 APPLICATION = BF9F859C-EB6C-45CC-9F2D-9CBF03913353
 LASTTOUCHED = 20241223163803
+APPLICATION = 2319ADE3-1DCB-49C1-AACA-220627B2F577
+LASTTOUCHED = 20250415124430
+APPLICATION = 8380689D-5C5F-48FB-A1C9-C5B04AB745ED
+LASTTOUCHED = 20250415124430
+APPLICATION = 57989867-0C28-4438-8260-A34FF275EB05
+LASTTOUCHED = 20250415124430
+APPLICATION = 5AD925B3-58EF-4746-9342-07BD850A0116
+LASTTOUCHED = 20250415124430
+APPLICATION = A7B268C3-0E99-49BA-8191-30620231ACD2
+LASTTOUCHED = 20250415124430
+APPLICATION = A46C8D0A-D5BA-4DF7-B629-76697F5DF2E6
+LASTTOUCHED = 20250417114323
 
 [File Settings]
 FILE = 018196BD-ED9B-4D28-B739-2F6F63EF85DB
@@ -2345,23 +2357,4 @@ FILE = E9DF3356-7242-433B-9896-D95855934DB3
 BREAKPOINT = 1,10
 
 [OpenFiles]
-OPENFILE=F95CB848-7ED0-4590-B1C5-9A82058838B1,10,1
-OPENFILE=49F7B41E-2312-4C94-9A33-AB4C5F9BDE59,15,1
-OPENFILE=9E9E419C-2022-42BF-B545-FD4CDA1E126C,9,1
-OPENFILE=0A8C9546-D392-4E21-8F5D-451D00BBA06C,59,1
-OPENFILE=D0D0E096-1E2C-4475-8CC4-AD710381EE5D,14,1
-OPENFILE=378CB737-F264-4408-BEDC-687A0BDFFAAE,17,1
-OPENFILE=E31E5E07-7F51-4638-932A-DE7DD97F6473,229,1
-OPENFILE=66F443D8-3EC4-428C-93EC-88B9AA1F72F3,14,1
-OPENFILE=CD486AC9-7A7D-4594-B613-4D422AFD088E,16,1
-ACTIVEFILE=7B4DD920-5928-4A7C-B3B6-F0E0C9FF09F3,10,1
-OPENFILE=F7F45F5E-DFD6-4920-BFCB-231BF8947475,12,1
-OPENFILE=8DAC8163-CABE-4EEE-A472-A23A5BAC5D50,9,1
-OPENFILE=0E4E5762-377F-4D03-ABC5-3652AE49474C,14,1
-OPENFILE=C43E4070-CEB2-428E-BFE4-501B3B260A6A,1,1
-OPENFILE=0F9DB692-2825-4656-8FEA-3EE83AE24174,6,1
-OPENFILE=D60F10B5-FC0B-4A69-BBFA-B24568A9D692,11,1
-OPENFILE=7FD26807-C53A-42D7-89CC-52CDF49ADEC2,1,1
-OPENFILE=D1C2C977-8843-4D11-9A4D-BED48EDB5685,1,1
-OPENFILE=F11D952F-B053-4DD3-A4FA-61F69CDE744B,1,1
-OPENFILE=79AF7256-3EC8-4149-88EA-FB9C2516D7BA,1,1
+ACTIVEFILE=7B4DD920-5928-4A7C-B3B6-F0E0C9FF09F3,16,1

src/Tests/DbcTest/Program.prg

@@ -4,20 +4,26 @@ Using System.Linq
 Using System.Text
 
 Function Start() As Void Strict
-    System.Console.OutputEncoding = System.Text.Encoding.GetEncoding(936)
-    Use  c:\temp\testchar
-    DoWork()
-    Use  c:\temp\testmemo
-    DoWork()
-    Use  c:\temp\testvarchar
-    DoWork()
+   LOCAL u AS USUAL
+PRIVATE p
+try
+u := Today()
+p := Today()
+
+? GoMonth(u,1) // error XS0121
+? GoMonth(p,1) // error XS0121
+    ? Quarter(u, 1)
+    ? Week(u,1)
+    ? Week(u,2)
+    ? Week(u,3)
+    ? Dmy(u)
+    ? Mdy(u)
+    u := "abc"
+    //? Mdy(u)
+    //? Week(u,3)
+    //? GoMonth(u,1) // error XS0121
+    ? Quarter(u, 1)
+catch e as exception
+    ? e:ToString()
+end try
     wait
-    Return
-End Function
-FUNCTION DoWork()
-    FIELD a, b
-    Append Blank
-    Replace a With "005", b With "中国"
-    ? a
-    ? b
-    RETURN TRUE

src/Tests/General/Program.prg

@@ -1,11 +1,18 @@
-FUNCTION Start() AS VOID
-	LOCAL cFileName AS STRING
-	cFileName := "C:\temp\exception"
-    DbUseArea(,"DBFCDX",cFileName,,TRUE)
-	DO WHILE .not. eof()
-		? RecNo(), FieldGet(1)
-		DbSkip()
-	END DO
-    DBCloseArea()
+CLASS TestClass
+	METHOD Seek(a AS INT) AS INT
+		? "a"
+	RETURN a
+	METHOD Seek(a AS INT, b AS INT) AS INT
+		? "b"
+	RETURN a+b
+	METHOD Seek(a AS INT, b AS INT, c AS INT) AS INT
+		? "c"
+	RETURN a+b+c
+END CLASS
+
+FUNCTION Start() AS VOID
+	LOCAL u := TestClass{} AS USUAL
+	? u:Seek(1)
+	? u:Seek(1,2)
+    ? u:Seek(1,2,3)
     wait
-RETURN