openehr 1.1.0

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

@@ -0,0 +1,34 @@
+# ticket 174
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+require 'openehr/am/openehr_profile/data_types/quantity'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Quantity
+require 'openehr/rm/data_types/quantity'
+include ::OpenEHR::RM::DataTypes::Quantity
+
+describe 'CDvQuantity empty' do
+  before(:all) do
+    archetype = adl14_archetype('adl-test-entry.c_dv_quantity_empty.test.adl')
+    @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
+
+  it 'list is nil' do
+    @c_dv_quantity.list.should be_nil
+  end
+
+  it 'property is nil' do
+    @c_dv_quantity.property.should be_nil
+  end
+
+  it 'assumed value is nil' do
+    @c_dv_quantity.assumed_value.should be_nil
+  end
+
+  it 'is any allowed' do
+    @c_dv_quantity.should be_any_allowed
+  end
+end

data/spec/lib/openehr/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 'openehr/am/openehr_profile/data_types/quantity'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Quantity
+require 'openehr/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/openehr/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 'openehr/am/openehr_profile/data_types/quantity'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Quantity
+require 'openehr/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/openehr/parser/cdv_ordinal_parse_spec.rb

@@ -0,0 +1,231 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+require 'openehr/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