Create testcases for all optable and machine options equivalent to op…

…table(ZOP)
abekornelis · Aug 24, 2024 · 279a93a · 279a93a
1 parent c27866a
commit 279a93a
Show file tree

Hide file tree

Showing 10 changed files with 391 additions and 78 deletions.
diff --git a/rt/bat/RUNOPTABLES.BAT b/rt/bat/RUNOPTABLES.BAT
diff --git a/rt/mlc/OPTB#ZS1.OPT b/rt/mlc/OPTB#ZS1.OPT
@@ -0,0 +1,6 @@
+noallow
+  optable(ZS1,list)
+  stats
+noloadhigh
+nodump
+notest
diff --git a/rt/mlc/OPTB_ARCH-5.OPT b/rt/mlc/OPTB_ARCH-5.OPT
@@ -0,0 +1,6 @@
+noallow
+  machine(ARCH-5,list)
+  stats
+noloadhigh
+nodump
+notest
diff --git a/rt/mlc/OPTB_ZS-1.OPT b/rt/mlc/OPTB_ZS-1.OPT
@@ -0,0 +1,6 @@
+noallow
+  machine(ZS-1,list)
+  stats
+noloadhigh
+nodump
+notest
diff --git a/rt/mlc/OPTB_ZS.OPT b/rt/mlc/OPTB_ZS.OPT
@@ -0,0 +1,6 @@
+noallow
+  machine(ZS,list)
+  stats
+noloadhigh
+nodump
+notest
diff --git a/rt/mlc/OPTB_z800.OPT b/rt/mlc/OPTB_z800.OPT
@@ -0,0 +1,6 @@
+noallow
+  machine(Z800,list)
+  stats
+noloadhigh
+nodump
+notest
diff --git a/rt/mlc/OPTB_z900.OPT b/rt/mlc/OPTB_z900.OPT
@@ -0,0 +1,6 @@
+noallow
+  machine(Z900,list)
+  stats
+noloadhigh
+nodump
+notest
diff --git a/rt/mlc/OPTB_zSeries-1.OPT b/rt/mlc/OPTB_zSeries-1.OPT
@@ -0,0 +1,6 @@
+noallow
+  machine(ZSERIES-1,list)
+  stats
+noloadhigh
+nodump
+notest
diff --git a/rt/mlc/OPTB_zSeries.OPT b/rt/mlc/OPTB_zSeries.OPT
@@ -0,0 +1,6 @@
+noallow
+  machine(ZSERIES,list)
+  stats
+noloadhigh
+nodump
+notest
diff --git a/z390test/src/test/groovy/org/z390/test/TestOptables.groovy b/z390test/src/test/groovy/org/z390/test/TestOptables.groovy
@@ -76,6 +76,32 @@ class TestOptables extends z390Test {
         assert rc == 0
     }
 
+    @Test
+    void test_optable_ZOP() {
+        /**
+         * test 6A - optable(ZOP)
+         */
+        var z390prn = basePath("rt", "mlc", "OPTB#ZOP.PRN")
+        env = ['Z390PRN': basePath("rt", "mlc", "OPTB#ZOP.PRN"),
+               'HLASMPRN': basePath("rt", "mlc", "OPTB#ZOP.TF1")]
+        int rc = this.asmlg(basePath("rt", "mlc", "OPTB#"), *this.options, "sysprn(${z390prn})", "@${basePath("rt", "mlc", "OPTB#ZOP.OPT")}")
+        this.printOutput()
+        assert rc == 0
+    }
+
+    @Test
+    void test_optable_ZS1() {
+        /**
+         * test 6B - optable(ZS1)
+         */
+        var z390prn = basePath("rt", "mlc", "OPTB#ZS1.PRN")
+        env = ['Z390PRN': basePath("rt", "mlc", "OPTB#ZS1.PRN"),
+               'HLASMPRN': basePath("rt", "mlc", "OPTB#ZS1.TF1")]
+        int rc = this.asmlg(basePath("rt", "mlc", "OPTB#"), *this.options, "sysprn(${z390prn})", "@${basePath("rt", "mlc", "OPTB#ZS1.OPT")}")
+        this.printOutput()
+        assert rc == 0
+    }
+
     @Test
     void test_optable_UNI() {
         /**
@@ -235,4 +261,95 @@ class TestOptables extends z390Test {
         this.printOutput()
         assert rc == 0
     }
+
+    @Test
+    void test_machine_zSeries() {
+        /**
+         * test 6C - machine(zSeries)
+         */
+        var z390prn = basePath("rt", "mlc", "OPTB_zSeries.PRN")
+        env = ['Z390PRN': basePath("rt", "mlc", "OPTB_zSeries.PRN"),
+               'HLASMPRN': basePath("rt", "mlc", "OPTB#ZOP.TF1")]
+        int rc = this.asmlg(basePath("rt", "mlc", "OPTB#"), *this.options, "sysprn(${z390prn})", "@${basePath("rt", "mlc", "OPTB_zSeries.OPT")}")
+        this.printOutput()
+        assert rc == 0
+    }
+
+    @Test
+    void test_machine_zSeries1() {
+        /**
+         * test 6D - machine(zSeries-1)
+         */
+        var z390prn = basePath("rt", "mlc", "OPTB_zSeries-1.PRN")
+        env = ['Z390PRN': basePath("rt", "mlc", "OPTB_zSeries-1.PRN"),
+               'HLASMPRN': basePath("rt", "mlc", "OPTB#ZOP.TF1")]
+        int rc = this.asmlg(basePath("rt", "mlc", "OPTB#"), *this.options, "sysprn(${z390prn})", "@${basePath("rt", "mlc", "OPTB_zSeries-1.OPT")}")
+        this.printOutput()
+        assert rc == 0
+    }
+
+    @Test
+    void test_machine_ZS() {
+        /**
+         * test 6E - machine(ZS)
+         */
+        var z390prn = basePath("rt", "mlc", "OPTB_ZS.PRN")
+        env = ['Z390PRN': basePath("rt", "mlc", "OPTB_ZS.PRN"),
+               'HLASMPRN': basePath("rt", "mlc", "OPTB#ZOP.TF1")]
+        int rc = this.asmlg(basePath("rt", "mlc", "OPTB#"), *this.options, "sysprn(${z390prn})", "@${basePath("rt", "mlc", "OPTB_ZS.OPT")}")
+        this.printOutput()
+        assert rc == 0
+    }
+
+    @Test
+    void test_machine_ZS1() {
+        /**
+         * test 6F - machine(ZS-1)
+         */
+        var z390prn = basePath("rt", "mlc", "OPTB_ZS-1.PRN")
+        env = ['Z390PRN': basePath("rt", "mlc", "OPTB_ZS-1.PRN"),
+               'HLASMPRN': basePath("rt", "mlc", "OPTB#ZOP.TF1")]
+        int rc = this.asmlg(basePath("rt", "mlc", "OPTB#"), *this.options, "sysprn(${z390prn})", "@${basePath("rt", "mlc", "OPTB_ZS-1.OPT")}")
+        this.printOutput()
+        assert rc == 0
+    }
+
+    @Test
+    void test_machine_z800() {
+        /**
+         * test 6G - machine(z800)
+         */
+        var z390prn = basePath("rt", "mlc", "OPTB_z800.PRN")
+        env = ['Z390PRN': basePath("rt", "mlc", "OPTB_z800.PRN"),
+               'HLASMPRN': basePath("rt", "mlc", "OPTB#ZOP.TF1")]
+        int rc = this.asmlg(basePath("rt", "mlc", "OPTB#"), *this.options, "sysprn(${z390prn})", "@${basePath("rt", "mlc", "OPTB_z800.OPT")}")
+        this.printOutput()
+        assert rc == 0
+    }
+
+    @Test
+    void test_machine_z900() {
+        /**
+         * test 6H - machine(z900)
+         */
+        var z390prn = basePath("rt", "mlc", "OPTB_z900.PRN")
+        env = ['Z390PRN': basePath("rt", "mlc", "OPTB_z900.PRN"),
+               'HLASMPRN': basePath("rt", "mlc", "OPTB#ZOP.TF1")]
+        int rc = this.asmlg(basePath("rt", "mlc", "OPTB#"), *this.options, "sysprn(${z390prn})", "@${basePath("rt", "mlc", "OPTB_z900.OPT")}")
+        this.printOutput()
+        assert rc == 0
+    }
+
+    @Test
+    void test_machine_ARCH5() {
+        /**
+         * test 6I - machine(ARCH-5)
+         */
+        var z390prn = basePath("rt", "mlc", "OPTB_ARCH-5.PRN")
+        env = ['Z390PRN': basePath("rt", "mlc", "OPTB_ARCH-5.PRN"),
+               'HLASMPRN': basePath("rt", "mlc", "OPTB#ZOP.TF1")]
+        int rc = this.asmlg(basePath("rt", "mlc", "OPTB#"), *this.options, "sysprn(${z390prn})", "@${basePath("rt", "mlc", "OPTB_ARCH-5.OPT")}")
+        this.printOutput()
+        assert rc == 0
+    }
 }