opensourcecobol4j/tests/command-line-options.src/info-java-dir.at at a478633a70b6de9dd38bc45e1edadb4009fb7618 · yutaro-sakamoto/opensourcecobol4j · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
AT_SETUP([-info-java-dir])

AT_CHECK([${COBJ} --help | grep info-json-dir > /dev/null], [0])

AT_DATA([callee.cbl], [
       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      callee.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       LINKAGE          SECTION.
       01 P1            PIC X ANY LENGTH.
       01 P2            PIC 99.
       01 P3            PIC 9V9.
       PROCEDURE        DIVISION USING P1 P2 P3.
           GOBACK.
])

AT_DATA([prog.cbl], [
       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      prog.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       LINKAGE          SECTION.
       PROCEDURE        DIVISION.
           STOP RUN.
])

# a basic usecase
AT_CHECK([${COBJ} -info-json-dir=./ callee.cbl prog.cbl])
AT_CHECK([cat info_callee.json], [0],
[{
  "opensourcecobol4j_version": "1.1.20",
  "program_id": "callee",
  "procedure_division_using_parameters": @<:@
    {
      "variable_name": "P1",
      "java_type": "String"
    },
    {
      "variable_name": "P2",
      "java_type": "int"
    },
    {
      "variable_name": "P3",
      "java_type": "double"
    }
  @:>@
}
])

AT_CHECK([cat info_prog.json], [0],
[{
  "opensourcecobol4j_version": "1.1.20",
  "program_id": "prog",
  "procedure_division_using_parameters": @<:@
  @:>@
}
])

# specify an invalid directory
AT_CHECK([${COBJ} -info-json-dir=aaa callee.cbl prog.cbl], [0], [],
[Warning: failed to open a json file aaa/info_callee.json
Warning: failed to open a json file aaa/info_prog.json
])

# specify an existing directory
AT_CHECK([mkdir bbb])
AT_CHECK([${COBJ} -info-json-dir=bbb callee.cbl prog.cbl])

AT_CHECK([cat bbb/info_callee.json], [0],
[{
  "opensourcecobol4j_version": "1.1.20",
  "program_id": "callee",
  "procedure_division_using_parameters": @<:@
    {
      "variable_name": "P1",
      "java_type": "String"
    },
    {
      "variable_name": "P2",
      "java_type": "int"
    },
    {
      "variable_name": "P3",
      "java_type": "double"
    }
  @:>@
}
])

AT_CHECK([cat bbb/info_prog.json], [0],
[{
  "opensourcecobol4j_version": "1.1.20",
  "program_id": "prog",
  "procedure_division_using_parameters": @<:@
  @:>@
}
])

AT_CLEANUP