open_ehr 0.9.5 → 1.0.0

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

@@ -0,0 +1,36 @@
+# ticket 174
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+require 'open_ehr/am/openehr_profile/data_types/quantity'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Quantity
+require 'open_ehr/rm/data_types/quantity'
+include ::OpenEHR::RM::DataTypes::Quantity
+
+shared_examples 'c_dv_quantity lacked items' do
+  it 'parsed to archetypes' do
+    archetype.should be_an_instance_of Archetype
+  end
+end
+
+describe 'items only with property' do
+  it_behaves_like 'c_dv_quantity lacked items' do
+    let(:archetype) {adl14_archetype('adl-test-entry.c_dv_quantity_property.test.adl')}
+  end
+end
+
+describe 'items only with list' do
+  it_behaves_like 'c_dv_quantity lacked items' do
+    let(:archetype) {adl14_archetype('adl-test-entry.c_dv_quantity_list.test.adl')}
+  end
+end
+
+describe 'reversed items' do
+  it_behaves_like 'c_dv_quantity lacked items' do
+    let(:archetype) {adl14_archetype('adl-test-entry.c_dv_quantity_reversed.test.adl')}
+  end
+end
+describe 'units only' do
+  it_behaves_like 'c_dv_quantity lacked items' do
+    let(:archetype) {adl14_archetype('adl-test-entry.c_dv_quantity_item_units_only.test.adl')}
+  end
+end

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

@@ -0,0 +1,146 @@
+# ticket 174
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+require 'open_ehr/am/openehr_profile/data_types/quantity'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Quantity
+require 'open_ehr/rm/data_types/quantity'
+include ::OpenEHR::RM::DataTypes::Quantity
+
+shared_examples 'c_dv_quantity' do
+  context 'CDvQuantity item order change' do
+    before(:all) do
+      @c_dv_quantity = archetype.definition.attributes[0].children[0].attributes[0].children[0].attributes[0].children[0]
+    end
+
+    it 'is an instance of CDvQuantity' do
+      @c_dv_quantity.should be_an_instance_of CDvQuantity
+    end
+
+    context 'property' do
+      before(:all) do
+        @property = @c_dv_quantity.property
+      end
+
+      it 'property should not be nil' do
+        @property.should_not be_nil
+      end
+
+      it 'property terminology id should openehr' do
+        @property.terminology_id.name.should == 'openehr'
+      end
+
+      it 'property code_string is 128' do
+        @property.code_string.should == '128'
+      end
+    end
+
+    context 'item list' do
+      before(:all) do
+        @list = @c_dv_quantity.list
+      end
+
+      it 'size is 2' do
+        @list.size.should be 2
+      end
+
+      context 'first item' do
+        before(:all) do
+          @first = @list[0]
+        end
+
+        it 'first is an isntance of CQuantityItem' do
+          @first.should be_an_instance_of CQuantityItem
+        end
+        it 'units is yr' do
+          @first.units.should == 'yr'
+        end
+
+        it 'magnitude lower is 0.0' do
+          @first.magnitude.lower.should == 0.0
+        end
+
+        it 'magnitude upper is 200.0' do
+          @first.magnitude.upper.should == 200.0
+        end
+
+        it 'precision upper is 2' do
+          @first.precision.upper.should be 2
+        end
+
+        it 'precision lower is 2, too' do
+          @first.precision.lower.should be 2
+        end
+      end
+
+      context 'secocond item' do
+        before(:all) do
+          @second = @list[1]
+        end
+
+        it 'is an instance of CQuantityItem' do
+          @second.should be_an_instance_of CQuantityItem
+        end
+
+        it 'unit is mth' do
+          @second.units.should == 'mth'
+        end
+
+        it 'magnitude lower is 1.0' do
+          @second.magnitude.lower.should == 1.0
+        end
+
+        it 'magnitude upper is 36.0' do
+          @second.magnitude.upper.should == 36.0
+        end
+
+        it 'precision upper is 2' do
+          @second.precision.upper.should == 2
+        end
+
+        it 'precision lower is 2' do
+          @second.precision.lower.should == 2
+        end
+      end
+
+      context 'assumed value' do
+        before(:all) do
+          @assumed_value = @c_dv_quantity.assumed_value
+        end
+
+        it 'is an instance of CQuantityItem' do
+          @assumed_value.should be_an_instance_of DvQuantity
+        end
+
+        it 'units is yr' do
+          @assumed_value.units.should == 'yr'
+        end
+
+        it 'magnitude is 8.0' do
+          @assumed_value.magnitude.should == 8.0
+        end
+
+        it 'precision is 2' do
+          @assumed_value.precision.should be 2
+        end
+      end
+    end
+  end
+end
+
+describe 'items start with property' do
+  it_behaves_like 'c_dv_quantity' do
+    let(:archetype) {adl14_archetype('adl-test-entry.c_dv_quantity_full.test.adl')}
+  end
+end
+
+describe 'items start with list' do
+  it_behaves_like 'c_dv_quantity' do
+    let(:archetype) {adl14_archetype('adl-test-entry.c_dv_quantity_full2.test.adl')}
+  end
+end
+
+describe 'items start with assumed_value' do
+  it_behaves_like 'c_dv_quantity' do
+    let(:archetype) {adl14_archetype('adl-test-entry.c_dv_quantity_full3.test.adl')}
+  end
+end

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

@@ -0,0 +1,231 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+require 'open_ehr/am/openehr_profile/data_types/quantity'
+include OpenEHR::AM::OpenEHRProfile::DataTypes::Quantity
+
+describe ADLParser do
+  describe CDvOrdinal do
+    before(:all) do
+      archetype = adl14_archetype('adl-test-entry.c_dv_ordinal.test.adl')
+      @attributes = archetype.definition.attributes
+    end
+
+    def attr(index)
+      return @attributes[0].children[0].attributes[0].children[index-1].attributes[0].children[0]
+    end
+
+    context '1st ordinals' do
+      before(:all) do
+        @at = attr(1)
+      end
+
+      it 'is an instance of CDvOrdinal' do
+        @at.should be_an_instance_of CDvOrdinal
+      end
+
+      context '1st item' do
+        before(:all) do
+          @item = @at.list[0]
+        end
+
+        it 'value is 0' do
+          @item.value.should be 0
+        end
+
+        it 'symbol value is local::at0003.0]' do
+          @item.symbol.value.should == '[local::at0003.0]'
+        end
+
+        it 'defining code terminology is local' do
+          @item.symbol.defining_code.terminology_id.value.should == 'local'
+        end
+
+        it 'defining code string is at0003.0' do
+          @item.symbol.defining_code.code_string.should == 'at0003.0'
+        end
+      end
+
+      context '2nd item' do
+        before(:all) do
+          @item = @at.list[1]
+        end
+
+        it 'value is 1' do
+          @item.value.should be 1
+        end
+
+        it 'symbol value is local::at0003.1' do
+          @item.symbol.value.should == '[local::at0003.1]'
+        end
+      end
+
+      context '3nd item' do
+        before(:all) do
+          @item = @at.list[2]
+        end
+
+        it 'value is 2' do
+          @item.value.should be 2
+        end
+
+        it 'symbol value is local::at0003.2' do
+          @item.symbol.value.should == '[local::at0003.2]'
+        end
+      end
+
+      context '4th item' do
+        before(:all) do
+          @item = @at.list[3]
+        end
+
+        it 'value is 3' do
+          @item.value.should be 3
+        end
+
+        it 'symbol value is local::at0003.3' do
+          @item.symbol.value.should == '[local::at0003.3]'
+        end
+      end
+
+      context '5th item' do
+        before(:all) do
+          @item = @at.list[4]
+        end
+
+        it 'value is 4' do
+          @item.value.should be 4
+        end
+
+        it 'symbol value is local::at0003.4' do
+          @item.symbol.value.should == '[local::at0003.4]'
+        end
+      end
+
+      context '6th item' do
+        before(:all) do
+          @item = @at.list[5]
+        end
+
+        it 'item is nil' do
+          @item.should be_nil
+        end
+      end
+    end
+
+    context '2nd ordinals chunk' do
+      before(:all) do
+        @at = attr(2)
+      end
+
+      it 'is an instance of CDvOrdinal' do
+        @at.should be_an_instance_of CDvOrdinal
+      end
+
+      context '1st item' do
+        before(:all) do
+          @item = @at.list[0]
+        end
+
+        it 'value is 0' do
+          @item.value.should be 0
+        end
+
+        it 'symbol value is local::at0003.0]' do
+          @item.symbol.value.should == '[local::at0003.0]'
+        end
+
+        it 'defining code terminology is local' do
+          @item.symbol.defining_code.terminology_id.value.should == 'local'
+        end
+
+        it 'defining code string is at0003.0' do
+          @item.symbol.defining_code.code_string.should == 'at0003.0'
+        end
+      end
+
+      context '2nd item' do
+        before(:all) do
+          @item = @at.list[1]
+        end
+
+        it 'value is 1' do
+          @item.value.should be 1
+        end
+
+        it 'symbol value is local::at0003.1' do
+          @item.symbol.value.should == '[local::at0003.1]'
+        end
+      end
+
+      context '3nd item' do
+        before(:all) do
+          @item = @at.list[2]
+        end
+
+        it 'value is 2' do
+          @item.value.should be 2
+        end
+
+        it 'symbol value is local::at0003.2' do
+          @item.symbol.value.should == '[local::at0003.2]'
+        end
+      end
+
+      context '4th item' do
+        before(:all) do
+          @item = @at.list[3]
+        end
+
+        it 'value is 3' do
+          @item.value.should be 3
+        end
+
+        it 'symbol value is local::at0003.3' do
+          @item.symbol.value.should == '[local::at0003.3]'
+        end
+      end
+
+      context '5th item' do
+        before(:all) do
+          @item = @at.list[4]
+        end
+
+        it 'value is 3' do
+          @item.value.should be 4
+        end
+
+        it 'symbol value is local::at0003.4' do
+          @item.symbol.value.should == '[local::at0003.4]'
+        end
+      end
+
+      context '6th item' do
+        before(:all) do
+          @item = @at.list[5]
+        end
+
+        it 'item is nil' do
+          @item.should be_nil
+        end
+      end
+
+      it 'has assumed value' do
+        @at.should have_assumed_value
+      end
+
+      it 'assumed_value is 0' do
+        @at.assumed_value.should be 0
+      end
+    end
+
+    context '3rd ordinal is any allowed' do
+      before(:all) do
+        @at = attr(3)
+      end
+
+      it 'is any allowed' do
+        @at.should be_any_allowed
+      end
+    end
+  end
+end

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

@@ -1,10 +1,11 @@
 require File.dirname(__FILE__) + '/../../../spec_helper'
 require File.dirname(__FILE__) + '/parser_spec_helper'
-
+require 'open_ehr/am/openehr_profile/data_types/text'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Text
 # ticket 171
 
 describe ADLParser do
-  context 'CodePhase type' do
+  context 'CCodePhase type' do
     before(:all) do
       archetype = adl14_archetype('adl-test-entry.c_code_phrase.test.adl')
       @attributes = archetype.definition.attributes
@@ -19,6 +20,10 @@ describe ADLParser do
         @at = attr(1)
       end
 
+      it 'at is an instance of CCodePhrase' do
+        @at.should be_an_instance_of CCodePhrase
+      end
+
       it 'terminology id is icd10' do
         @at.terminology_id.value.should == 'icd10'
       end

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

@@ -0,0 +1,26 @@
+# ticket #175
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+describe ADLParser do
+  context 'Constraint Bindings' do
+    before(:all) do
+      at = adl14_archetype('adl-test-entry.constraint_binding.test.adl')
+      @ao = at.ontology
+    end
+
+    it 'contraint bindings size is two' do
+      @ao.constraint_bindings.size.should be 2
+    end
+
+    it 'SNOMED_CT binds local ac0001 to http://terminology.org/?terminology_id=snomed_ct&&has_relation=102002;with_target=128004' do
+      @ao.constraint_binding(:terminology => 'SNOMED_CT', :code => 'ac0001').
+        value.should == 'http://terminology.org/?terminology_id=snomed_ct&&has_relation=102002;with_target=128004'
+    end
+
+    it 'ICD10 binds local ac0001 to http://terminology.org/?terminology_id=icd10&&has_relation=a2;with_target=b19' do
+      @ao.constraint_binding(:terminology => 'ICD10', :code => 'ac0001').
+        value.should == 'http://terminology.org/?terminology_id=icd10&&has_relation=a2;with_target=b19'
+    end
+  end
+end