macro test

Author: RblSb

tests/misc/projects/Issue3053/Main.hx

@@ -72,6 +72,11 @@ class Main {
 
 		bar.defaultNull = 1; // err
 
+		bar.age;
+		@:bypassAccessor bar.age = 1;
+		@:privateAccess bar.age = 1;
+		bar.age = 1; // err
+
 		final child = new Child();
 		@:privateAccess child.width = 1;
 	}
@@ -115,6 +120,7 @@ class Rect implements Shape {
 	}
 }
 
+@:build(PropertyMacro.addIntProperty("age"))
 class Bar {
 	public function new() {
 		width = 2;

tests/misc/projects/Issue3053/PropertyMacro.hx

@@ -0,0 +1,47 @@
+import haxe.macro.Context;
+import haxe.macro.Expr;
+
+class PropertyMacro {
+	public static macro function addIntProperty(name:String):Array<Field> {
+		final fields = Context.getBuildFields();
+
+		final privateField:Field = {
+			name: name,
+			access: [APublic],
+			meta: [{
+				name: ":isVar",
+				pos: Context.currentPos()
+			}],
+			kind: FProp("get", "private set", macro : Int, null),
+			pos: Context.currentPos()
+		};
+
+		final getterMethod = {
+			name: "get_" + name,
+			access: [],
+			kind: FFun({
+				args: [],
+				ret: macro : Int,
+				expr: macro return this.$name
+			}),
+			pos: Context.currentPos()
+		};
+
+		final setterMethod = {
+			name: "set_" + name,
+			access: [],
+			kind: FFun({
+				args: [{ name: "value", type: macro : Int }],
+				ret: macro : Int,
+				expr: macro return this.$name = value
+			}),
+			pos: Context.currentPos()
+		};
+
+		fields.push(privateField);
+		fields.push(getterMethod);
+		fields.push(setterMethod);
+
+		return fields;
+	}
+}

tests/misc/projects/Issue3053/compile-fail.hxml.stderr

@@ -8,9 +8,10 @@ Main.hx:70: characters 3-12 : This property cannot be accessed for writing
 Main.hx:71: characters 7-12 : Cannot access private field width
 Main.hx:71: characters 3-12 : This property cannot be accessed for reading
 Main.hx:73: characters 7-18 : This expression cannot be accessed for writing
+Main.hx:78: characters 3-10 : This property cannot be accessed for writing
 Main.hx:21: characters 3-26 : Main should be FooType
 Main.hx:21: characters 3-26 : ... Inconsistent getter for field foo : private get should be get
 Main.hx:24: characters 3-19 : FooPrivateGetType should be FooType
 Main.hx:24: characters 3-19 : ... Inconsistent getter for field foo : private get should be get
-Main.hx:107: characters 13-18 : Field width has different property access than in Shape: (get,private set) should be (private get,set)
-Main.hx:89: characters 13-18 : Field width has different property access than in PublicShape: (get,private set) should be (get,set)
+Main.hx:112: characters 13-18 : Field width has different property access than in Shape: (get,private set) should be (private get,set)
+Main.hx:94: characters 13-18 : Field width has different property access than in PublicShape: (get,private set) should be (get,set)