Merge pull request #96 from Neppord/cobol

Cobol test project

COBOL/mf/src/.cobolProj

@@ -8,7 +8,7 @@
          <path enabled="true" name="/Gilded Rose" type="mfpath"/>
       </build-precedence-paths>
       <configurations default="Gilded Rose" linkedWith="2017" xsi:type="buildConfigurationsContainer">
-         <configuration description="Gilded Rose" type="single_exe" is64bit="false" createlbr="false" platform="Windows" xsi:type="cobolBuildConfiguration">
+         <configuration description="Gilded Rose" type="all_intgnt" is64bit="false" createlbr="false" platform="Windows" xsi:type="cobolBuildConfiguration">
             <targetdir name="Gilded Rose.bin"/>
             <application_configuration xsi:type="runtimeConfigurationSettings">
                <cobol_switches xsi:type="projectCobolSwitches"/>
@@ -157,6 +157,8 @@
             <option id="autolink_addressing_mode" name="mf370chkAutoLink" value="AMODE(31)"/>
          </options>
       </asm_autolink_settings>
+      <preprocessors_settings xsi:type="preprocessorsSettings"/>
+      <code_analysis_settings enabled="false" genDataFiles="false" keepDataFiles="false" xsi:type="codeAnalysisSettings"/>
    </settings>
    <files xsi:type="projectFileStore">
       <filetype type="cobol" xsi:type="cobolFileContainer">

COBOL/mf/test/.cobolProj

@@ -0,0 +1,157 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project xsi:schemaLocation="" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="cobolProject" name="Tests" uuid="d5f7cafb-a22e-4fe6-9bb2-1f9a673a4e7d" version="4.0">
+   <settings xsi:type="projectSettingsContainer">
+      <cobol_settings xsi:type="cobolSettings">
+         <options>
+            <option name="WARNING" value="1"/>
+            <option name="DIALECT" value="MF"/>
+            <option name="CHARSET" value="ASCII"/>
+            <option name="MAX-ERROR" value="100"/>
+            <option name="SOURCEFORMAT" value="variable"/>
+         </options>
+         <createJar value="false"/>
+         <createJarAfterBuild value="false"/>
+         <debug value="true"/>
+         <enableCodeCoverage value="true"/>
+         <enableProfiler value="false"/>
+         <generate value="false"/>
+         <retainDirectivesFile value="false"/>
+         <genListFile value="false"/>
+         <packageToFolderMapping value="false"/>
+         <useJvmDynamicCalls value="false"/>
+         <useJvmIncrementalBuild value="false"/>
+         <verbose value="false"/>
+      </cobol_settings>
+      <copybook-paths xsi:type="copybookPathsSettings">
+         <path enabled="true" name="/Tests" type="mfpath"/>
+         <path enabled="true" name="/Gilded Rose" type="mfpath"/>
+         <path enabled="false" name="/Tests/Coverage" type="mfpath"/>
+      </copybook-paths>
+      <build-precedence-paths xsi:type="buildPrecedenceSettings">
+         <path enabled="true" name="/Tests" type="mfpath"/>
+         <path enabled="true" name="/Tests/Coverage" type="mfpath"/>
+      </build-precedence-paths>
+      <configurations default="Tests" linkedWith="2017" xsi:type="buildConfigurationsContainer">
+         <configuration description="Tests" type="single_dll" is64bit="false" createlbr="false" platform="Windows" xsi:type="cobolBuildConfiguration">
+            <targetdir name="Tests.bin"/>
+            <application_configuration xsi:type="runtimeConfigurationSettings">
+               <cobol_switches xsi:type="projectCobolSwitches"/>
+               <rts_switches xsi:type="projectRtsSwitches"/>
+               <envScriptParameters></envScriptParameters>
+               <envScriptPath></envScriptPath>
+               <inheritBuildEnv>false</inheritBuildEnv>
+               <tunables>
+                  <tunable index="0" name="screen_lines" value="25"/>
+                  <tunable index="0" name="screen_cols" value="80"/>
+               </tunables>
+            </application_configuration>
+            <link_settings xsi:type="linkSettings">
+               <additional_options value=""/>
+               <rts_bind value="false"/>
+               <custom_link_command value=""/>
+               <debug value="false"/>
+               <entry_point name=""/>
+               <entry_point_runtime value="false"/>
+               <error_undefined_syms value="false"/>
+               <application_type value="console"/>
+               <include_cpp value="false"/>
+               <additional_files/>
+               <rcfile path=""/>
+               <rts_type value="shared"/>
+               <target name="Tests"/>
+               <targettype type="dll/cso"/>
+               <threaded_rts value="true"/>
+               <verbose value="false"/>
+            </link_settings>
+         </configuration>
+      </configurations>
+      <ims_settings xsi:type="additionalImsSettings">
+         <options>
+            <option id="generate_list_file" name="LIST" value="Listing/*.lst"/>
+         </options>
+         <verbose value="false"/>
+         <generatedFileDir name=""/>
+         <imsDatabaseDir name=""/>
+      </ims_settings>
+      <mfs_settings xsi:type="mfsSettings">
+         <options>
+            <option id="generate_list_file" name="LIST" value="Listing/MFS/*.lst"/>
+         </options>
+         <verbose value="false"/>
+      </mfs_settings>
+      <dbd_settings xsi:type="dbdSettings">
+         <options>
+            <option id="generate_list_file" name="LIST" value="Listing/DBD/*.lst"/>
+         </options>
+         <verbose value="false"/>
+         <cleanDbdOutputFiles value="false"/>
+      </dbd_settings>
+      <psb_settings xsi:type="psbSettings">
+         <options>
+            <option id="generate_list_file" name="LIST" value="Listing/PSB/*.lst"/>
+         </options>
+         <verbose value="false"/>
+         <cleanPsbOutputFiles value="false"/>
+      </psb_settings>
+      <bms_settings xsi:type="bmsSettings">
+         <options>
+            <option id="dsect" name="bmsSettings" value="/SYSPARM=DSECT"/>
+            <option id="decimalchar" name="bmsSettings" value="/DP=."/>
+            <option id="currencychar" name="bmsSettings" value="/CS=$"/>
+            <option id="sdf" name="bmsSettings" value="/IGNORE"/>
+            <option id="map" name="bmsSettings" value="/SYSPARM=MAP"/>
+         </options>
+      </bms_settings>
+      <dependent-projects xsi:type="dependentProjectsSettings">
+         <dependent-project name="Gilded Rose"/>
+      </dependent-projects>
+      <asm_settings xsi:type="assemblerCompileSettings">
+         <options>
+            <option id="compile_pre_assm_macros" name="mf370chk" value="NOMPC"/>
+            <option id="compile_mark_reentrant" name="mf370chk" value="RENT"/>
+            <option id="compile_create_optimized_code" name="mf370chk" value="NOOPT"/>
+            <option id="compile_aat_info" name="mf370chk" value="NOAAT"/>
+            <option id="compile_cross_ref_listing" name="mf370chk" value="NOXREF"/>
+            <option id="compile_create_debug_info" name="mf370chk" value="ANIM"/>
+            <option id="compile_generate_listing" name="mf370chk" value="NOLIST"/>
+         </options>
+      </asm_settings>
+      <asm_link_settings xsi:type="assemblerLinkSettings">
+         <options>
+            <option id="link_residency_mode" name="mf370lnk" value="RMODE(31)"/>
+            <option id="link_linker_output" name="mf370lnk" value="OMF(390)"/>
+            <option id="link_resolve_external" name="mf370lnk" value="CALL"/>
+            <option id="link_mark_reusable" name="mf370lnk" value="REUS"/>
+            <option id="link_generate_listing" name="mf370lnk" value="NOLIST"/>
+            <option id="link_create_debug_info" name="mf370lnk" value="ANIM"/>
+            <option id="link_mark_reentrant" name="mf370lnk" value="RENT"/>
+            <option id="link_addressing_mode" name="mf370lnk" value="AMODE(31)"/>
+         </options>
+      </asm_link_settings>
+      <asm_cics_settings enabled="false" xsi:type="assemblerCicsSettings">
+         <options>
+            <option id="cics_insert_epilog_macros" name="mf370chkCics" value="EPILOG"/>
+            <option id="cics_unsupported_option" name="mf370chkCics" value="UOPT(E)"/>
+            <option id="cics_insert_prolog_macros" name="mf370chkCics" value="PROLOG"/>
+            <option id="cics_unsupported_function" name="mf370chkCics" value="UFUNC(E)"/>
+         </options>
+      </asm_cics_settings>
+      <asm_autolink_settings enabled="true" xsi:type="assemblerAutoLinkSettings">
+         <options>
+            <option id="autolink_residency_mode" name="mf370chkAutoLink" value="RMODE(31)"/>
+            <option id="autolink_mark_reusable" name="mf370chkAutoLink" value="REUS"/>
+            <option id="autolink_resolve_external" name="mf370chkAutoLink" value="CALL"/>
+            <option id="autolink_linker_output" name="mf370chkAutoLink" value="OMF(390)"/>
+            <option id="autolink_addressing_mode" name="mf370chkAutoLink" value="AMODE(31)"/>
+         </options>
+      </asm_autolink_settings>
+      <preprocessors_settings xsi:type="preprocessorsSettings"/>
+      <code_analysis_settings enabled="false" genDataFiles="false" keepDataFiles="false" xsi:type="codeAnalysisSettings"/>
+   </settings>
+   <files xsi:type="projectFileStore">
+      <filetype type="cobol" xsi:type="cobolFileContainer">
+         <file compile="true" path="TestGildedRose.cbl" xsi:type="cobolFile"/>
+      </filetype>
+      <filetype type="cobol.copybook" xsi:type="cobolFileContainer"/>
+   </files>
+</project>

COBOL/mf/test/.gitignore

@@ -0,0 +1,3 @@
+/.cobolBuild
+/Coverage/
+/Tests.bin/

COBOL/mf/test/.project

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<projectDescription>
+	<name>Tests</name>
+	<comment></comment>
+	<projects>
+	</projects>
+	<buildSpec>
+		<buildCommand>
+			<name>com.microfocus.eclipse.project.cobolBuilder</name>
+			<arguments>
+			</arguments>
+		</buildCommand>
+		<buildCommand>
+			<name>com.microfocus.eclipse.mfunit.core.mfUnitBuilder</name>
+			<arguments>
+			</arguments>
+		</buildCommand>
+	</buildSpec>
+	<natures>
+		<nature>com.microfocus.eclipse.project.cobolNature</nature>
+		<nature>com.microfocus.eclipse.mfunit.core.mfUnitNature</nature>
+	</natures>
+</projectDescription>

COBOL/mf/test/TestGildedRose.cbl

@@ -0,0 +1,67 @@
+      *> Test Fixture for GildedRose, GildedRose
+
+       copy "mfunit_prototypes.cpy".
+
+       program-id. TestGildedRose.
+       
+       file-control.
+           select in-items assign 'in-items'.
+           select items assign 'items'.
+           
+       file section.
+           fd in-items.
+           01 in-item.
+             02 sell-in pic 9(4).
+             02 quality pic 9(4).
+             02 name pic x(50).
+           fd items.
+           01 item.
+             02 sell-in pic 9(4).
+             02 quality pic 9(4).
+             02 name pic x(50).
+           
+       working-storage section.
+       copy "mfunit.cpy".
+       78 TEST-TESTGILDEDROSE value "TestGildedRose".
+       01 pp procedure-pointer.
+
+      *> Program linkage data
+
+       procedure division.
+           goback returning 0
+       .
+
+       entry MFU-TC-PREFIX & TEST-TESTGILDEDROSE.
+           open output in-items
+               move "foo" to name in in-item
+               move 0 to quality in in-item
+               move 0 to sell-in in in-item
+               write in-item
+           close in-items
+           call "GildedRose"
+           open input items
+           read items
+           if name in item not equal to "fixme" then
+               call MFU-ASSERT-FAIL-Z using z"item name was not fixme"
+           close items
+           goback
+       .
+
+      $region TestCase Configuration
+
+       entry MFU-TC-SETUP-PREFIX & TEST-TESTGILDEDROSE.
+       perform InitializeLinkageData
+           *> Add any other test setup code here
+           goback returning 0
+       .
+
+       InitializeLinkageData section.
+           *> Load the library that is being tested
+           set pp to entry "GildedRose"
+
+           exit section
+       .
+
+      $end-region
+
+       end program.