Segment syntax test

2024-07-05 09:28:54 +00:00 · 2018-03-17 13:49:37 +01:00 · 2018-03-17 13:49:37 +01:00 · fa34402749
commit fa34402749
parent 14a2592170
1 changed files with 10 additions and 0 deletions
--- a/src/test/scala/millfork/test/BasicSymonTest.scala
+++ b/src/test/scala/millfork/test/BasicSymonTest.scala
@ -133,4 +133,14 @@ class BasicSymonTest extends FunSuite with Matchers {
      """.stripMargin)
      m.readWord(0xc000) should equal(4)
  }
+
+  test("Segment syntax") {
+    EmuUnoptimizedRun(
+      """
+        | segment(default)byte output @$c000
+        | segment(default)array x[3]
+        | segment(default)void main () {
+        | }
+      """.stripMargin)
+  }
 }