test: add a test

Author: kio-watanabe

tests/misc.src/convert-string-concat.at

@@ -0,0 +1,40 @@
+AT_SETUP([convert '&' concatenated strings to Java])
+
+AT_DATA([prog.cbl], [
+       IDENTIFICATION   DIVISION.	
+       PROGRAM-ID.      prog.	
+       DATA DIVISION.
+       WORKING-STORAGE  SECTION.
+       01  X-CONCAT     PIC X(25) VALUE "abcde"
+        &  "fghij"
+        &  "klmno"
+        &  "pqrst"
+        &  "uvwxy".
+       01  N-CONCAT     PIC N(25) VALUE "����������"
+        &  "����������"
+        &  "����������"
+        &  "�����‚Ă�"
+        &  "�Ȃɂʂ˂�".
+       PROCEDURE        DIVISION.	
+       MAIN-RTN.
+           DISPLAY X-CONCAT.
+           DISPLAY N-CONCAT.
+           STOP RUN.
+])
+
+AT_CHECK([${COMPILE} prog.cbl])
+AT_CHECK([java prog], [0], 
+[abcdefghijklmnopqrstuvwxy
+�����������������������������������‚ĂƂȂɂʂ˂�
+])
+AT_CHECK([grep -q '    \"����������\" +' prog.java])
+AT_CHECK([grep -q '    \"����������\" +' prog.java])
+AT_CHECK([grep -q '    \"����������\" +' prog.java])
+AT_CHECK([grep -q '    \"�����‚Ă�\" +' prog.java])
+AT_CHECK([grep -q '    \"�Ȃɂʂ˂�\"' prog.java])
+AT_CHECK([grep -q '    \"abcde\" +' prog.java])
+AT_CHECK([grep -q '    \"fghij\" +' prog.java])
+AT_CHECK([grep -q '    \"klmno\" +' prog.java])
+AT_CHECK([grep -q '    \"pqrst\" +' prog.java])
+AT_CHECK([grep -q '    \"uvwxy\"' prog.java])
+AT_CLEANUP