tests: Add test for class self-mutation

inobulles · Sep 10, 2024 · 64523fa · 64523fa
1 parent 6e108e0
commit 64523fa
Showing 1 changed file with 27 additions and 0 deletions.
diff --git a/tests/class_self_mutation.fl b/tests/class_self_mutation.fl
@@ -0,0 +1,27 @@
+# Self-mutation.
+
+class Incrementor(initial: int) {
+	let x = initial
+
+	fn inc {
+		x = x + 1
+	}
+
+	fn dec {
+		x = x - 1
+	}
+
+	fn cur {
+		return x
+	}
+}
+
+let inc = Incrementor(0)
+
+inc.inc()
+inc.inc()
+inc.dec()
+inc.inc()
+inc.inc()
+
+assert inc.cur() == 3