remove entry in tests/ChangeLog and separate the testcase

Author: ammaralmorsi

tests/ChangeLog

@@ -1,8 +1,4 @@
 
-2024-08-30  Ammar Almorsi <[email protected]>
-	* testsuite.src/run_ml.at: Added new test case to verify the correct
-	  generation of nested XML attributes
-
 2024-08-03  David Declerck <[email protected]>
 
 	* testsuite.src/run_file.at, testsuite.src/run_misc.at:

tests/testsuite.src/run_ml.at

@@ -45,13 +45,6 @@ AT_DATA([prog.cob], [
            05 name          PIC X(10) value "Someone".
            05 dept          PIC X(10) value "Marketing".
 
-       01  NSTD.
-           05  ATT1 pic x(4) value "ATT1".
-           05  CHLD1.
-               10  NSTD_ATT1 pic x(9) value "NSTD_ATT1".
-               10  NSTD_ATT2 pic x(9) value "NSTD_ATT2".
-           05  ATT2 pic x(4) value "ATT2".
-
        PROCEDURE            DIVISION.
            XML GENERATE out
                FROM rec
@@ -124,7 +117,33 @@ AT_DATA([prog.cob], [
                DISPLAY 'Test 10 failed: ' FUNCTION TRIM (out)
            END-IF
            .
+])
+
+AT_CHECK([$COMPILE -fnot-reserved=ID prog.cob], [0], [], [])
+AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
+AT_CLEANUP
+
+
+AT_SETUP([XML GENERATE WITH ATTRIBUTES])
+AT_KEYWORDS([extensions])
+
+AT_SKIP_IF([test "$COB_HAS_XML2" = "no"])
+
+AT_DATA([prog.cob], [
+       IDENTIFICATION       DIVISION.
+       PROGRAM-ID.          prog.
+
+       DATA                 DIVISION.
+       WORKING-STORAGE      SECTION.
+       01  out              PIC X(200).
+       01  NSTD.
+           05  ATT1 pic x(4) value "ATT1".
+           05  CHLD1.
+               10  NSTD_ATT1 pic x(9) value "NSTD_ATT1".
+               10  NSTD_ATT2 pic x(9) value "NSTD_ATT2".
+           05  ATT2 pic x(4) value "ATT2".
 
+       PROCEDURE            DIVISION.
            XML GENERATE out FROM NSTD WITH ATTRIBUTES
            IF out <> '<NSTD ATT1="ATT1" ATT2="ATT2">'-
                      '<CHLD1 NSTD_ATT1="NSTD_ATT1" '-