openehr 1.1.0

data/spec/lib/openehr/am/archetype/constraint_model/primitive/c_primitive_spec.rb

@@ -0,0 +1,41 @@
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+include OpenEHR::AM::Archetype::ConstraintModel::Primitive
+include OpenEHR::RM::DataTypes::Text
+
+describe CPrimitive do
+  before(:each) do
+    default = DvText.new(:value => 'DEFAULT')
+    assumed = DvText.new(:value => 'ASSUMED')
+    @c_primitive = CPrimitive.new(:default_value => default,
+                                  :assumed_value => assumed)
+  end
+
+  it 'should be an instance of CPrimitive' do
+    @c_primitive.should be_an_instance_of CPrimitive
+  end
+
+  it 'type is ANY' do
+    @c_primitive.type.should == 'ANY'
+  end
+
+  it 'default value should be assigned properly' do
+    @c_primitive.default_value.value.should == 'DEFAULT'
+  end
+
+  it 'assumed_value should be assigned properly' do
+    @c_primitive.assumed_value.value.should == 'ASSUMED'
+  end
+
+  it 'should be true when assumed_value is assigned' do
+    @c_primitive.should have_assumed_value
+  end
+
+  it 'should not be true when assumed_value is not assigned' do
+    @c_primitive.assumed_value = nil
+    @c_primitive.should_not have_assumed_value
+  end
+
+  it 'type should not empty' do
+    expect {@c_primitive.type = ''}.to raise_error
+  end
+end

data/spec/lib/openehr/am/archetype/constraint_model/primitive/c_real_spec.rb

@@ -0,0 +1,19 @@
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+include OpenEHR::AM::Archetype::ConstraintModel::Primitive
+
+describe CReal do
+  before(:each) do
+    @c_real = CReal.new(:default_value => 1.5,
+                        :assumed_value => 2.3,
+                        :type => 'Real',
+                        :list => [-1.5,20.3])
+  end
+
+  it 'should be an instance of CReal' do
+    @c_real.should be_an_instance_of CReal
+  end
+
+  it 'type is DvReal' do
+    @c_real.type.should == 'Real'
+  end
+end

data/spec/lib/openehr/am/archetype/constraint_model/primitive/c_string_spec.rb

@@ -0,0 +1,73 @@
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+include OpenEHR::AM::Archetype::ConstraintModel::Primitive
+include OpenEHR::RM::DataTypes::Text
+
+describe CString do
+  before(:each) do
+    @default_value = DvText.new(:value => 'default')
+    @c_string = CString.new(:default_value => @default_value,
+                            :assumed_value => 'assumed',
+                            :pattern => 't[a-z]st')
+  end
+
+  it 'should be an instance of CString' do
+    @c_string.should be_an_instance_of CString
+  end
+
+  it 'type is always String' do
+    @c_string.type.should == 'String'
+  end
+
+  it 'default should be assigned properly' do
+    @c_string.default_value.value.should == 'default'
+  end
+
+  it 'assumed_value should be assigned properly' do
+    @c_string.assumed_value.should == 'assumed'
+  end
+
+  it 'pattern should be assigned properly by constructor' do
+    @c_string.pattern.should == 't[a-z]st'
+  end
+
+  it 'pattern should be assigned properly by method' do
+    @c_string.pattern = '.*'
+    @c_string.pattern.should == '.*'
+  end
+
+  it 'should raise ArgumentError if either list or pattern is not nil' do
+    lambda {
+      @c_string.list = ['test','driven']
+    }.should raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentError if both list and pattern are nil' do
+    lambda {
+      @c_string.pattern = nil
+    }.should raise_error ArgumentError
+  end
+
+  describe 'list attribute' do
+    before(:each) do
+      @default_value = DvText.new(:value => 'default')
+      @c_string = CString.new(:default_value => @default_value,
+                              :assumed_value => 'assumed',
+                              :list => ['test', 'behavior'])
+    end
+
+    it 'list should be assigned properly by constructor' do
+      @c_string.list.should == ['test', 'behavior']
+    end
+
+    it 'list shoudl be assigned properly by method' do
+      @c_string.list = ['spec']
+      @c_string.list.should == ['spec']
+    end
+
+    it 'should raise ArgumentError if both pattern and list is not nil' do
+      lambda {
+        @c_string.pattern = 'file.*'
+      }.should raise_error ArgumentError
+    end
+  end
+end

data/spec/lib/openehr/am/archetype/constraint_model/primitive/c_time_spec.rb

@@ -0,0 +1,104 @@
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+include OpenEHR::RM::DataTypes::Quantity::DateTime
+include OpenEHR::AM::Archetype
+include OpenEHR::AM::Archetype::ConstraintModel::Primitive
+
+describe CTime do
+  before(:each) do
+    default_value = DvTime.new(:value => '01:23:45')
+    assumed_value = DvTime.new(:value => '22:02:33')
+    range = Interval.new(:lower => DvTime.new(:value => '01:01:22'),
+                         :upper => DvTime.new(:value => '23:55:59'))
+    @c_time = CTime.new(:default_value => default_value,
+                        :assumed_value => assumed_value,
+                        :range => range,
+                        :minute_validity => ValidityKind::MANDATORY,
+                        :second_validity => ValidityKind::OPTIONAL,
+                        :millisecond_validity => ValidityKind::DISALLOWED)
+  end
+
+  it 'should be an instance of CTime' do
+    @c_time.should be_an_instance_of CTime
+  end
+
+  it 'type is DvTime' do
+    @c_time.type.should == 'ISO8601_TIME'
+  end
+
+  it 'minute_validity should be assigned' do
+    @c_time.minute_validity.should be_equal ValidityKind::MANDATORY
+  end
+
+  it 'seconds_validity should be assigned properly' do
+    @c_time.second_validity.should be_equal ValidityKind::OPTIONAL
+  end
+
+  it 'millisecond_validity should be assigned properly' do
+    @c_time.millisecond_validity.should be_equal ValidityKind::DISALLOWED
+  end
+
+  it 'should be true if range is not nil' do
+    @c_time.should be_validity_is_range
+  end
+
+  it 'second_validity should not be MANDATORY if minute_validity is optional' do
+    @c_time.second_validity = ValidityKind::MANDATORY
+    lambda {
+      @c_time.minute_validity = ValidityKind::OPTIONAL
+    }.should raise_error ArgumentError
+  end
+
+  it 'second_validity should be DISALLOWED if minute_validity is DISALLOWED' do
+    lambda {
+      @c_time.minute_validity = ValidityKind::DISALLOWED
+    }.should raise_error ArgumentError
+  end
+
+  it 'should not raise ArgumentError if minute_validity and second_validity are DISALLOWED' do
+    @c_time.second_validity = ValidityKind::DISALLOWED
+    lambda {
+      @c_time.minute_validity = ValidityKind::DISALLOWED
+    }.should_not raise_error ArgumentError
+  end
+
+  it 'millisecond_validity should not be MANDATORY if second_validity is optional' do
+    @c_time.millisecond_validity = ValidityKind::MANDATORY
+    lambda {
+      @c_time.second_validity = ValidityKind::OPTIONAL
+    }.should raise_error ArgumentError
+  end
+
+  it 'millisecond_validity should be DISALLOWED if second_validity is DISALLOWED' do
+    lambda {
+      @c_time.second_validity = ValidityKind::DISALLOWED
+    }.should_not raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentError if second_validity is DISALLOWED and millisecond_validity is OPTIONAL' do
+    @c_time.millisecond_validity = ValidityKind::OPTIONAL
+    lambda {
+      @c_time.second_validity = ValidityKind::DISALLOWED
+    }.should raise_error ArgumentError
+  end
+
+  describe 'pattern constraint' do
+    before(:all) do
+      @c_timep = CTime.new(:pattern => 'hh:mm:ss')
+    end
+
+    it 'pattern is hh:mm:ss' do
+      @c_timep.pattern.should == 'hh:mm:ss'
+    end
+  end
+
+  describe 'list constraint' do
+    before(:all) do
+      time = DvTime.new(:value => '09:51:17')
+      @c_timel = CTime.new(:list => [time])
+    end
+
+    it 'first item value is 09:51:17' do
+      @c_timel.list[0].value.should == '09:51:17'
+    end
+  end
+end

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

@@ -0,0 +1,97 @@
+require File.dirname(__FILE__) + '/../../../../../spec_helper'
+include OpenEHR::AM::Archetype::Ontology
+include OpenEHR::RM::DataTypes::Text
+
+describe ArchetypeOntology do
+  before(:each) do
+    items = {'text' => 'Archetype Concept', 'desc' => 'concept description'}
+    term1 = {'at0000' => ArchetypeTerm.new(:code => 'at0000', :items => items)}
+    items = {'text' => 'Blood pressure'}
+    term2 = {'at0001' => ArchetypeTerm.new(:code => 'at0001', :items => items)}
+    term3 = {'at0002' => ArchetypeTerm.new(:code => 'at0002', :items => items)}
+    term_definitions = {'ja' => (term1.update term2), 'en' => term1}
+    items = {'text' => 'test', 'description' => 'test item'}
+    term4 = {'ac0003' => ArchetypeTerm.new(:code => 'ac0003', :items => items)}
+    constraint_definitions = {'ja' => term4}
+    code_phrase = stub(CodePhrase, :code_string => '163020007')
+    bind = {'at0000' => code_phrase}
+    term_bindings = {'SNOMED-CT(2003)' => bind}
+    @archetype_ontology =
+      ArchetypeOntology.new(:primary_language => "ja",
+                            :languages_available => ['ja', 'en'],
+                            :terminologies_available => ['SNOMED-CT(2003)'],
+                            :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 'primary language is ja' do
+    @archetype_ontology.primary_language.should == 'ja'
+  end
+
+  it 'languages available are ja, en' do
+    @archetype_ontology.languages_available.should == ['ja', 'en']
+  end
+
+  it 'term_definition should be assigned properly' do
+    @archetype_ontology.term_definition(:lang => 'ja', :code => 'at0000').items['text'].should == 'Archetype Concept'
+  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_definition(:lang => 'ja', :code => 'ac0003').items['text'].
+      should == 'test'
+  end
+
+  it 'constrant_codes should return all ac codes' do
+    @archetype_ontology.constraint_codes.should == ['ac0003']
+  end
+
+  it 'term_bindings should be assigned properly' do
+    @archetype_ontology.term_bindings['SNOMED-CT(2003)']['at0000'].
+      code_string.should == '163020007'
+  end
+
+  it 'terminologies_available should return available terminology' do
+    @archetype_ontology.terminologies_available.should == ['SNOMED-CT(2003)']
+  end
+
+  it 'has language ja' do
+    @archetype_ontology.should have_language 'ja'
+  end
+
+  it 'has language en' do
+    @archetype_ontology.should have_language 'en'
+  end
+
+  it 'does not have language es' do
+    @archetype_ontology.should_not have_language 'es'
+  end
+
+  it 'has terminology SNOMED-CT(2003)' do
+    @archetype_ontology.should have_terminology 'SNOMED-CT(2003)'
+  end
+
+  it 'does not have MHLW code' do
+    @archetype_ontology.should_not have_terminology 'MHLW'
+  end
+
+  it 'term binding code_string is 163020007' do
+    @archetype_ontology.term_binding(:terminology => 'SNOMED-CT(2003)',
+                                     :code => 'at0000').code_string.
+      should == '163020007'
+  end
+end
+                            

data/spec/lib/openehr/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/openehr/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/openehr/am/openehr_profile/data_types/basic/c_dv_state_spec.rb

@@ -0,0 +1,34 @@
+# ticket 192
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+require 'openehr/am/openehr_profile/data_types/basic'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Basic
+include ::OpenEHR::AssumedLibraryTypes
+require 'set'
+
+describe CDvState do
+  before(:each) do
+    proposed_state = State.new(:name => 'PROPOSED')
+    complete_state = TerminalState.new(:name => 'COMPLETED')
+    finish = Transition.new(:event => 'finish', :next_state => complete_state)
+    transitions = Set[finish]
+    non_terminal_state = NonTerminalState.new(:name => 'IN_EXECUTION',
+                                              :transitions => transitions)
+    states = Set[proposed_state, non_terminal_state, complete_state]
+    state_machine = StateMachine.new(:states => states)
+    occurrences = Interval.new(:upper => 1, :lower => 1)
+    @c_dv_state = CDvState.new(:value => state_machine, :path => '/',
+                               :occurrences => occurrences)
+  end
+
+  it 'is an instance of StateMachine' do
+    @c_dv_state.should be_an_instance_of CDvState
+  end
+
+  it 'states size should be 3' do
+    @c_dv_state.value.states.size.should be 3
+  end
+
+  it 'raise error if value is nil' do
+    expect {@c_dv_state.value = nil}.to raise_error
+  end
+end