openehr 1.2.8 → 1.2.9

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

@@ -1,98 +0,0 @@
-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

@@ -1,42 +0,0 @@
-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

@@ -1,101 +0,0 @@
-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

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

@@ -1,193 +0,0 @@
-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.test.adl')
-      @slot = archetype.definition.attributes[0].children[0]
-    end
-
-    it 'is an isntance of ArchetypeSlot' do
-      @slot.should be_an_instance_of ArchetypeSlot
-    end
-
-    it 's rm_type name is SECTION' do
-      @slot.rm_type_name.should == 'SECTION'
-    end
-
-    it 's node_id is at0000' 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
-
-    context 'include' do
-      before(:all) do
-        @includes = @slot.includes
-      end
-      it 's includes 1 constraint' do
-        @includes.size.should be 1
-      end
-
-      context 'assert expression node' do
-        before(:all) do
-          @item = @includes[0].expression
-        end
-
-        it 'item is an instance of ExprBinaryOperator' do
-          @item.should be_an_instance_of ExprBinaryOperator
-        end
-
-        it '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 instance of ExprLeaf' do
-            @left_operand.should be_an_instance_of ExprLeaf
-          end
-
-          it 's item is domain_concept' do
-            @left_operand.item.should == 'domain_concept'
-          end
-        end
-
-        context 'right operand' do
-          before(:all) do
-            @right_operand = @item.right_operand
-          end
-
-          it 'is an instance 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 /blood_pressure.v1/' do
-            @right_operand.item.pattern.should == '/blood_pressure.v1/'
-          end
-        end
-      end
-    end
-
-    context 'excludes' do
-      before(:all) do
-        @excludes = @slot.excludes
-      end
-
-      it 's excludes 2 cnstraints' do
-        @excludes.size.should be 2
-      end
-
-      context '1st node' do
-        before(:all) do
-          @node = @excludes[0].expression
-        end
-
-        it 'is an instance of ExprBinaryOperator' do
-          @node.should be_an_instance_of ExprBinaryOperator
-        end
-
-        it 's operator is OP_MATCHES' do
-          @node.operator.should == OperatorKind::OP_MATCHES
-        end
-
-        context 'left operand' do
-          before(:all) do
-            @left_operand = @node.left_operand
-          end
-
-          it 'is an instance of ExprLeaf' do
-            @left_operand.should be_an_instance_of ExprLeaf
-          end
-
-          it 's item type is domain_concept' do
-            @left_operand.item.should == 'domain_concept'
-          end
-        end
-
-        context 'right operand' do
-          before(:all) do
-            @right_operand = @node.right_operand
-          end
-
-          it 'is an instance of ExprLeaf' do
-            @right_operand.should be_an_instance_of ExprLeaf
-          end
-
-          it 's item should be an instance of CString' do
-            @right_operand.item.should be_an_instance_of CString
-          end
-
-          it 's item pattern is /blood_pressure.v2/' do
-            @right_operand.item.pattern.should == '/blood_pressure.v2/'
-          end
-        end
-      end
-
-      context '2nd node' do
-        before(:all) do
-          @node = @excludes[1].expression
-        end
-
-        it 'is an instance of ExprBinaryOperator' do
-          @node.should be_an_instance_of ExprBinaryOperator
-        end
-
-        it 's operator is OP_MATCHES' do
-          @node.operator.should == OperatorKind::OP_MATCHES
-        end
-
-        context 'left operand' do
-          before(:all) do
-            @left_operand = @node.left_operand
-          end
-
-          it 'is an instance of ExprLeaf' do
-            @left_operand.should be_an_instance_of ExprLeaf
-          end
-
-          it 's item is domain_concept' do
-            @left_operand.item.should == 'domain_concept'
-          end
-        end
-
-        context 'right operand' do
-          before(:all) do
-            @right_operand = @node.right_operand
-          end
-
-          it 'is an instance 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 /.*/' do
-            @right_operand.item.pattern.should == '/.*/'
-          end
-        end
-      end
-    end
-  end
-end 

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

@@ -1,25 +0,0 @@
-require File.dirname(__FILE__) + '/../../../spec_helper'
-require File.dirname(__FILE__) + '/parser_spec_helper'
-
-# ticket 167
-
-describe ADLParser do
-  context 'Archetype uncommon keys' do
-    before(:all) do
-      archetype = adl14_archetype('adl-test-entry.archetype_uncommonkeys.test.adl')
-      @aterm = archetype.ontology.term_definition(:lang => 'en', :code => 'at0000')
-    end
-
-    it 's anotherkey value is another key value' do
-      @aterm.items['anotherkey'].should == 'another key value'
-    end
-
-    it 's text value is test text' do
-      @aterm.items['text'].should == 'test text'
-    end
-
-    it 's description is test description' do
-      @aterm.items['description'].should == 'test description'
-    end
-  end
-end