* test properly split, resolves #41362

tests/webtbs/tw2536.pp

@@ -1,50 +0,0 @@
-{ Source provided for Free Pascal Bug Report 2536 }
-{ Submitted by "Michael Van Canneyt" on  2003-06-14 }
-{ e-mail: [email protected] }
-unit tw2536;
-
-interface
-
-Type
-  TWSAData = Pointer;
-
-var
-
-  // Delphi accepts this.
-  WSAStartup: function(wVersionRequired: Word; var WSData: TWSAData): Integer stdcall = nil;
-  // FPC should accept this too
-  WSAStartup2: function(wVersionRequired: Word; var WSData: TWSAData): Integer;stdcall = nil;
-
-implementation
-
-end.unit testu2;
-
-interface
-
-Type
-  TWSAData = Pointer;
-
-const
-
-  // FPC and Delphi accepts this.
-  WSAStartup: function(wVersionRequired: Word; var WSData: TWSAData): Integer stdcall = nil;
-  // FPC does not accept this.
-  WSAStartup2: function(wVersionRequired: Word; var WSData: TWSAData): Integer = nil; stdcall;
-
-implementation
-end.
-unit testu3;
-interface
-Type
-  TWSAData = Pointer;
-  TStartupFunction = function(wVersionRequired: Word; var WSData: TWSAData): Integer stdcall;
-  TStartupFunction2 = function(wVersionRequired: Word; var WSData: TWSAData): Integer; stdcall;
-
-var
-
-  WSAStartup: TStartupFunction = nil;
-  WSAStartup2: TStartupFunction2 = Nil;
-
-implementation
-
-end.

tests/webtbs/tw2536a.pp

@@ -0,0 +1,20 @@
+{ Source provided for Free Pascal Bug Report 2536 }
+{ Submitted by "Michael Van Canneyt" on  2003-06-14 }
+{ e-mail: [email protected] }
+unit tw2536a;
+
+interface
+
+Type
+  TWSAData = Pointer;
+
+var
+
+  // Delphi accepts this.
+  WSAStartup: function(wVersionRequired: Word; var WSData: TWSAData): Integer stdcall = nil;
+  // FPC should accept this too
+  WSAStartup2: function(wVersionRequired: Word; var WSData: TWSAData): Integer;stdcall = nil;
+
+implementation
+
+end.

tests/webtbs/tw2536b.pp

@@ -0,0 +1,20 @@
+{ Source provided for Free Pascal Bug Report 2536 }
+{ Submitted by "Michael Van Canneyt" on  2003-06-14 }
+{ e-mail: [email protected] }
+unit tw2536b;
+
+interface
+
+Type
+  TWSAData = Pointer;
+
+const
+
+  // FPC and Delphi accepts this.
+  WSAStartup: function(wVersionRequired: Word; var WSData: TWSAData): Integer stdcall = nil;
+  // FPC does not accept this.
+  WSAStartup2: function(wVersionRequired: Word; var WSData: TWSAData): Integer = nil; stdcall;
+
+implementation
+end.
+

tests/webtbs/tw2536c.pp

@@ -0,0 +1,19 @@
+{ Source provided for Free Pascal Bug Report 2536 }
+{ Submitted by "Michael Van Canneyt" on  2003-06-14 }
+{ e-mail: [email protected] }
+unit tw2536c;
+
+interface
+Type
+  TWSAData = Pointer;
+  TStartupFunction = function(wVersionRequired: Word; var WSData: TWSAData): Integer stdcall;
+  TStartupFunction2 = function(wVersionRequired: Word; var WSData: TWSAData): Integer; stdcall;
+
+var
+
+  WSAStartup: TStartupFunction = nil;
+  WSAStartup2: TStartupFunction2 = Nil;
+
+implementation
+
+end.