1 | require File.dirname(__FILE__) + '/test_helper.rb'
|
---|
2 |
|
---|
3 | class ADLScannerTest < Test::Unit::TestCase
|
---|
4 | def setup
|
---|
5 | @scanner = OpenEhr::ADL::Scanner::ADLScanner.new([:adl], "filename")
|
---|
6 | end
|
---|
7 |
|
---|
8 | must "assert OpenEhr::ADL::Scanner::ADLScanner scanner instance" do
|
---|
9 | assert_instance_of OpenEhr::ADL::Scanner::ADLScanner, @scanner
|
---|
10 | end
|
---|
11 |
|
---|
12 | must "assert ADLScanner scanner scan CR and lineno incremented" do
|
---|
13 | lineno = @scanner.lineno
|
---|
14 | @scanner.scan("\n")
|
---|
15 | assert_equal lineno+1, @scanner.lineno
|
---|
16 | end
|
---|
17 |
|
---|
18 | must "assert ADLScanner scanner scan ARCHETYPE_ID" do
|
---|
19 | lineno = @scanner.lineno
|
---|
20 | @scanner.scan("openEHR-EHR-OBSERVATION.body_mass_index.v1") do |sym, val|
|
---|
21 | assert_equal :V_ARCHETYPE_ID,sym
|
---|
22 | assert_instance_of OpenEhr::RM::Support::Identification::ArchetypeID,val
|
---|
23 | end
|
---|
24 | end
|
---|
25 |
|
---|
26 | must "assert ADLScanner scanner scan white space and lineno unchanged" do
|
---|
27 | lineno = @scanner.lineno
|
---|
28 | @scanner.scan(" ")
|
---|
29 | assert_equal lineno, @scanner.lineno
|
---|
30 | end
|
---|
31 |
|
---|
32 | must "assert ADLScanner scanner scan V_QUALIFIED_TERM_CODE_REF" do
|
---|
33 | @scanner.scan("[ICD10AM(1998)::F23]") do |sym, val|
|
---|
34 | assert_equal :V_QUALIFIED_TERM_CODE_REF,sym
|
---|
35 | assert_equal "ICD10AM(1998)::F23",val
|
---|
36 | end
|
---|
37 | end
|
---|
38 |
|
---|
39 | must "assert ADLScanner scanner scan V_STRING" do
|
---|
40 | @scanner.scan("\"string\"") do |sym, val|
|
---|
41 | assert_equal :V_STRING,sym
|
---|
42 | assert_equal "string",val
|
---|
43 | end
|
---|
44 | @scanner.scan("\"1605E211E9BFB4093A72CCE7A9792FF9\"") do |sym, val|
|
---|
45 | assert_equal :V_STRING,sym
|
---|
46 | assert_equal "1605E211E9BFB4093A72CCE7A9792FF9",val
|
---|
47 | end
|
---|
48 | end
|
---|
49 | end
|
---|
50 |
|
---|
51 | class CADLScannerTest < Test::Unit::TestCase
|
---|
52 | def setup
|
---|
53 | @scanner = OpenEhr::ADL::Scanner::CADLScanner.new([:cadl], "filename")
|
---|
54 | end
|
---|
55 |
|
---|
56 | must "assert OpenEhr::ADL::Scanner::CADLScanner scanner instance" do
|
---|
57 | assert_instance_of OpenEhr::ADL::Scanner::CADLScanner, @scanner
|
---|
58 | end
|
---|
59 |
|
---|
60 | must "assert CADLScanner scanner scan V_ATTRIBUTE_IDENTIFIER" do
|
---|
61 | lineno = @scanner.lineno
|
---|
62 | @scanner.scan("identifier") do |sym, val|
|
---|
63 | assert_equal :V_ATTRIBUTE_IDENTIFIER, sym
|
---|
64 | assert_equal "identifier", val
|
---|
65 | end
|
---|
66 | assert_equal lineno, @scanner.lineno
|
---|
67 | end
|
---|
68 |
|
---|
69 | must "assert CADLScanner scanner scan reserved words" do
|
---|
70 | lineno = @scanner.lineno
|
---|
71 | @scanner.scan("then") do |sym, val|
|
---|
72 | assert_equal :SYM_THEN, sym
|
---|
73 | end
|
---|
74 | end
|
---|
75 |
|
---|
76 | must "assert CADLScanner scanner scan V_STRING" do
|
---|
77 | @scanner.scan("\"string\"") do |sym, val|
|
---|
78 | assert_equal :V_STRING,sym
|
---|
79 | assert_equal "string",val
|
---|
80 | end
|
---|
81 | @scanner.scan("\"1605E211E9BFB4093A72CCE7A9792FF9\"") do |sym, val|
|
---|
82 | assert_equal :V_STRING,sym
|
---|
83 | assert_equal "1605E211E9BFB4093A72CCE7A9792FF9",val
|
---|
84 | end
|
---|
85 | end
|
---|
86 |
|
---|
87 | must "assert CADLScanner scanner scan V_QUALIFIED_TERM_CODE_REF" do
|
---|
88 | @scanner.scan("[ICD10AM(1998)::F23]") do |sym, val|
|
---|
89 | assert_equal :V_QUALIFIED_TERM_CODE_REF,sym
|
---|
90 | assert_equal "ICD10AM(1998)::F23",val
|
---|
91 | end
|
---|
92 | end
|
---|
93 |
|
---|
94 |
|
---|
95 | must "assert CADLScanner scanner scan V_ISO8601_DURATION_CONSTRAINT_PATTERN" do
|
---|
96 | @scanner.scan("PW") do |sym, val|
|
---|
97 | assert_equal :V_ISO8601_DURATION_CONSTRAINT_PATTERN,sym
|
---|
98 | assert_equal "PW",val
|
---|
99 | end
|
---|
100 | @scanner.scan("PTs") do |sym, val|
|
---|
101 | assert_equal :V_ISO8601_DURATION_CONSTRAINT_PATTERN,sym
|
---|
102 | assert_equal "PTs",val
|
---|
103 | end
|
---|
104 | end
|
---|
105 |
|
---|
106 | must "assert CADLScanner scanner scan V_ISO8601_DURATION" do
|
---|
107 | @scanner.scan("PT1M") do |sym, val|
|
---|
108 | assert_equal :V_ISO8601_DURATION,sym
|
---|
109 | assert_equal "PT1M",val
|
---|
110 | end
|
---|
111 |
|
---|
112 | @scanner.scan("P1D") do |sym, val|
|
---|
113 | assert_equal :V_ISO8601_DURATION,sym
|
---|
114 | assert_equal "P1D",val
|
---|
115 | end
|
---|
116 |
|
---|
117 | @scanner.scan("PT1H30M") do |sym, val|
|
---|
118 | assert_equal :V_ISO8601_DURATION,sym
|
---|
119 | assert_equal "PT1H30M",val
|
---|
120 | end
|
---|
121 | end
|
---|
122 |
|
---|
123 | must "assert CADLScanner scanner scan V_ISO8601_EXTENDED_DATE_TIME" do
|
---|
124 | @scanner.scan("2000-01-01T01:00:00") do |sym, val|
|
---|
125 | assert_equal :V_ISO8601_EXTENDED_DATE_TIME,sym
|
---|
126 | assert_equal "2000-01-01T01:00:00",val
|
---|
127 | end
|
---|
128 | end
|
---|
129 |
|
---|
130 | must "assert CADLScanner scanner scan V_ISO8601_EXTENDED_TIME" do
|
---|
131 | @scanner.scan("01:00:00") do |sym, val|
|
---|
132 | assert_equal :V_ISO8601_EXTENDED_TIME,sym
|
---|
133 | assert_equal "01:00:00",val
|
---|
134 | end
|
---|
135 | @scanner.scan("12:01") do |sym, val|
|
---|
136 | assert_equal :V_ISO8601_EXTENDED_TIME,sym
|
---|
137 | assert_equal "12:01",val
|
---|
138 | end
|
---|
139 |
|
---|
140 | end
|
---|
141 |
|
---|
142 | end
|
---|
143 |
|
---|
144 | class DADLScannerTest < Test::Unit::TestCase
|
---|
145 | def setup
|
---|
146 | @scanner = OpenEhr::ADL::Scanner::DADLScanner.new([:dadl], "filename")
|
---|
147 | end
|
---|
148 |
|
---|
149 | must "assert DADLScanner scanner scan V_QUALIFIED_TERM_CODE_REF" do
|
---|
150 | @scanner.scan("[ICD10AM(1998)::F23]") do |sym, val|
|
---|
151 | assert_equal :V_QUALIFIED_TERM_CODE_REF,sym
|
---|
152 | assert_equal "ICD10AM(1998)::F23",val
|
---|
153 | end
|
---|
154 | end
|
---|
155 |
|
---|
156 | must "assert DADLScanner scanner scan V_ISO8601_EXTENDED_DATE" do
|
---|
157 | @scanner.scan("2005-10-10") do |sym, val|
|
---|
158 | assert_equal :V_ISO8601_EXTENDED_DATE,sym
|
---|
159 | assert_equal "2005-10-10",val
|
---|
160 | end
|
---|
161 | end
|
---|
162 |
|
---|
163 | must "assert DADLScanner scanner scan V_STRING" do
|
---|
164 | @scanner.scan("\"string\"") do |sym, val|
|
---|
165 | assert_equal :V_STRING,sym
|
---|
166 | assert_equal "string",val
|
---|
167 | end
|
---|
168 |
|
---|
169 | @scanner.scan("\"2005-10-10\"") do |sym, val|
|
---|
170 | assert_equal :V_STRING,sym
|
---|
171 | assert_equal "2005-10-10",val
|
---|
172 | end
|
---|
173 |
|
---|
174 | @scanner.scan("\"1605E211E9BFB4093A72CCE7A9792FF9\"") do |sym, val|
|
---|
175 | assert_equal :V_STRING,sym
|
---|
176 | assert_equal "1605E211E9BFB4093A72CCE7A9792FF9",val
|
---|
177 | end
|
---|
178 | end
|
---|
179 |
|
---|
180 | must "assert DADLScanner scanner scan V_URI" do
|
---|
181 | @scanner.scan("http://openEHR.org/Services") do |sym, val|
|
---|
182 | assert_equal :V_URI,sym
|
---|
183 | assert_equal "http://openEHR.org/Services",val
|
---|
184 | end
|
---|
185 | end
|
---|
186 | end
|
---|
187 |
|
---|
188 | class RegexScannerTest < Test::Unit::TestCase
|
---|
189 | def setup
|
---|
190 | @scanner = OpenEhr::ADL::Scanner::RegexScanner.new([:regexp], "filename")
|
---|
191 | end
|
---|
192 |
|
---|
193 | must "assert RegexScanner scanner scan " do
|
---|
194 | @scanner.scan("this|that|something else") do |sym, val|
|
---|
195 | assert_equal :REGEXP_BODY,sym
|
---|
196 | assert_equal "this|that|something else",val
|
---|
197 | end
|
---|
198 | end
|
---|
199 | end
|
---|