WI #1243 Add parser test

TypeCobolTeam · Feb 12, 2019 · a48d5a9 · a48d5a9
1 parent fdd9d17
commit a48d5a9
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 0 deletions.
diff --git a/TypeCobol.Test/Parser/Programs/TypeCobol/ContinuationLine.rdz.tcbl b/TypeCobol.Test/Parser/Programs/TypeCobol/ContinuationLine.rdz.tcbl
@@ -0,0 +1,13 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. DVZF0OSM.
+       data division.
+       working-storage section.
+       01 foo pic X(50).
+       PROCEDURE DIVISION.
+
+             move 'CHAMPS 082 A 085 INTERDITS EN OUVERTURE'
+      -        to foo
+
+           goback
+           .
+       END PROGRAM DVZF0OSM.
diff --git a/TypeCobol.Test/Parser/Programs/TypeCobol/ContinuationLine.rdzPGM.txt b/TypeCobol.Test/Parser/Programs/TypeCobol/ContinuationLine.rdzPGM.txt
@@ -0,0 +1,12 @@
+--- Program ---
+PROGRAM: DVZF0OSM common:False initial:False recursive:False
+ author: ? written: ? compiled: ? installation: ? security: ?
+--- Intrinsic:Namespace:GlobalStorage:Global:Declarations:Program
+-- DATA --------
+  foo:Alphanumeric
+--- Intrinsic
+-- TYPES -------
+  BOOL:BOOL
+  DATE:DATE
+  CURRENCY:CURRENCY
+  STRING:STRING