cast const ptr: tidy up tests for sf.net bug 801

jayrm · jayrm · commit ca3a2461db2f · 2018-08-17T18:08:45.000-04:00
diff --git a/tests/const/rtl-clear.bas b/tests/const/rtl-clear.bas
@@ -7,3 +7,5 @@ scope
 	dim as const integer a = 256
 
 	clear a, 0, sizeof(integer)
+
+end scope
diff --git a/tests/structs/anon-invalid-initializer-1.bas b/tests/structs/anon-invalid-initializer-1.bas
@@ -0,0 +1,15 @@
+' TEST_MODE : COMPILE_ONLY_FAIL
+
+'' from sf.net #801
+
+scope 
+	type UDT
+		i as integer
+	end type
+
+	dim x as UDT
+
+    '' Expected to fail
+	type<UDT>(1) = x
+
+end scope
diff --git a/tests/structs/anon-invalid-initializer-2.bas b/tests/structs/anon-invalid-initializer-2.bas
@@ -9,12 +9,7 @@ scope
 
 	dim x as UDT
 
-	'' OK
-   	type<UDT>(0).i = 1
-	*@type<UDT>(0).i = 1
-
     '' Expected to fail
-	type<UDT>(1) = x
 	*@type<UDT>(1) = x
 
 end scope
diff --git a/tests/structs/anon-valid-initializer.bas b/tests/structs/anon-valid-initializer.bas
@@ -0,0 +1,16 @@
+' TEST_MODE : COMPILE_ONLY_OK
+
+'' from sf.net #801
+
+scope 
+	type UDT
+		i as integer
+	end type
+
+	dim x as UDT
+
+	'' OK
+   	type<UDT>(0).i = 1
+	*@type<UDT>(0).i = 1
+
+end scope
diff --git a/tests/warnings/const-discard.bas b/tests/warnings/const-discard.bas
@@ -132,24 +132,6 @@ scope
 	end scope
 end scope
 
-'' --------------------------------------------------------
-
-'' from sf.net #801
-
-WARN( 0 )
-
-scope 
-	type UDT
-		i as integer
-	end type
-
-	dim x as UDT
-
-	type<UDT>(0).i = 1
-	*@type<UDT>(0).i = 1
-
-end scope
-
 '' ----------------
 
 #print "---- RTLIB"
diff --git a/tests/warnings/r/dos/const-discard.txt b/tests/warnings/r/dos/const-discard.txt
@@ -16,7 +16,6 @@ CONST UBYTE PTR
 CONST UBYTE PTR
 CONST UBYTE PTR
 CONST UBYTE PTR
-none expected
 ---- RTLIB
 warning expected
 	CONST qualifier discarded
diff --git a/tests/warnings/r/linux-x86/const-discard.txt b/tests/warnings/r/linux-x86/const-discard.txt
@@ -16,7 +16,6 @@ CONST UBYTE PTR
 CONST UBYTE PTR
 CONST UBYTE PTR
 CONST UBYTE PTR
-none expected
 ---- RTLIB
 warning expected
 	CONST qualifier discarded
diff --git a/tests/warnings/r/linux-x86_64/const-discard.txt b/tests/warnings/r/linux-x86_64/const-discard.txt
@@ -16,7 +16,6 @@ CONST UBYTE PTR
 CONST UBYTE PTR
 CONST UBYTE PTR
 CONST UBYTE PTR
-none expected
 ---- RTLIB
 warning expected
 	CONST qualifier discarded
diff --git a/tests/warnings/r/win32/const-discard.txt b/tests/warnings/r/win32/const-discard.txt
@@ -16,7 +16,6 @@ CONST UBYTE PTR
 CONST UBYTE PTR
 CONST UBYTE PTR
 CONST UBYTE PTR
-none expected
 ---- RTLIB
 warning expected
 	CONST qualifier discarded
diff --git a/tests/warnings/r/win64/const-discard.txt b/tests/warnings/r/win64/const-discard.txt
@@ -16,7 +16,6 @@ CONST UBYTE PTR
 CONST UBYTE PTR
 CONST UBYTE PTR
 CONST UBYTE PTR
-none expected
 ---- RTLIB
 warning expected
 	CONST qualifier discarded
