open_ehr 0.9.4 → 0.9.5

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

@@ -0,0 +1,475 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+# ticket 172
+
+describe ADLParser do
+  context 'CDuration type' do
+    before(:all) do
+      archetype = adl14_archetype('adl-test-entry.durations.test.adl')
+      @attributes = archetype.definition.attributes
+    end
+
+    def attr(index)
+      return @const.children[index-1].attributes[0].children[0]
+    end
+
+    context 'Duration without assumed value' do
+      before(:all) do
+        @const = @attributes[0].children[0].attributes[0]
+      end
+
+      context '1st attribute PT0s' do
+        before(:all) do
+          @at = attr(1)
+        end
+
+        it '1st item of the list is PT0s' do
+          @at.list[0].value.should == 'PT0s'
+        end
+
+        it 'does not have assumed_value' do
+          @at.should_not have_assumed_value
+        end
+      end
+
+      context '2nd attribute P1d' do
+        before(:all) do
+          @at = attr(2)
+        end
+
+        it '1st item of the list is P1d' do
+          @at.list[0].value.should == 'P1d'
+        end
+
+        it 'day is 1' do
+          @at.list[0].days.should == 1
+        end
+
+        it 'months is 0' do
+          @at.list[0].months.should be 0
+        end
+
+        it 'does not have assumed_value' do
+          @at.should_not have_assumed_value
+        end
+      end
+
+      context '3rd attribute PT2h5m0s' do
+        before(:all) do
+          @at = attr(3)
+        end
+
+        it '1st item of the list is PT2h5m0s' do
+          @at.list[0].value.should == 'PT2h5m0s'
+        end
+
+        it 'hours should 2' do
+          @at.list[0].hours.should be 2
+        end
+      end
+
+      context '4th attribute |PT1h55m0s..PT2h5m0s|' do
+        before(:all) do
+          @at = attr(4)
+        end
+
+        it 'lower range is PT1h55m0s' do
+          @at.range.lower.value.should == 'PT1h55m0s'
+        end
+
+        it 'upper range is PT2h5m0s' do
+          @at.range.upper.value.should == 'PT2h5m0s'
+        end
+
+        it 'is upper included' do
+          @at.range.should be_upper_included
+        end
+
+        it 'is lower included' do
+          @at.range.should be_lower_included
+        end
+      end
+
+      context '5th attribute |<=PT1h|' do
+        before(:all) do
+          @at = attr(5)
+        end
+
+        it 'upper range is PT1h' do
+          @at.range.upper.value.should == 'PT1h'
+        end
+
+        it 'is upper included' do
+          @at.range.should be_upper_included
+        end
+
+        it 'is lower unbounded' do
+          @at.range.should be_lower_unbounded
+        end
+      end
+
+      context '6th attribute P1DT1H2M3S' do
+        before(:all) do
+          @at = attr(6)
+        end
+
+        it '1st item of the list is P1DT1H2M3S' do
+          @at.list[0].value.should == 'P1DT1H2M3S'
+        end
+
+        it 'day is 1' do
+          @at.list[0].days.should == 1
+        end
+
+        it 'seconds is 3' do
+          @at.list[0].seconds.should be 3
+        end
+      end
+
+      context '7th attribute P1W2DT1H2M3S' do
+        before(:all) do
+          @at = attr(7)
+        end
+
+        it '1st item of the list is P1W2DT1H2M3S' do
+          @at.list[0].value.should == 'P1W2DT1H2M3S'
+        end
+
+        it 'weeks is 1' do
+          @at.list[0].weeks.should be 1
+        end
+
+        it 'minutes is 2' do
+          @at.list[0].minutes.should be 2
+        end
+      end
+
+      context '8th attribute P3M1W2DT1H2M3S' do
+        before(:all) do
+          @at = attr(8)
+        end
+
+        it '1st item of the list is P3M1W2DT1H2M3S' do
+          @at.list[0].value.should == 'P3M1W2DT1H2M3S'
+        end
+
+        it 'months are 3' do
+          @at.list[0].months.should be 3
+        end
+
+        it 'hours are 1' do
+          @at.list[0].hours.should be 1
+        end
+      end
+
+      context '9th attribute PDTH' do
+        before(:all) do
+          @at = attr(9)
+        end
+
+        it 'pattern is PDTH' do
+          @at.pattern.should == 'PDTH'
+        end
+      end
+
+      context '10th attribute |PT10M|' do
+        before(:all) do
+          @at = attr(10)
+        end
+
+        it 'upper range is PT10M' do
+          @at.range.upper.value.should == 'PT10M'
+        end
+
+        it 'lower range is PT10M' do
+          @at.range.lower.value.should == 'PT10M'
+        end
+
+        it 'lower range minutes are 10' do
+          @at.range.lower.minutes.should be 10
+        end
+
+        it 'lower range months are 0' do
+          @at.range.lower.months.should be 0
+        end
+
+        it 'is upper included' do
+          @at.range.should be_upper_included
+        end
+
+        it 'is lower included' do
+          @at.range.should be_lower_included
+        end
+      end
+
+      context '11th attribute PYMWDTHMS' do
+        before(:all) do
+          @at = attr(11)
+        end
+
+        it 'pattern is PYMWDTHMS' do
+          @at.pattern.should == 'PYMWDTHMS'
+        end
+      end
+
+# at1011 is duplicated
+
+      context '12th attribute |PT0.004s|' do
+        before(:all) do
+          @at = attr(12)
+        end
+
+        it 'upper range is PT0.004s' do
+          @at.range.upper.value.should == 'PT0.004s'
+        end
+
+        it 'lower range is PT0.004s' do
+          @at.range.lower.value.should == 'PT0.004s'
+        end
+
+        it 'lower range fractional second are 0.004' do
+          @at.range.lower.fractional_second.should == 0.004
+        end
+
+        it 'lower range fractional second are 0.004' do
+          @at.range.lower.fractional_second.should == 0.004
+        end
+
+        it 'is upper included' do
+          @at.range.should be_upper_included
+        end
+
+        it 'is lower included' do
+          @at.range.should be_lower_included
+        end
+      end
+
+      context '13th attribute |PT10.01s|' do
+        before(:all) do
+          @at = attr(13)
+        end
+
+        it 'upper range is PT10.01s' do
+          @at.range.upper.value.should == 'PT10.01s'
+        end
+
+        it 'lower range is PT10.01s' do
+          @at.range.lower.value.should == 'PT10.01s'
+        end
+
+        it 'lower range seconds are 10' do
+          @at.range.lower.seconds.should == 10
+        end
+
+        it 'lower range fractionsl second are 0.01' do
+          @at.range.lower.fractional_second.should == 0.01
+        end
+
+        it 'is upper included' do
+          @at.range.should be_upper_included
+        end
+
+        it 'is lower included' do
+          @at.range.should be_lower_included
+        end
+      end
+
+      context '14th attribute |PT1.1s|' do
+        before(:all) do
+          @at = attr(14)
+        end
+
+        it 'upper range is PT1.1s' do
+          @at.range.upper.value.should == 'PT1.1s'
+        end
+
+        it 'lower range is PT1.1s' do
+          @at.range.lower.value.should == 'PT1.1s'
+        end
+
+        it 'upper range seconds are 1' do
+          @at.range.upper.seconds.should == 1
+        end
+
+        it 'upper range fractional second are 0.1' do
+          @at.range.upper.fractional_second.should == 0.1
+        end
+
+        it 'is upper included' do
+          @at.range.should be_upper_included
+        end
+
+        it 'is lower included' do
+          @at.range.should be_lower_included
+        end
+      end
+    end
+
+    context 'Duration with assumed value' do
+      before(:all) do
+        @const = @attributes[0].children[1].attributes[0]
+      end
+
+      context '1st attribute PT0s; P1d' do
+        before(:all) do
+          @at = attr(1)
+        end
+
+        it '1st item of the list is PT0s' do
+          @at.list[0].value.should == 'PT0s'
+        end
+
+        it 'has assumed_value' do
+          @at.should have_assumed_value
+        end
+
+        it 'assumed value is P1d' do
+          @at.assumed_value.value.should == 'P1d'
+        end
+      end
+
+      context '2nd attribute P1d; P1d' do
+        before(:all) do
+          @at = attr(2)
+        end
+
+        it '1st item of the list is P1d' do
+          @at.list[0].value.should == 'P1d'
+        end
+
+        it 'day is 1' do
+          @at.list[0].days.should == 1
+        end
+
+        it 'months is 0' do
+          @at.list[0].months.should be 0
+        end
+
+        it 'assumed value is P1d' do
+          @at.assumed_value.value.should == 'P1d'
+        end
+      end
+
+      context '3rd attribute PT2h5m0s; P1d' do
+        before(:all) do
+          @at = attr(3)
+        end
+
+        it '1st item of the list is PT2h5m0s' do
+          @at.list[0].value.should == 'PT2h5m0s'
+        end
+
+        it 'hours should 2' do
+          @at.list[0].hours.should be 2
+        end
+
+        it 'assumed value is P1d' do
+          @at.assumed_value.value.should == 'P1d'
+        end
+      end
+
+      context '4th attribute |PT1h55m0s..PT2h5m0s|; P1d' do
+        before(:all) do
+          @at = attr(4)
+        end
+
+        it 'lower range is PT1h55m0s' do
+          @at.range.lower.value.should == 'PT1h55m0s'
+        end
+
+        it 'upper range is PT2h5m0s' do
+          @at.range.upper.value.should == 'PT2h5m0s'
+        end
+
+        it 'is upper included' do
+          @at.range.should be_upper_included
+        end
+
+        it 'is lower included' do
+          @at.range.should be_lower_included
+        end
+
+        it 'assumed value is P1d' do
+          @at.assumed_value.value.should == 'P1d'
+        end
+      end
+
+      context '5th attribute |<=PT1h|; P1d' do
+        before(:all) do
+          @at = attr(5)
+        end
+
+        it 'upper range is PT1h' do
+          @at.range.upper.value.should == 'PT1h'
+        end
+
+        it 'is upper included' do
+          @at.range.should be_upper_included
+        end
+
+        it 'is lower unbounded' do
+          @at.range.should be_lower_unbounded
+        end
+
+        it 'assumed value is P1d' do
+          @at.assumed_value.value.should == 'P1d'
+        end
+      end
+
+      context '6th attribute PDTH; P1d' do
+        before(:all) do
+          @at = attr(6)
+        end
+
+        it 'pattern is PDTH' do
+          @at.pattern.should == 'PDTH'
+        end
+
+        it 'assumed value is P1d' do
+          @at.assumed_value.value.should == 'P1d'
+        end
+      end
+
+# at1007 - at1009 was skiped
+
+      context '7th attribute |PT10M|; PT12M' do
+        before(:all) do
+          @at = attr(7)
+        end
+
+        it 'upper range is PT10M' do
+          @at.range.upper.value.should == 'PT10M'
+        end
+
+        it 'lower range is PT10M' do
+          @at.range.lower.value.should == 'PT10M'
+        end
+
+        it 'lower range minutes are 10' do
+          @at.range.lower.minutes.should be 10
+        end
+
+        it 'lower range months are 0' do
+          @at.range.lower.months.should be 0
+        end
+
+        it 'is upper included' do
+          @at.range.should be_upper_included
+        end
+
+        it 'is lower included' do
+          @at.range.should be_lower_included
+        end
+
+        it 'assumed value is PT12M' do
+          @at.assumed_value.value.should == 'PT12M'
+        end
+
+        it 'assumed value minutes is 12' do
+          @at.assumed_value.minutes.should be 12
+        end
+      end
+    end
+  end
+end

data/spec/lib/open_ehr/rm/data_types/quantity/date_time/dv_duration_spec.rb

@@ -0,0 +1,44 @@
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+include OpenEHR::RM::DataTypes::Quantity::DateTime
+
+describe DvDate do
+  before(:each) do
+    @dv_duration = DvDuration.new(:value => 'P1Y2M3W4DT5H6M7.7S')
+  end
+
+  it 'is an instance of DvDuration' do
+    @dv_duration.should be_an_instance_of DvDuration
+  end
+
+  it 'year is 1' do
+    @dv_duration.years.should be 1
+  end
+
+  it 'months is 2' do
+    @dv_duration.months.should be 2
+  end
+
+  it 'weeks is 3' do
+    @dv_duration.weeks.should be 3
+  end
+
+  it 'days is 4' do
+    @dv_duration.days.should be 4
+  end
+
+  it 'hours should be 5' do
+    @dv_duration.hours.should be 5
+  end
+
+  it 'minutes should be 6' do
+    @dv_duration.minutes.should be 6
+  end
+
+  it 'seconds should be 7' do
+    @dv_duration.seconds.should be 7
+  end
+
+  it 'fractional_second should be 0.7' do
+    @dv_duration.fractional_second.should == 0.7
+  end
+end

data/spec/lib/open_ehr/rm/data_types/quantity/date_time/dv_time_spec.rb

@@ -3,7 +3,7 @@ include OpenEHR::RM::DataTypes::Quantity::DateTime
 
 describe DvTime do
   before(:each) do
-    @dv_time = DvTime.new(:value => '11:17:30.2')
+    @dv_time = DvTime.new(:value => '11:17:30.2-0900')
   end
 
   it 'should be an instance of DvTime' do
@@ -26,10 +26,14 @@ describe DvTime do
     @dv_time.fractional_second.should == 0.2
   end
 
+  it 'timezone should be -0900' do
+    @dv_time.timezone.should == '-0900'
+  end
+
   it 'magnitude should 40650.2' do
     @dv_time.magnitude.should == 40650.2
   end
-
+  
   it 'should be ' do
     diff_time = DvTime.new(:value => '15:36:48.05')
     @dv_time.diff(diff_time).value.should =='P0Y0M0W0DT4H19M17.85S'

data/spec/spec_helper.rb

@@ -53,5 +53,6 @@ rescue LoadError
   require 'rspec'
 end
 
-$:.unshift(File.dirname(__FILE__) + '/../lib')
-require 'open_ehr'
+#$:.unshift(File.dirname(__FILE__) + '/../lib')
+$:.unshift(File.dirname(__FILE__) + '/..')
+require 'lib/open_ehr'