[261] | 1 | require File.dirname(__FILE__) + '/test_helper.rb'
|
---|
[17] | 2 |
|
---|
[283] | 3 | class ADLScannerTest < Test::Unit::TestCase
|
---|
| 4 | def setup
|
---|
[307] | 5 | @scanner = OpenEhr::ADL::Scanner::ADLScanner.new([:adl], "filename")
|
---|
[17] | 6 | end
|
---|
| 7 |
|
---|
[307] | 8 | must "assert OpenEhr::ADL::Scanner::ADLScanner scanner instance" do
|
---|
| 9 | assert_instance_of OpenEhr::ADL::Scanner::ADLScanner, @scanner
|
---|
[17] | 10 | end
|
---|
[18] | 11 |
|
---|
[283] | 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
|
---|
[18] | 16 | end
|
---|
| 17 |
|
---|
[283] | 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
|
---|
[307] | 22 | assert_instance_of OpenEhr::RM::Support::Identification::ArchetypeID,val
|
---|
[283] | 23 | end
|
---|
[18] | 24 | end
|
---|
| 25 |
|
---|
[283] | 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
|
---|
[19] | 30 | end
|
---|
[18] | 31 |
|
---|
[283] | 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
|
---|
[18] | 37 | end
|
---|
[315] | 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
|
---|
[283] | 49 | end
|
---|
[19] | 50 |
|
---|
[283] | 51 | class CADLScannerTest < Test::Unit::TestCase
|
---|
| 52 | def setup
|
---|
[307] | 53 | @scanner = OpenEhr::ADL::Scanner::CADLScanner.new([:cadl], "filename")
|
---|
[19] | 54 | end
|
---|
| 55 |
|
---|
[307] | 56 | must "assert OpenEhr::ADL::Scanner::CADLScanner scanner instance" do
|
---|
| 57 | assert_instance_of OpenEhr::ADL::Scanner::CADLScanner, @scanner
|
---|
[19] | 58 | end
|
---|
| 59 |
|
---|
[283] | 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
|
---|
[19] | 67 | end
|
---|
| 68 |
|
---|
[283] | 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
|
---|
[19] | 74 | end
|
---|
| 75 |
|
---|
[320] | 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 |
|
---|
[283] | 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
|
---|
[19] | 92 | end
|
---|
| 93 |
|
---|
[320] | 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 |
|
---|
[283] | 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
|
---|
[319] | 111 |
|
---|
| 112 | @scanner.scan("P1D") do |sym, val|
|
---|
| 113 | assert_equal :V_ISO8601_DURATION,sym
|
---|
[320] | 114 | assert_equal "P1D",val
|
---|
[319] | 115 | end
|
---|
[315] | 116 |
|
---|
[320] | 117 | @scanner.scan("PT1H30M") do |sym, val|
|
---|
| 118 | assert_equal :V_ISO8601_DURATION,sym
|
---|
| 119 | assert_equal "PT1H30M",val
|
---|
[315] | 120 | end
|
---|
| 121 | end
|
---|
[318] | 122 |
|
---|
[320] | 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
|
---|
[318] | 127 | end
|
---|
| 128 | end
|
---|
[320] | 129 |
|
---|
[321] | 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 |
|
---|
[17] | 142 | end
|
---|
[283] | 143 |
|
---|
| 144 | class DADLScannerTest < Test::Unit::TestCase
|
---|
| 145 | def setup
|
---|
[307] | 146 | @scanner = OpenEhr::ADL::Scanner::DADLScanner.new([:dadl], "filename")
|
---|
[283] | 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
|
---|
[318] | 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 |
|
---|
[315] | 174 | @scanner.scan("\"1605E211E9BFB4093A72CCE7A9792FF9\"") do |sym, val|
|
---|
| 175 | assert_equal :V_STRING,sym
|
---|
| 176 | assert_equal "1605E211E9BFB4093A72CCE7A9792FF9",val
|
---|
| 177 | end
|
---|
[283] | 178 | end
|
---|
[318] | 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
|
---|
[283] | 186 | end
|
---|
[320] | 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
|
---|