open_ehr 0.9.4 → 0.9.5

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

@@ -0,0 +1,193 @@
+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/open_ehr/parser/adl_archetype_uncommon_term_keys_spec.rb

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

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

@@ -204,7 +204,7 @@ describe ADLParser do
                   end
 
                   it 'expression value of assertion0 is /clinical_synopsis\.v1/' do
-                    @assertion0.expression.item.pattern.should == '/clinical_synopsis\.v1/'
+                    @assertion0.expression.right_operand.item.pattern.should == '/clinical_synopsis\.v1/'
                   end
                 end
 
@@ -222,7 +222,7 @@ describe ADLParser do
                   end
 
                   it 'expression value of assertion1 is /problem\.v1/' do
-                    @assertion1.expression.item.pattern.should ==
+                    @assertion1.expression.right_operand.item.pattern.should ==
                       '/problem\.v1/'
                   end
                 end
@@ -241,7 +241,7 @@ describe ADLParser do
                   end
 
                   it 'expression value of Assertion2 is /problem\.v1/' do
-                    @assertion2.expression.item.pattern.should ==
+                    @assertion2.expression.right_operand.item.pattern.should ==
                       '/problem-diagnosis\.v1/'
                   end
                 end
@@ -260,7 +260,7 @@ describe ADLParser do
                   end
 
                   it 'expression value of assertion3 is /problem\.v1/' do
-                    @assertion3.expression.item.pattern.should ==
+                    @assertion3.expression.right_operand.item.pattern.should ==
                       '/problem-diagnosis-histological\.v1/'
                   end
                 end
@@ -279,7 +279,7 @@ describe ADLParser do
                   end
 
                   it 'expression value of assertion4 is /problem\.v1/' do
-                    @assertion4.expression.item.pattern.should ==
+                    @assertion4.expression.right_operand.item.pattern.should ==
                       '/problem-genetic\.v1/'
                   end
                 end
@@ -298,7 +298,7 @@ describe ADLParser do
                   end
 
                   it 'expression value of assertion5 is /problem\.v1/' do
-                    @assertion5.expression.item.pattern.should ==
+                    @assertion5.expression.right_operand.item.pattern.should ==
                       '/risk\.v1/'
                   end
                 end

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

@@ -0,0 +1,18 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include OpenEHR::AM::Archetype
+
+# ticket 169
+# almost same as adl_archetype_internal_ref_with_generics_spec.rb
+
+describe ADLParser do
+  context 'Basic Generic type' do
+    before(:all) do
+      @archetype = adl14_archetype('adl-test-SOME_TYPE.generic_type_basic.draft.adl')
+    end
+
+    it 'is an instance of Archetype' do
+      @archetype.should be_an_instance_of Archetype
+    end
+  end
+end