openehr 1.1.0

data/spec/lib/openehr/am/openehr_profile/data_types/basic/non_terminal_state_spec.rb

@@ -0,0 +1,36 @@
+# ticket 195
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+require 'openehr/am/openehr_profile/data_types/basic'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Basic
+require 'set'
+
+describe NonTerminalState 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)
+  end
+
+  it 'is an instance of NonTerminalState' do
+    @non_terminal_state.should be_an_instance_of NonTerminalState
+  end
+
+  it 'name is IN_EXECUTION' do
+    @non_terminal_state.name.should == 'IN_EXECUTION'
+  end
+
+  it 'size of transitions is 2' do
+    @non_terminal_state.transitions.size.should == 1
+  end
+
+  it 'raise error if traisitions is empty' do
+    expect {@non_terminal_state.transitions = Set.new}.to raise_error
+  end
+
+  it 'raise error if transitions is nil' do
+    expect {@non_terminal_state.transitions = nil}.to raise_error
+  end
+end

data/spec/lib/openehr/am/openehr_profile/data_types/basic/state_machine_spec.rb

@@ -0,0 +1,34 @@
+# ticket 193
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+require 'openehr/am/openehr_profile/data_types/basic'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Basic
+require 'set'
+
+describe StateMachine 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)
+  end
+
+  it 'is an instance of StateMachine' do
+    @state_machine.should be_an_instance_of StateMachine
+  end
+
+  it 'states size is 3' do
+    @state_machine.states.size.should be 3
+  end
+
+  it 'raise error if states are nil' do
+    expect {@state_machine.states = nil}.to raise_error
+  end
+
+  it 'raise error if states is empty' do
+    expect {@state_machine.states = Set.new}.to raise_error
+  end
+end

data/spec/lib/openehr/am/openehr_profile/data_types/basic/state_spec.rb

@@ -0,0 +1,26 @@
+# ticket 191
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+require 'openehr/am/openehr_profile/data_types/basic'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Basic
+
+describe State do
+  before(:all) do
+    @state = State.new(:name => 'PROPOSED')
+  end
+
+  it 'is an instance of State' do
+    @state.should be_an_instance_of State
+  end
+
+  it 'name is PROPOSED' do
+    @state.name.should == 'PROPOSED'
+  end
+
+  it 'raise error name is empty' do
+    expect {@state.name = ''}.to raise_error
+  end
+
+  it 'raise error name is nil' do
+    expect {@state.name = nil}.to raise_error
+  end
+end

data/spec/lib/openehr/am/openehr_profile/data_types/basic/terminal_state_spec.rb

@@ -0,0 +1,18 @@
+# ticket 196
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+require 'openehr/am/openehr_profile/data_types/basic'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Basic
+
+describe TerminalState do
+  before(:all) do
+    @terminal_state = TerminalState.new(:name => 'PROPOSED')
+  end
+
+  it 'is an instance of TerminalState' do
+    @terminal_state.should be_an_instance_of TerminalState
+  end
+
+  it 'name is PROPOSED' do
+    @terminal_state.name.should == 'PROPOSED'
+  end
+end

data/spec/lib/openehr/am/openehr_profile/data_types/basic/transition_spec.rb

@@ -0,0 +1,62 @@
+# ticket 197
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+require 'openehr/am/openehr_profile/data_types/basic'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Basic
+
+describe Transition do
+  before(:each) do
+    next_state = State.new(:name => 'IN_EXECUTION')
+    @transition = Transition.new(:event => 'start',
+                                 :guard => 'PROPOSED',
+                                 :action => 'order',
+                                 :next_state => next_state)
+  end
+
+  it 'is an instance of TerminalState' do
+    @transition.should be_an_instance_of Transition
+  end
+
+  it 'event start' do
+    @transition.event.should == 'start'
+  end
+
+  it 'guard is PROPOSED' do
+    @transition.guard.should == 'PROPOSED'
+  end
+
+  it 'action is order' do
+    @transition.action.should == 'order'
+  end
+
+  it 'next state is named IN_EXECUTION' do
+    @transition.next_state.name.should == 'IN_EXECUTION'
+  end
+
+  it 'raise error if event is nil' do
+    expect {@transition.event = nil}.to raise_error
+  end
+
+  it 'raise error if event is empty' do
+    expect {@transition.event = ''}.to raise_error
+  end
+
+  it 'does not raise error if guard is nil' do
+    expect {@transition.guard = nil}.to_not raise_error
+  end
+
+  it 'raise error if action is empty' do
+    expect {@transition.guard = ''}.to raise_error
+  end
+
+  it 'does not raise error if action is nil' do
+    expect {@transition.action = nil}.to_not raise_error
+  end
+
+  it 'raise error if action is empty' do
+    expect {@transition.action = ''}.to raise_error
+  end
+
+  it 'raise error if next_state is nil' do
+    expect {@transition.next_state = nil}.to raise_error
+  end
+end

data/spec/lib/openehr/am/openehr_profile/data_types/quantity/c_dv_ordinal_spec.rb

@@ -0,0 +1,41 @@
+require File.dirname(__FILE__) + '/../../../../../../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
+include ::OpenEHR::RM::DataTypes::Text
+include OpenEHR::AssumedLibraryTypes
+
+describe CDvOrdinal do
+  before(:each) do
+    occurrences = Interval.new(:upper => 1, :lower => 1)
+    symbol = stub(DvCodedText, :code_string => 'AML')
+    list = [DvOrdinal.new(:value => 1,:symbol => symbol)]
+    @c_dv_ordinal = CDvOrdinal.new(:list => list,
+                                   :path => 'value/ordinal',
+                                   :occurrences => occurrences,
+                                   :rm_type_name => 'DvOrdinal')
+
+  end
+
+  it 'is an instance of CDvOrdinal' do
+    @c_dv_ordinal.should be_an_instance_of CDvOrdinal
+  end
+
+  it 'inherits DvDomain class, path is value/ordinal' do
+    @c_dv_ordinal.path.should == 'value/ordinal'
+  end
+
+  it '1st of list valie is 1' do
+    @c_dv_ordinal.list[0].value.should == 1
+  end
+
+  it 'symbol code string is AML' do
+    @c_dv_ordinal.list[0].symbol.code_string.should == 'AML'
+  end
+
+  it 'list is empty then any_allowed is true' do
+    @c_dv_ordinal.list = nil
+    @c_dv_ordinal.should be_any_allowed
+  end
+end

data/spec/lib/openehr/am/openehr_profile/data_types/quantity/c_dv_quantity_spec.rb

@@ -0,0 +1,50 @@
+# ticket 199
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Quantity
+include ::OpenEHR::RM::DataTypes::Text
+include OpenEHR::AssumedLibraryTypes
+
+describe CDvQuantity do
+  before(:each) do
+    occurrences = Interval.new(:upper => 1, :lower => 1)
+    property = stub(CodePhrase, :code_string => 'AML')
+    list = [CQuantityItem.new(:magnitude => 10, :units => 'mg')]
+    @c_dv_quantity = CDvQuantity.new(:list => list,
+                                     :path => 'value/quantity',
+                                     :property => property,
+                                     :occurrences => occurrences,
+                                     :rm_type_name => 'DvQuantity')
+
+  end
+
+  it 'is an instance of CDvQuantity' do
+    @c_dv_quantity.should be_an_instance_of CDvQuantity
+  end
+
+  it 'path is value/quantity' do
+    @c_dv_quantity.path.should == 'value/quantity'
+  end
+
+  it 'property code string is AML' do
+    @c_dv_quantity.property.code_string.should == 'AML'
+  end
+
+  it 'first item of list is 10mg' do
+    @c_dv_quantity.list[0].magnitude.should be 10
+  end
+
+  it 'is not any allowed' do
+    @c_dv_quantity.should_not be_any_allowed
+  end
+
+  context 'list and property are not assigned' do
+    before(:each) do
+      @c_dv_quantity.list = nil
+      @c_dv_quantity.property = nil
+    end
+
+    it 'is any allowed' do
+      @c_dv_quantity.should be_any_allowed
+    end
+  end
+end

data/spec/lib/openehr/am/openehr_profile/data_types/quantity/c_quantity_item_spec.rb

@@ -0,0 +1,46 @@
+# ticket 203
+include OpenEHR::AssumedLibraryTypes
+include OpenEHR::AM::OpenEHRProfile::DataTypes::Quantity
+
+describe CQuantityItem do
+  before(:each) do
+    magnitude = Interval.new(:upper => 100, :lower => 0)
+    precision = Interval.new(:upper => 10, :lower => 2)
+    @c_quantity_item = CQuantityItem.new(:units => 'mg',
+                                         :magnitude => magnitude,
+                                         :precision => precision)
+  end
+
+  it 'is an instance of CQuantityItem' do
+    @c_quantity_item.should be_an_instance_of CQuantityItem
+  end
+
+  it 'magnitude upper is 100' do
+    @c_quantity_item.magnitude.upper.should be 100
+  end
+
+  it 'precision lower is -2' do
+    @c_quantity_item.precision.lower.should be 2
+  end
+
+  it 'units is not nil' do
+    expect {@c_quantity_item.units = nil}.to raise_error
+  end
+
+  it 'units is not be empty' do
+    expect {@c_quantity_item.units = ''}.to raise_error
+  end
+
+  it 'is not precision unconstrained' do
+    @c_quantity_item.should_not be_precision_unconstrained
+  end
+  context 'precision unconstrained' do
+    before(:each) do
+      @c_quantity_item.precision = Interval.new(:upper => -1, :lower => -1)
+    end
+
+    it 'precision unconstrained is true' do
+      @c_quantity_item.should be_precision_unconstrained
+    end
+  end
+end

data/spec/lib/openehr/am/openehr_profile/data_types/text/c_code_phrase_spec.rb

@@ -0,0 +1,34 @@
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+include ::OpenEHR::RM::DataTypes::Text
+include ::OpenEHR::AssumedLibraryTypes
+include ::OpenEHR::RM::Support::Identification
+require 'openehr/am/openehr_profile/data_types/text'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Text
+
+describe CCodePhrase do
+  before(:all) do
+    term_id = TerminologyID.new(:value => 'ICD10')
+    occurrences = Interval.new(:upper => 1)
+    @c_code_phrase  = CCodePhrase.new(:terminology_id => term_id,
+                                      :code_list => ['C92', 'C93'],
+                                      :path => 'value/text',
+                                      :occurrences => occurrences,
+                                      :rm_type_name => 'CodePhrase')
+  end
+
+  it 'is an instance of CCodePhrase' do
+    @c_code_phrase.should be_an_instance_of CCodePhrase
+  end
+
+  it 'terminology_id is ICD10' do
+    @c_code_phrase.terminology_id.value.should == 'ICD10'
+  end
+
+  it 'code_list is C92, C93' do
+    @c_code_phrase.code_list.should == ['C92', 'C93']
+  end
+
+  it 'occurrences upper is 1' do
+    @c_code_phrase.occurrences.upper.should be 1
+  end
+end

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

@@ -0,0 +1,145 @@
+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
+
+  it 'should be equal lower and upper is same' do
+    interval = Interval.new(:upper => 10, :lower => 1)
+    @interval.should == interval
+  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
+