openehr 1.1.0

data/spec/lib/openehr/parser/dv_coded_text_parse_spec.rb

@@ -0,0 +1,27 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include ::OpenEHR::RM::DataTypes::Text
+require 'openehr/am/openehr_profile/data_types/text'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Text
+
+describe ADLParser do
+  describe DvCodedText do
+    before(:all) do
+      archetype = adl14_archetype('adl-test-composition.dv_coded_text.test.adl')
+      @c_code_phrase = archetype.definition.attributes[0].children[0].
+        attributes[0].children[0]
+    end
+
+    it 'is an instance of CCodePhrase' do
+      @c_code_phrase.should be_an_instance_of CCodePhrase
+    end
+
+    it 'terminology is openehr' do
+      @c_code_phrase.terminology_id.value.should == 'openehr'
+    end
+
+    it 'code list is 431' do
+      @c_code_phrase.code_list.should == ['431']
+    end
+  end
+end

data/spec/lib/openehr/parser/empty_other_contributors_spec.rb

@@ -0,0 +1,19 @@
+# ticket 179
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+describe ADLParser do
+  context 'Empty Other Contributors' do
+    before(:all) do
+      @archetype = adl14_archetype('adl-test-entry.empty_other_contributors.test.adl')
+    end
+
+    it 'archetype should be an instance of OpenEHR::AM::Archetype::Archetype' do
+      @archetype.should be_an_instance_of OpenEHR::AM::Archetype::Archetype
+    end
+
+    it 'other contributer should be nil' do
+      @archetype.description.other_contributors.should be_nil
+    end
+  end
+end

data/spec/lib/openehr/parser/lab_test_parser_spec.rb

@@ -0,0 +1,14 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+describe ADLParser do
+  context 'lab_test parser error_check' do
+    before(:all) do
+      @archetype = adl14_archetype('openEHR-EHR-OBSERVATION.lab_test.v1.adl')
+    end
+
+    it 'is an instance of archetype' do
+      @archetype.should be_an_instance_of OpenEHR::AM::Archetype::Archetype
+    end
+  end
+end

data/spec/lib/openehr/parser/missing_language_spec.rb

@@ -0,0 +1,20 @@
+# ticket 180
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+describe ADLParser do
+  context 'Missing language' do
+    before(:all) do
+      @archetype = adl14_archetype('adl-test-entry.missing_language.test.adl')
+    end
+
+    it 'is an instance of Archetype' do
+      @archetype.should be_an_instance_of OpenEHR::AM::Archetype::Archetype
+    end
+
+    it 'original language is alternated from primary language of ontology section' do
+      @archetype.original_language.code_string.should == 'zh'
+    end
+  end
+end
+

data/spec/lib/openehr/parser/missing_purpose_spec.rb

@@ -0,0 +1,23 @@
+# ticket 181
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+describe ADLParser do
+  context 'Missing purpose' do
+    before(:all) do
+      @archetype = adl14_archetype('adl-test-entry.archetype_desc_missing_purpose.test.adl')
+    end
+
+    it 'is an instance of Archetype' do
+      @archetype.should be_an_instance_of OpenEHR::AM::Archetype::Archetype
+    end
+
+# If porpose in description section was nil, __unknown__ is altered
+# for backward compatibility
+
+    it 'purpose is __unknown__' do
+      @archetype.description.details['en'].purpose.should == '__unknown__'
+    end
+  end
+end
+

data/spec/lib/openehr/parser/mixed_node_types_spec.rb

@@ -0,0 +1,16 @@
+# ticket 182
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+describe ADLParser do
+  context 'Mixed node types' do
+    before(:all) do
+      @archetype = adl14_archetype('adl-test-entry.mixed_node_types.draft.adl')
+    end
+
+    it 'is an instance of Archetype' do
+      @archetype.should be_an_instance_of OpenEHR::AM::Archetype::Archetype
+    end
+  end
+end
+

data/spec/lib/openehr/parser/most_minimal_adl_spec.rb

@@ -0,0 +1,19 @@
+# ticket 183
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+describe ADLParser do
+  context 'Most minimal ADL' do
+    before(:all) do
+      @archetype = adl14_archetype('adl-test-entry.most_minimal.test.adl')
+    end
+
+    it 'is an instance of Archetype' do
+      @archetype.should be_an_instance_of OpenEHR::AM::Archetype::Archetype
+    end
+
+    it 'original language is en' do
+      @archetype.original_language.code_string.should == 'en'
+    end
+  end
+end

data/spec/lib/openehr/parser/multi_language_spec.rb

@@ -0,0 +1,58 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include ::OpenEHR::RM::DataTypes::Text
+
+describe ADLParser do
+  context do
+    before(:all) do
+      archetype = adl14_archetype('adl-test-entry.multi_language.test.adl')
+      @ontology = archetype.ontology
+    end
+
+    it 'primary language is en' do
+      @ontology.primary_language.should == 'en'
+    end
+
+    it 'languages available are sv and en' do
+      @ontology.languages_available.should == ['en', 'sv']
+    end
+
+    context 'term definition' do
+      before(:all) do
+        @term_def = @ontology.term_definitions
+      end
+
+      it 'languages defined are sv and en' do
+        @term_def.keys.should == ['en','sv']
+      end
+
+      context 'en items' do
+        before(:all) do
+          @en = @term_def['en']['at0000'].items
+        end
+
+        it 'text is most minimal' do
+          @en['text'].should == 'most minimal'
+        end
+
+        it 'description is most minimal' do
+          @en['description'].should == 'most minimal'
+        end
+      end
+
+      context 'sv items' do
+        before(:all) do
+          @en = @term_def['sv']['at0000'].items
+        end
+
+        it 'text is most minimal' do
+          @en['text'].should == 'mesta minimal'
+        end
+
+        it 'description is most minimal' do
+          @en['description'].should == 'mesta minimal'
+        end
+      end
+    end
+  end
+end

data/spec/lib/openehr/parser/parser_spec_helper.rb

@@ -0,0 +1,7 @@
+ADL14DIR = File.dirname(__FILE__) + '/adl14/'
+include OpenEHR::Parser
+
+def adl14_archetype(file)
+  ap = ADLParser.new(ADL14DIR + file)
+  ap.parse
+end

data/spec/lib/openehr/parser/path_based_terminology_binding_spec.rb

@@ -0,0 +1,30 @@
+# ticket 188
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+describe ADLParser do
+  context 'term bindings spec' do
+    before(:all) do
+      archetype = adl14_archetype('adl-test-entry.term_binding2.test.adl')
+      @item = archetype.ontology.term_bindings['LNC205']
+    end
+
+    it 'key is path' do
+      @item.should have_key '/data[at0002]/events[at0003]/data[at0001]/item[at0004]'
+    end
+
+    context 'term' do
+      before(:all) do
+        @term = @item['/data[at0002]/events[at0003]/data[at0001]/item[at0004]'][0]
+      end
+
+      it 'terminology id is LNC205' do
+        @term.terminology_id.name.should == 'LNC205'
+      end
+
+      it 'code is 8310-5' do
+        @term.code_string.should == '8310-5'
+      end
+    end
+  end
+end

data/spec/lib/openehr/parser/special_string_spec.rb

@@ -0,0 +1,20 @@
+# ticket 186
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+describe ADLParser do
+  context 'Special string' do
+    before(:all) do
+      archetype = adl14_archetype('adl-test-entry.special_string.test.adl')
+      @attr = archetype.definition.attributes[0].children[0].attributes
+    end
+
+    it '1st node string is some\"thing' do
+      @attr[0].children[0].list[0].should == 'some\"thing'
+    end
+
+    it '2nd node string is any\\thing' do
+      @attr[1].children[0].list[0].should == "any\\thing"
+    end
+  end
+end

data/spec/lib/openehr/parser/structure_comment_spec.rb

@@ -0,0 +1,21 @@
+# ticket 187
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+describe ADLParser do
+  context 'Structure spec' do
+    before(:all) do
+      archetype = adl14_archetype('adl-test-entry.structure_test2.test.adl')
+      @definition = archetype.definition
+    end
+
+    it 'rm type name is ENTRY' do
+      @definition.rm_type_name.should == 'ENTRY'
+    end
+
+    it '1st attribute type name is items' do
+      @definition.attributes[0].rm_attribute_name.should ==
+        'subject_relationship'
+    end
+  end
+end

data/spec/lib/openehr/parser/structure_nested_comments_spec.rb

@@ -0,0 +1,22 @@
+# ticket 187
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+describe ADLParser do
+  context 'Structure spec' do
+    before(:all) do
+      archetype = adl14_archetype('openEHR-EHR-CLUSTER.auscultation.v1.adl')
+      @definition = archetype.definition
+    end
+
+    it 'rm type name is CLUSTER' do
+      @definition.rm_type_name.should == 'CLUSTER'
+    end
+
+    it '1st attribute type name is items' do
+      @definition.attributes[0].rm_attribute_name.should ==
+        'items'
+    end
+  end
+end
+

data/spec/lib/openehr/parser/structure_spec.rb

@@ -0,0 +1,202 @@
+# ticket 187
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+describe ADLParser do
+  context 'Structure spec' do
+    before(:all) do
+      archetype = adl14_archetype('adl-test-entry.structure_test1.test.adl')
+      @definition = archetype.definition
+      @occurrences = OpenEHR::AssumedLibraryTypes::Interval.new(
+                       :upper => 1, :lower => 1)
+    end
+
+    context 'root definition object' do
+      it 'rm_type_name is ENTRY' do
+        @definition.rm_type_name.should == 'ENTRY'
+      end
+
+      it 'path is /' do
+        @definition.path.should == '/'
+      end
+
+      it 'node_id is at0000' do
+        @definition.node_id.should == 'at0000'
+      end
+
+      it 'occurrences is default 1,1' do
+        @definition.occurrences.should == @occurrences
+      end
+
+      it 'attributes size is 2' do
+        @definition.attributes.size.should be 2
+      end
+    end
+
+    context 'first attribute' do
+      before(:all) do
+        @attr = @definition.attributes[0]
+      end
+
+      it 'rm_attribute_name is subject_relationship' do
+        @attr.rm_attribute_name.should == 'subject_relationship'
+      end
+
+      it 'has 1 child' do
+        @attr.children.size.should be 1
+      end
+
+      context '2nd level object' do
+        before(:all) do
+          @obj = @attr.children[0]
+        end
+
+        it 'rm type name is RELATED_PARTY' do
+          @obj.rm_type_name.should == 'RELATED_PARTY'
+        end
+
+        it 'node id shold be nil' do
+          @obj.node_id.should be_nil
+        end
+
+        it 'occurrences is default' do
+          @obj.occurrences.should == @occurrences
+        end
+
+        it 'attributes size is 1' do
+          @obj.attributes.size.should be 1
+        end
+
+        context 'attribute of 2nd level object' do
+          before(:all) do
+            @attr = @obj.attributes[0]
+          end
+
+          it 'rm attribute name is relationship' do
+            @attr.rm_attribute_name.should == 'relationship'
+          end
+
+          it 'children size is 1' do
+            @attr.children.size.should be 1
+          end
+
+          context 'leaf object' do
+            before(:all) do
+              @leaf = @attr.children[0]
+            end
+
+            it 'rm type name is TEXT' do
+              @leaf.rm_type_name.should == 'TEXT'
+            end
+
+            it 'occurences is default' do
+              @leaf.occurrences.should == @occurrences
+            end
+
+            it 'node id should be nil' do
+              @leaf.node_id.should be_nil
+            end
+
+            it 'attributes size is 1' do
+              @leaf.attributes.size.should be 1
+            end
+
+            context 'attribute of leaf object' do
+              before(:all) do
+                @attr = @leaf.attributes[0]
+              end
+
+              it 'rm attribute name is value' do
+                @attr.rm_attribute_name.should == 'value'
+              end
+
+              it 'children size is 1' do
+                @attr.children.size.should be 1
+              end
+
+              context 'primitive constraint of leaf object' do
+                before(:all) do
+                  @cstring = @attr.children[0]
+                end
+
+                it 'string constraint pattern is nil' do
+                  @cstring.pattern.should be_nil
+                end
+
+                it 'list constraint is self' do
+                  @cstring.list.should == ['self']
+                end
+
+                it 'list size is 1' do
+                  @cstring.list.size.should be 1
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+
+    context 'second attribute of root' do
+      before(:all) do
+        @attr = @definition.attributes[1]
+      end
+
+      it 'rm attribute name is members' do
+        @attr.rm_attribute_name.should == 'members'
+      end
+
+      it 'existence are 0..1' do
+        existence = OpenEHR::AssumedLibraryTypes::Interval.new(
+                        :lower => 0, :upper => 1)
+        @attr.existence.should == existence
+      end
+
+      it 'cardinality interval is 0..8' do
+        interval = OpenEHR::AssumedLibraryTypes::Interval.new(
+                        :lower => 0, :upper => 8)
+        @attr.cardinality.interval.should == interval
+      end
+
+      it 'children size are 2' do
+        @attr.children.size.should be 2
+      end
+
+      context '1st person' do
+        before(:all) do
+          @first = @attr.children[0]
+        end
+
+        it 'rm type name is PERSON' do
+          @first.rm_type_name.should == 'PERSON'
+        end
+
+        it 'occurrences are default' do
+          @first.occurrences.should == @occurrences
+        end
+
+        it 'attributes size is 1' do
+          @first.attributes.size.should be 1
+        end
+      end
+
+      context '2nd person' do
+        before(:all) do
+          @second = @attr.children[1]
+        end
+
+        it 'rm type name is PERSON' do
+          @second.rm_type_name.should == 'PERSON'
+        end
+
+        it 'occurences is upper unbounded' do
+          occurrences = OpenEHR::AssumedLibraryTypes::Interval.new(
+                          :lower => 0)
+          @second.occurrences.should == occurrences
+        end
+
+        
+      end
+    end
+  end
+end