open_ehr 0.6.1

data/spec/lib/open_ehr/am/archetype/ontology/archetype_ontology_spec.rb

@@ -0,0 +1,59 @@
+require File.dirname(__FILE__) + '/../../../../../spec_helper'
+include OpenEHR::AM::Archetype::Ontology
+include OpenEHR::RM::DataTypes::Text
+
+describe ArchetypeOntology do
+  before(:each) do
+    items = {'TEXT' => 'text', 'DESC' => 'description'}
+    term1 = ArchetypeTerm.new(:code => 'at0000', :items => items)
+    items = {'TEXT' => 'concept'}
+    term2 = ArchetypeTerm.new(:code => 'at0001', :items => items)
+    term_definitions = {'ja' => [term1, term2]}
+    items = {'text' => 'test', 'description' => 'test item'}
+    term3 = ArchetypeTerm.new(:code => 'ac0000', :items => items)
+    constraint_definitions = {'ja' => [term3]}
+    code_phrase = stub(CodePhrase, :code_string => '163020007')
+    bind = {'at0000' => code_phrase}
+    term_bindings = {'SNOMED-CT(2003)' => [bind]}
+    @archetype_ontology =
+      ArchetypeOntology.new(:term_definitions => term_definitions,
+                            :constraint_definitions => constraint_definitions,
+                            :term_bindings => term_bindings,
+                            :specialisation_depth => 0)
+  end
+
+  it 'should be an instance of ArchetypeOntology' do
+    @archetype_ontology.should be_an_instance_of ArchetypeOntology
+  end
+
+  it 'specialisation depth should be assigned properly' do
+    @archetype_ontology.specialisation_depth.should be_equal 0
+  end
+
+  it 'term_definitions should be assigned properly' do
+    @archetype_ontology.term_definitions['ja'][0].code.should == 'at0000'
+  end
+
+  it 'term_codes should returnd all at codes' do
+    @archetype_ontology.term_codes.should == ['at0000','at0001']
+  end
+
+  it 'constraint_definitions should be assigned properly' do
+    @archetype_ontology.constraint_definitions['ja'][0].items['text'].
+      should == 'test'
+  end
+
+  it 'constrant_codes should return all ac codes' do
+    @archetype_ontology.constraint_codes.should == ['ac0000']
+  end
+
+  it 'term_bindings should be assigned properly' do
+    @archetype_ontology.term_bindings['SNOMED-CT(2003)'][0]['at0000'].
+      code_string.should == '163020007'
+  end
+
+  it 'terminologies_available should return available terminology' do
+    @archetype_ontology.terminologies_available.should == ['SNOMED-CT(2003)']
+  end
+end
+                            

data/spec/lib/open_ehr/am/archetype/ontology/archetype_term_spec.rb

@@ -0,0 +1,43 @@
+require File.dirname(__FILE__) + '/../../../../../spec_helper'
+include OpenEHR::AM::Archetype::Ontology
+
+describe ArchetypeTerm do
+  before(:each) do
+    items = {'TEXT' => 'text', 'DESC' => 'description'}
+    @archetype_term = ArchetypeTerm.new(:code => 'at0001',
+                                        :items => items)
+  end
+
+  it 'should be an instance of ArchetypeTerm' do
+    @archetype_term.should be_an_instance_of ArchetypeTerm
+  end
+
+  it 'code should be assigned properly' do
+    @archetype_term.code.should == 'at0001'
+  end
+
+  it 'should raise ArgumentError if code is nil' do
+    lambda {
+      @archetype_term.code = nil
+    }.should raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentError if code is empty' do
+    lambda {
+      @archetype_term.code = ''
+    }.should raise_error ArgumentError
+  end
+
+  it 'items should be assigned properly' do
+    @archetype_term.items['TEXT'].should == 'text'
+  end
+
+  it 'keys should be a set of keys of item' do
+    @archetype_term.keys.should == Set['TEXT', 'DESC']
+  end
+
+  it 'keys should be empty if items are nil' do
+    @archetype_term.items = nil
+    @archetype_term.keys.should == Set.new
+  end
+end

data/spec/lib/open_ehr/am/archetype/validity_kind_spec.rb

@@ -0,0 +1,42 @@
+require File.dirname(__FILE__) + '/../../../../spec_helper'
+include OpenEHR::AM::Archetype
+
+describe ValidityKind do
+  before(:each) do
+    @validity_kind = ValidityKind.new(:value => 1002)
+  end
+
+  it 'should be an instance of ValidityKind' do
+    @validity_kind.should be_an_instance_of ValidityKind
+  end
+
+  it 'mandatory should be equal 1001' do
+    ValidityKind::MANDATORY.should be_equal 1001
+  end
+
+  it 'optional should be equal 1002' do
+    ValidityKind::OPTIONAL.should be_equal 1002
+  end
+
+  it 'disallowed should be equal 1003' do
+    ValidityKind::DISALLOWED.should be_equal 1003
+  end
+
+  it 'should not raise ArgumentError with valid value' do
+    lambda {
+      [1001, 1002, 1003].each {|value| @validity_kind.value = value}
+    }.should_not raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentError with invalid value such as 1000' do
+    lambda {
+      @validity_kind.value = 1000
+    }.should raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentError with invalid value such as 1004' do
+    lambda {
+      @validity_kind.value = 1004
+    }.should raise_error ArgumentError
+  end
+end

data/spec/lib/open_ehr/assumed_library_types/interval_spec.rb

@@ -0,0 +1,140 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+include OpenEHR::AssumedLibraryTypes
+
+describe Interval do
+  before(:each) do
+    @interval = Interval.new(:upper => 10,
+                             :lower => 1)
+  end
+
+  it 'should be an instance of Interval' do
+    @interval.should be_an_instance_of Interval
+  end
+
+  it 's upper should be greater than lower' do
+    @interval.upper.should be > @interval.lower
+  end
+
+  it 's upper should be equal 10' do
+    @interval.upper.should == 10
+  end
+
+  it 's lower should be equal 1' do
+    @interval.lower.should == 1
+  end
+
+  it 'should raise ArgumentError with smaller upper' do
+    lambda {@interval.upper = -1}.should raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentError with greater lower' do
+    lambda {@interval.lower = 11}.should raise_error ArgumentError
+  end
+
+  it 'should have 5' do
+    @interval.has?(5).should be_true
+  end
+
+  it 'should not have 11' do
+    @interval.has?(11).should_not be_true
+  end
+
+  it 'should not have -1' do
+    @interval.has?(-1).should_not be_true
+  end
+
+  it 'should not have 10' do
+    @interval.has?(10).should_not be_true
+  end
+
+  it 'should not have 1' do
+    @interval.has?(1).should_not be_true
+  end
+
+  describe Interval, 'when lower included' do
+    before do
+      @interval.lower_included = true
+    end
+
+    it 'should be lower_included' do
+      @interval.should be_lower_included
+    end
+
+    it 'should have 1 when lower included' do
+      @interval.has?(1).should be_true
+    end
+
+    after do
+      @interval.lower_included = false
+    end
+  end
+
+  describe Interval, 'when upper included' do
+    before do
+      @interval.upper_included = true
+    end
+
+    it 'should be upper uncluded' do
+      @interval.should be_upper_included
+    end
+
+    it 'should have 10 when upper included' do
+      @interval.has?(10).should be_true
+    end
+
+    after do
+      @interval.upper_included = false
+    end
+  end
+
+  describe Interval, 'when upper unbounded' do
+    before do
+      @interval.upper = nil
+    end
+
+    it 'should be upper unbounded' do
+      @interval.should be_upper_unbounded
+    end
+
+    it 'should have 11' do
+      @interval.has?(11).should be_true
+    end
+
+    it 'should raise ArgumentError, when upper_included is assigned' do
+      lambda{
+        @interval.upper_included = true
+      }.should raise_error ArgumentError
+    end
+
+    after do
+      @interval.upper = 10
+    end
+  end
+
+  describe Interval, 'when lower unbounded' do
+    before do
+      @interval.lower = nil
+    end
+
+    it 'should be lower unbounded' do
+      @interval.should be_lower_unbounded
+    end
+
+    it 'should  have -10' do
+      @interval.has?(-10).should be_true
+    end
+
+    it 'should raise ArgumentError, when lower_included is assigned' do
+      lambda{
+        @interval.lower_included = true
+      }.should raise_error ArgumentError
+    end
+  end
+
+  it 'should raise ArgumentError both upper and lower is nil' do
+    lambda {
+      Interval.new
+    }.should raise_error ArgumentError
+  end
+end
+

data/spec/lib/open_ehr/assumed_library_types/iso8601_date_spec.rb

@@ -0,0 +1,236 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+include OpenEHR::AssumedLibraryTypes
+
+describe ISO8601Date do
+  before do
+    @iso8601date = ISO8601Date.new('2009-09-10')
+  end
+
+  it 'should be an instance of ISO8601Date' do
+    @iso8601date.should be_an_instance_of ISO8601Date
+  end
+
+  it 'year should be equal 2009' do
+    @iso8601date.year.should be_equal 2009
+  end
+
+  it 'month should be equal 9' do
+    @iso8601date.month.should be_equal 9
+  end
+
+  it 'day should be equal 10' do
+    @iso8601date.day.should be_equal 10
+  end
+
+  it 'should be 2009-09-10 as_string' do
+    @iso8601date.as_string.should == '2009-09-10'
+  end
+
+  it 'should be extended ' do
+    @iso8601date.is_extended?.should be_true
+  end
+
+  it 'should parse vaild date form' do
+
+  end
+
+  it 'should parse valid adte form' do
+    ISO8601Date.should be_valid_iso8601_date '2009-09-22'
+  end
+
+  it 'should not parse invalid date form' do
+    ISO8601Date.should_not be_valid_iso8601_date '2009-13-54'
+  end
+
+  describe 'year behavior' do
+    it 'should raise ArgumentError with nil year string' do
+      lambda{ISO8601Date.new('-09-02')}.should raise_error ArgumentError
+    end
+
+    it 'should raise ArgumentError with nil year' do
+      lambda{@iso8601date.year = nil}.should raise_error ArgumentError
+    end
+
+    it 'should not raise ArgumentError more than 0 year' do
+      lambda{@iso8601date.year = 0}.should_not raise_error ArgumentError
+    end
+  end
+
+  describe 'month behavior' do
+    it '1 month should not raise ArgumentError' do
+      lambda{@iso8601date.month = 1}.should_not raise_error ArgumentError
+    end
+
+    it '12 month should not raise ArgumentError' do
+      lambda{@iso8601date.month = 12}.should_not raise_error ArgumentError
+    end
+
+    it '13 month should raise ArgumentError' do
+      lambda{@iso8601date.month = 13}.should raise_error ArgumentError
+    end
+
+    it '0 month should raise ArgumentError' do
+      lambda{@iso8601date.month = 0}.should raise_error ArgumentError
+    end
+  end
+
+  describe 'day behavior' do
+    it '0 day should raise ArgumentError' do
+      lambda{@iso8601date.day = 0}.should raise_error ArgumentError
+    end
+  end
+
+  [1,3,5,7,8,10,12].each do |m|
+    describe '#{m}th month behavior' do
+      before do
+        @iso8601date.month = m
+      end
+      
+      it 'should have 31 days' do
+        lambda{
+          @iso8601date.day = 31
+        }.should_not raise_error ArgumentError
+      end
+
+      it 'should not have 32 days' do
+        lambda{
+          @iso8601date.day = 32
+        }.should raise_error ArgumentError
+      end
+    end
+  end
+
+  describe 'February and leap year behavior' do
+    before do
+      @iso8601date.month = 2
+    end
+
+    describe '2009(not leap year) behavior' do
+      before do
+        @iso8601date.year = 2009
+      end
+
+      it '2009 should not be leap year' do
+        @iso8601date.should_not be_leapyear 2009
+      end
+
+      it '2009-02-28 should not raise ArgumentError' do
+        lambda{@iso8601date.day = 28}.should_not raise_error ArgumentError
+      end
+
+      it '2009-02-29 should raise ArgumentError' do
+        lambda{@iso8601date.day = 29}.should raise_error ArgumentError
+      end
+    end
+
+    describe '2008(leap year) behavior' do
+      before do
+        @iso8601date.year = 2008
+      end
+
+      it '2008 should be leap year' do
+        @iso8601date.should be_leapyear 2008
+      end
+
+      it '2008-02-29 should not raise ArgumentError' do
+        lambda{@iso8601date.day = 29}.should_not raise_error ArgumentError
+      end
+
+      it '2008-02-30 should raise ArgumentError' do
+        lambda{@iso8601date.day = 30}.should raise_error ArgumentError
+      end
+    end
+
+    describe '2000(irregular leap year' do
+      before do
+        @iso8601date.year = 2000
+      end
+
+      it 'should not leapyear' do
+        @iso8601date.should be_leapyear 2000
+      end
+
+      it '2000-02-29 should not raise ArgumentError' do
+        lambda{@iso8601date.day = 29}.should_not raise_error ArgumentError
+      end
+
+      it '2000-02-30 should raise ArgumentError' do
+        lambda{@iso8601date.day = 30}.should raise_error ArgumentError
+      end
+    end
+  end
+
+  [4,6,9,11].each do |month|
+    describe "#{month}th month behavior" do
+      before do
+        @iso8601date.month = month
+      end
+
+      it '30 day should not raise ArgumentError' do
+        lambda{
+          @iso8601date.day = 30
+        }.should_not raise_error ArgumentError
+      end
+
+      it '31 day should raise ArgumentError' do
+        lambda{
+          @iso8601date.day = 31
+        }.should raise_error ArgumentError
+      end
+    end
+  end
+
+  describe 'partial date data' do
+    describe 'day unknown' do
+      before do
+        @iso8601date.day = nil
+      end
+      
+      it 'day should be unknown' do
+        @iso8601date.should be_day_unknown
+      end
+      
+      it 'should be 2009-09 as string' do
+        @iso8601date.as_string.should == '2009-09'
+      end
+      
+      it 'should be partial' do
+        @iso8601date.is_partial?.should be_true
+      end
+      
+      it 'constructor pass partial date' do
+        lambda {
+          ISO8601Date.new('2009-09')
+        }.should_not raise_error ArgumentError
+      end
+
+      after do
+        @iso8601date.day = 10
+      end
+    end
+    
+    describe 'month unknown' do
+      before do
+        @iso8601date.day = nil
+        @iso8601date.month = nil
+      end
+      
+      it 'should raise ArgumentError with nil month and not nil day' do
+        lambda {
+          @iso8601date.day = 11
+        }.should raise_error ArgumentError
+      end
+
+      it 's as_string should be 2009' do
+        @iso8601date.as_string.should == '2009'
+      end
+
+      it 'constructor pass only year data' do
+        lambda {
+          ISO8601Date.new('2009')
+        }.should_not raise_error ArgumentError
+      end
+    end
+  end
+
+end

data/spec/lib/open_ehr/assumed_library_types/iso8601_date_time_spec.rb

@@ -0,0 +1,47 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+include OpenEHR::AssumedLibraryTypes
+
+describe ISO8601DateTime do
+  before(:each) do
+    @iso8601date_time = ISO8601DateTime.new('2009-06-29T12:34:56.78+0900')
+  end
+
+  it 'should be an instance of ISO8601DateTime' do
+    @iso8601date_time.should be_an_instance_of ISO8601DateTime
+  end
+
+  it 'should be 2009-06-29T12:34:56.78T+09:00 as string' do
+    @iso8601date_time.as_string.should == '2009-06-29T12:34:56.78+0900'
+  end
+
+  it 'should raise ArgumentError with invalid date format' do
+    lambda {
+      ISO8601DateTime.new('2009:06:29Z12-34-56')
+    }.should raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentErrow with empty argument' do
+    lambda {
+      ISO8601DateTime.new('')
+    }.should raise_error ArgumentError
+  end    
+
+  it 'allows without fractional second' do
+    lambda {
+      ISO8601DateTime.new('2009-06-29T12:34:56')
+    }.should_not raise_error ArgumentError
+  end
+
+  describe 'partial date' do
+    it 'should recognize 2009-06' do
+      @iso8601date_time.day = nil      
+      @iso8601date_time.as_string.should == '2009-06'
+    end
+
+    it 'should recognize 2009' do
+      @iso8601date_time.day = nil
+      @iso8601date_time.month = nil
+      @iso8601date_time.as_string.should == '2009'
+    end
+  end
+end