tests: Move anonymous type<>() field access tests into anon-access.bas

Author: dkl

tests/structs/anon-access.bas

@@ -2,46 +2,56 @@
 
 namespace fbc_tests.structs.anon_access
 
-type UDT
+type PodUdt
+	i as integer
+end type
+
+type CtorUdt
 	as integer a, b
 	declare constructor( )
 end type
 
-constructor UDT( )
+constructor CtorUdt( )
 	a = 123
 	b = 456
 end constructor
 
+sub test cdecl( )
+	CU_ASSERT( (type<PodUdt>( 123 )).i = 123 )
+	CU_ASSERT( type<PodUdt>( 123 ).i = 123 )
+end sub
+
 private sub test3538470 cdecl( )
 	'' Regression test for bug #3538470
 	'' This used to trigger an out-of-bounds array access in fbc
 	dim x as integer
 
 	CU_ASSERT( x = 0 )
-	x = (UDT( )).a
+	x = (CtorUdt( )).a
 	CU_ASSERT( x = 123 )
-	CU_ASSERT( (UDT( )).a = 123 )
-	CU_ASSERT( 123 = (UDT( )).a )
+	CU_ASSERT( (CtorUdt( )).a = 123 )
+	CU_ASSERT( 123 = (CtorUdt( )).a )
 
-	x = (UDT( )).b
+	x = (CtorUdt( )).b
 	CU_ASSERT( x = 456 )
-	CU_ASSERT( (UDT( )).b = 456 )
-	CU_ASSERT( 456 = (UDT( )).b )
+	CU_ASSERT( (CtorUdt( )).b = 456 )
+	CU_ASSERT( 456 = (CtorUdt( )).b )
 
-	x = (type<UDT>( )).a
+	x = (type<CtorUdt>( )).a
 	CU_ASSERT( x = 123 )
-	CU_ASSERT( (type<UDT>( )).a = 123 )
-	CU_ASSERT( 123 = (type<UDT>( )).a )
+	CU_ASSERT( (type<CtorUdt>( )).a = 123 )
+	CU_ASSERT( 123 = (type<CtorUdt>( )).a )
 
-	x = (type<UDT>( )).b
+	x = (type<CtorUdt>( )).b
 	CU_ASSERT( x = 456 )
-	CU_ASSERT( (type<UDT>( )).b = 456 )
-	CU_ASSERT( 456 = (type<UDT>( )).b )
+	CU_ASSERT( (type<CtorUdt>( )).b = 456 )
+	CU_ASSERT( 456 = (type<CtorUdt>( )).b )
 end sub
 
 private sub ctor( ) constructor
 	fbcu.add_suite( "tests/structs/anon-access" )
 	fbcu.add_test( "#3538470", @test3538470 )
+	fbcu.add_test( "test", @test )
 end sub
 
 end namespace

tests/structs/anon-assign.bas

@@ -81,17 +81,6 @@ namespace ctorcallDespiteConstBits
 	end sub
 end namespace
 
-namespace memberAccess
-	type UDT
-		i as integer
-	end type
-
-	sub test cdecl( )
-		CU_ASSERT( (type<UDT>( 123 )).i = 123 )
-		CU_ASSERT( type<UDT>( 123 ).i = 123 )
-	end sub
-end namespace
-
 namespace anonCtorCallInit
 	type A
 		i as integer
@@ -127,7 +116,6 @@ private sub ctor( ) constructor
 	fbcu.add_test("test_3", @test_3)
 	fbcu.add_test("test_4", @test_4)
 	fbcu.add_test( "ctorcall + CONST bits", @ctorcallDespiteConstBits.test )
-	fbcu.add_test( "member access", @memberAccess.test )
 	fbcu.add_test( "type() initializer for UDTs with ctor", @anonCtorCallInit.test )
 end sub