open_ehr 0.9.3 → 0.9.4

data/spec/lib/open_ehr/am/archetype/ontology/archetype_ontology_spec.rb

@@ -4,20 +4,22 @@ include OpenEHR::RM::DataTypes::Text
 
 describe ArchetypeOntology do
   before(:each) do
-    items = {:text => 'Archetype Concept', :desc => 'concept description'}
-    term1 = ArchetypeTerm.new(:code => 'at0000', :items => items)
-    items = {:text => 'Blood pressure'}
-    term2 = ArchetypeTerm.new(:code => 'at0001', :items => items)
-    term_definitions = {'ja' => [term1, term2], 'en' => [term1]}
-    items = {:text => 'test', :description => 'test item'}
-    term3 = ArchetypeTerm.new(:code => 'ac0000', :items => items)
-    constraint_definitions = {'ja' => [term3]}
+    items = {'text' => 'Archetype Concept', 'desc' => 'concept description'}
+    term1 = {'at0000' => ArchetypeTerm.new(:code => 'at0000', :items => items)}
+    items = {'text' => 'Blood pressure'}
+    term2 = {'at0001' => ArchetypeTerm.new(:code => 'at0001', :items => items)}
+    term3 = {'at0002' => ArchetypeTerm.new(:code => 'at0002', :items => items)}
+    term_definitions = {'ja' => (term1.update term2), 'en' => term1}
+    items = {'text' => 'test', 'description' => 'test item'}
+    term4 = {'ac0003' => ArchetypeTerm.new(:code => 'ac0003', :items => items)}
+    constraint_definitions = {'ja' => term4}
     code_phrase = stub(CodePhrase, :code_string => '163020007')
     bind = {'at0000' => code_phrase}
-    term_bindings = {'SNOMED-CT(2003)' => [bind]}
+    term_bindings = {'SNOMED-CT(2003)' => bind}
     @archetype_ontology =
       ArchetypeOntology.new(:primary_language => "ja",
                             :languages_available => ['ja', 'en'],
+                            :terminologies_available => ['SNOMED-CT(2003)'],
                             :term_definitions => term_definitions,
                             :constraint_definitions => constraint_definitions,
                             :term_bindings => term_bindings,
@@ -40,8 +42,9 @@ describe ArchetypeOntology do
     @archetype_ontology.languages_available.should == ['ja', 'en']
   end
 
+
   it 'term_definition should be assigned properly' do
-    @archetype_ontology.term_definition(:lang => 'ja', :code => 'at0000')[:text].should == 'Archetype Concept'
+    @archetype_ontology.term_definition(:lang => 'ja', :code => 'at0000').items['text'].should == 'Archetype Concept'
   end
 
   it 'term_codes should returnd all at codes' do
@@ -49,16 +52,16 @@ describe ArchetypeOntology do
   end
 
   it 'constraint_definitions should be assigned properly' do
-    @archetype_ontology.constraint_definition(:lang => 'ja', :code => 'ac0000')[:text].
+    @archetype_ontology.constraint_definition(:lang => 'ja', :code => 'ac0003').items['text'].
       should == 'test'
   end
 
   it 'constrant_codes should return all ac codes' do
-    @archetype_ontology.constraint_codes.should == ['ac0000']
+    @archetype_ontology.constraint_codes.should == ['ac0003']
   end
 
   it 'term_bindings should be assigned properly' do
-    @archetype_ontology.term_bindings['SNOMED-CT(2003)'][0]['at0000'].
+    @archetype_ontology.term_bindings['SNOMED-CT(2003)']['at0000'].
       code_string.should == '163020007'
   end
 
@@ -85,5 +88,11 @@ describe ArchetypeOntology do
   it 'does not have MHLW code' do
     @archetype_ontology.should_not have_terminology 'MHLW'
   end
+
+  it 'term binding code_string is 163020007' do
+    @archetype_ontology.term_binding(:terminology => 'SNOMED-CT(2003)',
+                                     :code => 'at0000').code_string.
+      should == '163020007'
+  end
 end
                             

data/spec/lib/open_ehr/parser/adl14/adl-test-SOME_TYPE.generic_type_use_node.draft.adl

@@ -1,5 +1,5 @@
 archetype (adl_version=1.4)
-	adl-test-SOME_TYPE.generic_type_basic.draft
+	adl-test-SOME_TYPE.generic_type_basic.v1
 
 concept
 	[at0000]	-- root item

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.archetype_bindings.test.adl

@@ -1,5 +1,5 @@
 archetype 
-	adl-test-entry.archetype_language_order_of_translation_details.test
+	adl-test-entry.archetype_language_order_of_translation_details.v1
 	
 concept 
 	[at0000]	--  test

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.archetype_internal_ref.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-entry.archetype_internal_ref.test
+	adl-test-entry.archetype_internal_ref.v1
 
 concept
 	[at0000]

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.archetype_internal_ref2.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-entry.archetype_internal_ref.test
+	adl-test-entry.archetype_internal_ref.v1
 
 concept
 	[at0000]

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.archetype_language.test.adl

@@ -1,5 +1,5 @@
 archetype 
-	adl-test-ENTRY.archetype_language.draft
+	adl-test-ENTRY.archetype_language.v1
 	
 concept 
 	[at0000]	--  test

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.archetype_language_no_accreditation.test.adl

@@ -1,5 +1,5 @@
 archetype 
-	adl-test-ENTRY.archetype_language.draft
+	adl-test-ENTRY.archetype_language.v1
 	
 concept 
 	[at0000]	--  test

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.archetype_language_order_of_translation_details.test.adl

@@ -1,5 +1,5 @@
 archetype 
-	adl-test-entry.archetype_language_order_of_translation_details.test
+	adl-test-entry.archetype_language_order_of_translation_details.v1
 	
 concept 
 	[at0000]	--  test

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.archetype_ontology.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.archetype_ontology.draft
+	adl-test-ENTRY.archetype_ontology.v1
 concept 
 	[at0000]	--  empty definition test
 language

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.translations_author_language.test.adl

@@ -1,5 +1,5 @@
 archetype 
-	adl-test-ENTRY.translation_author_language.draft
+	adl-test-ENTRY.translation_author_language.v1
 	
 concept 
 	[at0000]	--  test

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.translations_language_author.test.adl

@@ -1,5 +1,5 @@
 archetype 
-	adl-test-ENTRY.translation_language_author.draft
+	adl-test-ENTRY.translation_language_author.v1
 	
 concept 
 	[at0000]	--  test

data/spec/lib/open_ehr/parser/adl_archetype_internal_ref2_spec.rb

@@ -0,0 +1,42 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include OpenEHR::AM::Archetype
+include OpenEHR::AM::Archetype::ConstraintModel
+
+describe ADLParser do
+  context 'test with slash in comment after use node' do
+    before(:all) do
+      @archetype = adl14_archetype('adl-test-entry.archetype_internal_ref2.test.adl')
+    end
+
+    it 'is an instance of Archetype' do
+      @archetype.should be_an_instance_of Archetype
+    end
+
+    context 'attribute2' do
+      before(:all) do
+        @attribute2 = @archetype.definition.attributes[1].children[0]
+      end
+
+      it 'is ArchetypeInternalRef' do
+        @attribute2.should be_an_instance_of ArchetypeInternalRef
+      end
+
+      it 's occurrences upper 2' do
+        @attribute2.occurrences.upper.should be 2
+      end
+
+      it 's occurrences lower 1' do
+        @attribute2.occurrences.lower.should be 1
+      end
+
+      it 's path is /attribute2' do
+        @attribute2.path.should == '/attribute2'
+      end
+
+      it 's target_path is /attribute1' do
+        @attribute2.target_path.should == '/attribute1'
+      end
+    end
+  end
+end

data/spec/lib/open_ehr/parser/adl_archetype_internal_ref_spec.rb

@@ -0,0 +1,125 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include OpenEHR::Parser
+include OpenEHR::AM::Archetype
+include OpenEHR::AM::Archetype::ConstraintModel
+
+describe ADLParser do
+  context 'ArchetypeInternalRef behavior test' do
+    before(:all) do
+      target_adl_file = 'adl-test-entry.archetype_internal_ref.test.adl'
+      ap = ADLParser.new(ADL14DIR + target_adl_file)
+      @archetype = ap.parse
+    end
+
+    it 'Archetype instance is generated' do
+      @archetype.should be_instance_of Archetype
+    end
+
+    context 'attribute 1 node' do
+      before(:all) do
+        @node = @archetype.definition.attributes[0]
+      end
+
+      it 's path is attribute 1' do
+        @node.path.should == '/attribute1'
+      end
+
+      it 's rm attribute name is SECTION' do
+        @node.rm_attribute_name.should == 'attribute1'
+      end
+
+      context 'children' do
+        before(:all) do
+          @child = @node.children[0]
+        end
+
+        it 's rm type name is SECTION' do
+          @child.rm_type_name.should == 'SECTION'
+        end
+      end
+    end
+
+    context 'attrubute 2 node' do
+      before(:all) do
+        @node = @archetype.definition.attributes[1]
+      end
+
+      it 's path is attribute 2' do
+        @node.path.should == '/attribute2'
+      end
+
+      context 'child' do
+        before(:all) do
+          @child = @node.children[0]
+        end
+
+        it 'is instance of ArchetypeInternalRef' do
+          @child.should be_an_instance_of ArchetypeInternalRef
+        end
+
+        it 's target path is /attribute1' do
+          @child.target_path.should == '/attribute1'
+        end
+
+        it 'path is /attribute2' do
+          @child.path.should == '/attribute2'
+        end
+
+        it 's occurrences upper is 2' do
+          @child.occurrences.upper.should be 2
+        end
+
+        it 's occurrences lower is 1' do
+          @child.occurrences.lower.should be 1
+        end
+      end
+
+      context 'attribute 3 node' do
+        before(:all) do
+          @node = @archetype.definition.attributes[2]
+        end
+
+        it 's path is /attribute3' do
+          @node.path.should == '/attribute3'
+        end
+
+        context 'child1' do
+          before(:all) do
+            @child1 = @node.children[0]
+          end
+
+          it 's path is /attribute3' do
+            @child1.path.should == '/attribute3'
+          end
+
+          it 's target path is /items[at0001]' do
+            @child1.target_path.should == '/items[at0001]'
+          end
+
+          it 's rm type name is COMPLEX_OBJECT' do
+            @child1.rm_type_name.should == 'COMPLEX_OBJECT'
+          end
+        end
+
+        context 'child2' do
+          before(:all) do
+            @child2 = @node.children[1]
+          end
+
+          it 's path is /attribute3' do
+            @child2.path.should == '/attribute3'
+          end
+
+          it 's target path is /items[at0002]' do
+            @child2.target_path.should == '/items[at0002]'
+          end
+
+          it 's rm_type_name is COMPLEX_OBJECT' do
+            @child2.rm_type_name.should == 'COMPLEX_OBJECT'
+          end
+        end
+      end
+    end
+  end
+end

data/spec/lib/open_ehr/parser/adl_archetype_internal_ref_with_generics_spec.rb

@@ -0,0 +1,258 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include OpenEHR::AM::Archetype
+include OpenEHR::AM::Archetype::ConstraintModel
+
+describe ADLParser do
+  context 'ArchetypeInternalRef with generics' do
+    before(:all) do
+      @archetype = adl14_archetype('adl-test-SOME_TYPE.generic_type_use_node.draft.adl')
+    end
+
+    it 'is a instance of Archetype' do
+      @archetype.should be_an_instance_of Archetype
+    end
+
+    context 'interval_attr1 node' do
+      before(:all) do
+        @node = @archetype.definition.attributes[0].children[0]
+      end
+
+     
+      it 's path is /iterval_attr[at0001]' do
+        @node.path.should == '/interval_attr[at0001]'
+      end
+
+      it 's rm type dis INTERVAL<QUANTITY>' do
+        @node.rm_type_name.should == 'INTERVAL<QUANTITY>'
+      end
+
+      context 'attributes' do
+        before(:all) do
+          @attributes = @node.attributes
+        end
+
+        context 'lower attribute' do
+          before(:all) do
+            @attribute = @attributes[0]
+          end
+
+          it 'path is /interval_attr[at0001]/lower' do
+            @attribute.path.should == '/interval_attr[at0001]/lower'
+          end
+
+          context 'lower node' do
+            before(:all) do
+              @lower = @attribute.children[0]
+            end
+
+            it 'rm type name is QUANTITY' do
+              @lower.rm_type_name.should == 'QUANTITY'
+            end
+
+            context 'lower attributes' do
+              before(:all) do
+                @lower_attributes = @lower.attributes
+              end
+
+              context 'property' do
+                before(:all) do
+                  @property = @lower_attributes[0]
+                end
+
+                it 's path is /interval_attr[at0001]/lower/property' do
+                  @property.path.should == '/interval_attr[at0001]/lower/property'
+                end
+
+                it 's rm attribute name is property' do
+                  @property.rm_attribute_name.should == 'property'
+                end
+
+                it 'is temprature' do
+                  @property.children[0].list.should == ['temperature']
+                end
+              end
+
+              context 'unit' do
+                before(:all) do
+                  @unit = @lower_attributes[1]
+                end
+
+                it 's rm_attribute_name is unit' do
+                  @unit.rm_attribute_name.should == 'unit'
+                end
+
+                it 'matches C' do
+                  @unit.children[0].list.should == ['C']
+                end
+              end
+
+              context 'magnitude' do
+                before(:all) do
+                  @magnitude = @lower_attributes[2]
+                end
+
+                it 's rm_attribute_name is magnitude' do
+                  @magnitude.rm_attribute_name.should == 'magnitude'
+                end
+
+                it 's lower is 37.0' do
+                  @magnitude.children[0].lower.should == 37.0
+                end
+
+                it 'is lower included' do
+                  @magnitude.children[0].should be_lower_included
+                end
+
+                it 'is upper unbounded' do
+                  @magnitude.children[0].should be_upper_unbounded
+                end
+              end
+            end
+          end
+        end
+
+        context 'upper attributes' do
+          before(:all) do
+            @attribute = @attributes[1]
+          end
+          
+          it 'path is /interval_attr[at0001]/lower' do
+            @attribute.path.should == '/interval_attr[at0001]/upper'
+          end
+
+          context 'upper node' do
+            before(:all) do
+              @upper = @attribute.children[0]
+            end
+
+            it 'rm type name is QUANTITY' do
+              @upper.rm_type_name.should == 'QUANTITY'
+            end
+
+            context 'upper attributes' do
+              before(:all) do
+                @upper_attributes = @upper.attributes
+              end
+
+              context 'property' do
+                before(:all) do
+                  @property = @upper.attributes[0]
+                end
+
+                it 's path is /interval_attr[at0001]/upper/property' do
+                  @property.path.should == '/interval_attr[at0001]/upper/property'
+                end
+
+                it 's rm attribute name is property' do
+                  @property.rm_attribute_name.should == 'property'
+                end
+
+                it 'matches [temperature]' do
+                  @property.children[0].list.should == ['temperature']
+                end
+              end
+
+              context 'unit' do
+                before(:all) do
+                  @unit = @upper_attributes[1]
+                end
+
+                it 's rm_attribute_name is unit' do
+                  @unit.rm_attribute_name.should == 'unit'
+                end
+
+                it 's matches C' do
+                  @unit.children[0].list.should == ['C']
+                end
+              end
+
+              context 'magnitude' do
+                before(:all) do
+                  @magnitude = @upper_attributes[2]
+                end
+
+                it 's rm_attribute_name is magnitude' do
+                  @magnitude.rm_attribute_name.should == 'magnitude'
+                end
+
+                it 's magnitude lower is 39.0' do
+                  @magnitude.children[0].lower.should == 39.0
+                end
+
+                it 's magnitude lower included' do
+                  @magnitude.children[0].should be_lower_included
+                end
+
+                it 's upper unbounded' do
+                  @magnitude.children[0].should be_upper_unbounded
+                end
+              end
+            end
+          end
+        end
+        context 'lower_included attribute' do
+          before(:all) do
+            @attribute = @attributes[2]
+          end
+
+          it 's path is /interval_attr[at0001]/lower_included' do
+            @attribute.path.should == '/interval_attr[at0001]/lower_included'
+          end
+
+          context 'lower_included node' do
+            before(:all) do
+              @lower_included = @attribute.children[0]
+            end
+
+            it 'matches true valid' do
+              @lower_included.should be_true_valid
+            end
+          end
+        end
+
+        context 'upper_included attribute' do
+          before(:all) do
+            @attribute = @attributes[3]
+          end
+
+          it 's path is /interval_attr[at0001]/upper_included' do
+            @attribute.path.should == '/interval_attr[at0001]/upper_included'
+          end
+
+          context 'upper_include node' do
+            before(:all) do
+              @upper_included = @attribute.children[0]
+            end
+
+            it 'matches true valid' do
+              @upper_included.should be_true_valid
+            end
+          end
+        end
+      end
+    end
+
+    context 'interval_attr2 node' do
+      before(:all) do
+        @node = @archetype.definition.attributes[1].children[0]
+      end
+
+      it 'is an instance of ArchetypeInternalRef' do
+        @node.should be_an_instance_of ArchetypeInternalRef
+      end
+
+      it 's rm type name is INTERVAL<QUANTITY>' do
+        @node.rm_type_name.should == 'INTERVAL<QUANTITY>'
+      end
+
+      it 's target path is /interval_attr[at0001]' do
+        @node.target_path.should == '/interval_attr[at0001]'
+      end
+
+      it 's path is /interval_attr2' do
+        @node.path.should == '/interval_attr2'
+      end
+    end
+  end
+end

data/spec/lib/open_ehr/parser/adl_archetype_ontology_binding_spec.rb

@@ -0,0 +1,98 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include OpenEHR::AM::Archetype::Ontology
+
+describe ADLParser do
+  context 'ArchetypeOntology' do
+    before(:all) do
+      at = adl14_archetype('adl-test-entry.archetype_bindings.test.adl')
+      @ontology = at.ontology
+    end
+
+    it 'is an instance of ArchetypeOntology' do
+      @ontology.should be_an_instance_of ArchetypeOntology
+    end
+
+    it 's terminolgies available are SNOMED-CT' do
+      @ontology.terminologies_available.should == ['SNOMED-CT']
+    end
+    it 'has SNOMED-CT coding' do
+      @ontology.should have_terminology 'SNOMED-CT'
+    end
+
+    context 'term definitions, language en, code at0000' do
+      before(:all) do
+        @term_def = @ontology.term_definition(:lang => 'en',
+                                              :code => 'at0000')
+      end
+
+      it 's code is at0000' do
+        @term_def.code.should == 'at0000'
+      end
+
+      it 's item text is test' do
+        @term_def.items['text'].should == 'test'
+      end
+
+      it 's item description is test' do
+        @term_def.items['description'].should == 'test'
+      end
+    end
+
+    context 'constraint definitions' do
+      before(:all) do
+        @const_def = @ontology.constraint_definition(:lang => 'en',
+                                                     :code => 'ac0001')
+      end
+
+      it 's code is at0001' do
+        @const_def.code.should == 'ac0001'
+      end
+
+      it 's items text is test constraint' do
+        @const_def.items['text'].should == 'test constraint' 
+      end
+
+      it 's items description is *' do
+        @const_def.items['description'].should == '*'
+      end
+    end
+
+    context 'term_bindings' do
+      before(:all) do
+        @term_bindings = @ontology.term_bindings
+      end
+
+      it 'key is SNOMED-CT' do
+        @term_bindings.keys.should == ['SNOMED-CT']
+      end
+
+      it 's code is at0002' do
+        @term_bindings['SNOMED-CT'].keys.should == ['at0002']
+      end
+
+      context 'SNOMED-CT terminology, code is at0002' do
+        before(:all) do
+          @term = @ontology.
+            term_binding(:terminology => 'SNOMED-CT', :code => 'at0002')
+        end
+
+        it 'terminology id is SNOMED-CT' do
+          @term.terminology_id.value.should == 'SNOMED-CT'
+        end
+
+        it 'code_string is 123456' do
+          @term.code_string.should == '123456'
+        end
+      end
+    end
+
+    context 'constraint bindings' do
+      it 'terminology SNOMED-CT, constraint code is ac0001' do
+        @ontology.constraint_binding(:terminology => 'SNOMED-CT',
+                                     :code => 'ac0001').should ==
+          'http://openEHR.org/testconstraintbinding'
+      end
+    end
+  end
+end