openehr 1.1.0

data/spec/lib/openehr/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].range.lower.should == 37.0
+                end
+
+                it 'is lower included' do
+                  @magnitude.children[0].range.should be_lower_included
+                end
+
+                it 'is upper unbounded' do
+                  @magnitude.children[0].range.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].range.lower.should == 39.0
+                end
+
+                it 's magnitude lower included' do
+                  @magnitude.children[0].range.should be_lower_included
+                end
+
+                it 's upper unbounded' do
+                  @magnitude.children[0].range.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/openehr/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[0].terminology_id.value.should == 'SNOMED-CT'
+        end
+
+        it 'code_string is 123456' do
+          @term[0].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').value.should ==
+          'http://openEHR.org/testconstraintbinding'
+      end
+    end
+  end
+end

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

@@ -0,0 +1,42 @@
+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_ontology.test.adl')
+      @ontology = at.ontology
+    end
+
+    it 'is an instance of ArchetypeOntology' do
+      @ontology.should be_an_instance_of ArchetypeOntology
+    end
+
+    it 's primary language is en' do
+      @ontology.primary_language.should == 'en'
+    end
+
+    it 's languages available are en' do
+      @ontology.languages_available.should == ['en']
+    end
+
+    context 'en terms' do
+      before(:all) do
+        @archetype_term = @ontology.term_definition(:lang => 'en', :code => 'at0000')
+      end
+
+      it 's text is some text' do
+        @archetype_term.items['text'].should == 'some text'
+      end
+
+      it 's description is some description' do
+        @archetype_term.items['description'].should == 'some description'
+      end
+
+      it 's commen is some comment' do
+        @archetype_term.items['comment'].should == 'some comment'
+      end
+    end
+  end
+end

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

@@ -0,0 +1,101 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include OpenEHR::AM::Archetype::ConstraintModel
+include OpenEHR::AM::Archetype::ConstraintModel::Primitive
+include OpenEHR::AM::Archetype::Assertion
+
+# ticket 166
+
+describe ADLParser do
+  context ArchetypeSlot do
+    before(:all) do
+      archetype = adl14_archetype('adl-test-entry.archetype_slot.test2.adl')
+      @slot = archetype.definition.attributes[0].children[0]
+    end
+
+    it 'is an instance of ArchetypeSlot' do
+      @slot.should be_an_instance_of ArchetypeSlot
+    end
+
+    it 's node id is at0001' do
+      @slot.node_id.should == 'at0001'
+    end
+
+    it 's occurrences upper is 1' do
+      @slot.occurrences.upper.should be 1
+    end
+
+    it 's occurrences lower is 0' do
+      @slot.occurrences.lower.should be 0
+    end
+
+    it 's rm type name is SECTION' do
+      @slot.rm_type_name.should == 'SECTION'
+    end
+
+    it 's path is /content[at0001]' do
+      @slot.path.should == '/content[at0001]'
+    end
+
+    context 'includes' do
+      before(:all) do
+        @includes = @slot.includes
+      end
+
+      it 's size is 1' do
+        @includes.size.should be 1
+      end
+
+      it 's string_expression is archetype_id/value matches {/openEHR-EHR-CLUSTER\.device\.v1/}' do
+        @includes[0].string_expression.should ==
+          'archetype_id/value matches {/openEHR-EHR-CLUSTER\.device\.v1/}'
+      end
+
+      context 'item' do
+        before(:all) do
+          @item = @includes[0].expression
+        end
+
+        it 'is an instance of ExprBooleanExpression' do
+          @item.should be_an_instance_of ExprBinaryOperator
+        end
+
+        it 's operator is OP_MATCHES' do
+          @item.operator.should == OperatorKind::OP_MATCHES
+        end
+
+        context 'left operand' do
+          before(:all) do
+            @left_operand = @item.left_operand
+          end
+
+          it 'is an instance of ExprLeaf' do
+            @left_operand.should be_an_instance_of ExprLeaf
+          end
+
+          it 's item is archetype_id/value' do
+            @left_operand.item.should == 'archetype_id/value'
+          end
+        end
+
+        context 'right operand' do
+          before(:all) do
+            @right_operand = @item.right_operand
+          end
+
+          it 'is an intance of ExprLeaf' do
+            @right_operand.should be_an_instance_of ExprLeaf
+          end
+
+          it 's item type is CString' do
+            @right_operand.item.should be_an_instance_of CString
+          end
+
+          it 's item pattern is /openEHR-EHR-CLUSTER\.device\.v1/' do
+            @right_operand.item.pattern.should == '/openEHR-EHR-CLUSTER\.device\.v1/'
+          end
+        end
+      end
+    end
+  end
+end