openehr 1.1.0

data/spec/lib/openehr/am/archetype/constraint_model/c_reference_object_spec.rb

@@ -0,0 +1,17 @@
+require File.dirname(__FILE__) + '/../../../../../spec_helper'
+include OpenEHR::AM::Archetype::ConstraintModel
+include OpenEHR::AssumedLibraryTypes
+
+describe CReferenceObject do
+  before(:each) do
+    occurrences = Interval.new(:lower => 0, :upper => 1)
+    @c_reference_object = CReferenceObject.new(:path => '/event/[at0001]/',
+                                               :rm_type_name => 'DV_TIME',
+                                               :node_id => 'ac0001',
+                                               :occurrences => occurrences)
+  end
+
+  it 'should be an instance of CReferenceObject' do
+    @c_reference_object.should be_an_instance_of CReferenceObject
+  end
+end

data/spec/lib/openehr/am/archetype/constraint_model/c_single_attribute_spec.rb

@@ -0,0 +1,22 @@
+require File.dirname(__FILE__) + '/../../../../../spec_helper'
+include OpenEHR::AM::Archetype::ConstraintModel
+include OpenEHR::AssumedLibraryTypes
+
+describe CSingleAttribute do
+  before(:each) do
+    existence = Interval.new(:upper =>0, :lower => 0) 
+    alternatives = stub(Array, :size => 5)
+    @c_single_attribute = CSingleAttribute.new(:path => '/event/at001',
+                                              :rm_attribute_name => 'DV_DATE',
+                                              :existence => existence,
+                                              :alternatives => alternatives)
+  end
+
+  it 'should be an instance of CSingleAttribute' do
+    @c_single_attribute.should be_an_instance_of CSingleAttribute
+  end
+
+  it 'alternative should be assigned properly' do
+    @c_single_attribute.alternatives.size.should be_equal 5
+  end
+end

data/spec/lib/openehr/am/archetype/constraint_model/cardinality_spec.rb

@@ -0,0 +1,68 @@
+require File.dirname(__FILE__) + '/../../../../../spec_helper'
+include OpenEHR::AM::Archetype::ConstraintModel
+include OpenEHR::AssumedLibraryTypes
+
+describe Cardinality do
+  before(:each) do
+    interval = Interval.new(:upper => 1, :lower => 0)
+    @cardinality = Cardinality.new(:is_ordered => true,
+                                   :is_unique => true,
+                                   :interval => interval)
+  end
+
+  it 'should be an instance of Cardinality' do
+    @cardinality.should be_an_instance_of Cardinality
+  end
+
+  it 'is_ordered should be assigned properly' do
+    @cardinality.should be_ordered
+  end
+
+  it 'is_ordered should be false' do
+    @cardinality.is_ordered = false
+    @cardinality.should_not be_ordered
+  end
+
+  it 'is_unique should be assigned properly' do
+    @cardinality.should be_unique
+  end
+
+  it 'is_unique should not be true' do
+    @cardinality.is_unique = false
+    @cardinality.should_not be_unique
+  end
+
+  it 'interval should be assigned properly' do
+    @cardinality.interval.upper.should be_equal 1
+  end
+
+  it 'is_set represent not ordered and unique' do
+    @cardinality.should_not be_set
+  end
+
+  it 'is_set should be true' do
+    @cardinality.is_unique = true
+    @cardinality.is_ordered = false
+    @cardinality.should be_set
+  end
+
+  it 'is_list represent ordered and not unique' do
+    @cardinality.is_ordered = true
+    @cardinality.is_unique = false
+    @cardinality.should be_list
+  end
+
+  it 'is_list should not be true' do
+    @cardinality.should_not be_list
+  end
+
+  it 'is_bag represent not ordered and not unique' do
+    @cardinality.is_ordered = false
+    @cardinality.is_unique = false
+    @cardinality.should be_bag
+  end
+
+  it 'is_bag? should not be true' do
+    @cardinality.should_not be_bag
+  end
+end

data/spec/lib/openehr/am/archetype/constraint_model/constraint_ref_spec.rb

@@ -0,0 +1,29 @@
+require File.dirname(__FILE__) + '/../../../../../spec_helper'
+include OpenEHR::AM::Archetype::ConstraintModel
+include OpenEHR::AssumedLibraryTypes
+
+describe ConstraintRef do
+  before(:each) do
+    occurrences = Interval.new(:lower => 0, :upper => 1)
+    @constraint_ref =
+      ConstraintRef.new(:path => '/event/[at0001]/',
+                        :rm_type_name => 'DV_TIME',
+                        :node_id => 'ac0001',
+                        :occurrences => occurrences,
+                        :reference => 'ac0002')
+  end
+
+  it 'should be an instance of ConstraintRef' do
+    @constraint_ref.should be_an_instance_of ConstraintRef
+  end
+
+  it 'reference should be assigned properly' do
+    @constraint_ref.reference.should == 'ac0002'
+  end
+
+  it 'should raise ArgumentError when reference is nil' do
+    lambda {
+      @constraint_ref.reference = nil
+    }.should raise_error ArgumentError
+  end
+end

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

@@ -0,0 +1,57 @@
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+include OpenEHR::AM::Archetype::ConstraintModel::Primitive
+include OpenEHR::RM::DataTypes::Basic
+
+describe CBoolean do
+  before(:each) do
+    default_value = DvBoolean.new(:value => true)
+    @c_boolean = CBoolean.new(:default_value => true,
+                              :type => 'Boolean',
+                              :true_valid => true,
+                              :false_valid => true)
+  end
+
+  it 'should be_an_instance_of CBoolean' do
+    @c_boolean.should be_an_instance_of CBoolean
+  end
+
+  it 'true_valid should be assigned properly' do
+    @c_boolean.should be_true_valid
+  end
+
+  it 'false_valid should be assigned properly' do
+    @c_boolean.should be_false_valid
+  end
+
+  it 'type should be DvBoolean' do
+    @c_boolean.type.should == 'Boolean'
+  end
+
+  it 'should raise ArgumentError when both true_valid and false_valid are false' do
+    lambda {
+      @c_boolean.true_valid = false
+      @c_boolean.false_valid = false
+    }.should raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentError if both false_valid and true_valid  are false' do
+    lambda {
+      @c_boolean.false_valid = false
+      @c_boolean.true_valid = false
+    }.should raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentError if default_value is false and false_valid is false' do
+    lambda {
+      @c_boolean.false_valid = false
+      @c_boolean.default_value = false
+    }.should raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentError if default_value is true and true_valid is false' do
+    lambda {
+      @c_boolean.true_valid = false
+      @c_boolean.default_value = true
+    }.should raise_error ArgumentError
+  end
+end

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

@@ -0,0 +1,52 @@
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+include OpenEHR::AM::Archetype
+include OpenEHR::AM::Archetype::ConstraintModel::Primitive
+include OpenEHR::RM::DataTypes::Quantity::DateTime
+
+describe CDate do
+  before(:all) do
+    default_value = DvDate.new(:value => '2010-01-18')
+    assumed_value = DvDate.new(:value => '2007-02-19')
+    range = Interval.new(:lower => DvDate.new(:value => '2001-01-01'),
+                         :upper => DvDate.new(:value => '2010-12-31'))
+    @c_date = CDate.new(:default_value => default_value,
+                        :assumed_value => assumed_value,
+                        :range => range)
+  end
+
+  it 'should be an instance of CDate' do
+    @c_date.should be_an_instance_of CDate
+  end
+
+  it 'range should be assigned properly' do
+    @c_date.range.upper.month.should be_equal 12
+  end
+
+  it 'validity_is_range should be true if range is assigned' do
+    @c_date.should be_validity_is_range
+  end
+
+  it 'raise ArgumentError unless range xor pattern' do
+    @c_date.range.should raise_error
+  end
+
+  describe 'pattern attribute' do
+    before(:all) do
+      @c_date = CDate.new(:pattern => 'yyyy-mm-dd')
+    end
+
+    it 'pattern should be yyyy-mm-dd' do
+      @c_date.pattern.should == 'yyyy-mm-dd'
+    end
+  end
+
+  describe 'list attribute' do
+    before(:all) do
+      @c_date = CDate.new(:list => [DvDate.new(:value => '2011-11-28')])
+    end
+
+    it 'head of list is 2011-11-28' do
+      @c_date.list[0].value.should == '2011-11-28'
+    end
+  end
+end

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

@@ -0,0 +1,136 @@
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+include OpenEHR::AM::Archetype
+include OpenEHR::AM::Archetype::ConstraintModel::Primitive
+include OpenEHR::RM::DataTypes::Quantity::DateTime
+
+describe CDateTime do
+  before(:each) do
+    default_value = DvDateTime.new(:value => '2010-01-25T01:23:45.1')
+    assumed_value = DvDateTime.new(:value => '2001-12-23T22:02:33.2')
+    range = Interval.new(:lower => DvDateTime.new(:value =>'1995-04-19T01:01:22'),
+                         :upper => DvDateTime.new(:value => '2022-12-31T23:55:59'))
+    @c_date_time =
+      CDateTime.new(:default_value => default_value,
+                    :assumed_value => assumed_value,
+                    :range => range,
+                    :month_validity => ValidityKind::MANDATORY,
+                    :day_validity => ValidityKind::MANDATORY,
+                    :hour_vaildity => ValidityKind::MANDATORY,
+                    :minute_validity => ValidityKind::MANDATORY,
+                    :second_validity => ValidityKind::OPTIONAL,
+                    :millisecond_validity => ValidityKind::DISALLOWED,
+                    :timezone_validity => ValidityKind::OPTIONAL)
+  end
+
+  it 'should be an instance of CDateTime' do
+    @c_date_time.should be_an_instance_of CDateTime
+  end
+
+  it 'type is ISO8601_DATE_TIME' do
+    @c_date_time.type.should == 'ISO8601_DATE_TIME'
+  end
+
+  it 'hour_validity should be assigned properly' do
+    @c_date_time.hour_validity.should be_equal ValidityKind::MANDATORY
+  end
+
+  it 'should raise ArgumentError if hour_validity is DISALLOWED and minute_validity is not DISALLOWED' do
+    lambda {
+      @c_date_time.hour_validity = ValidityKind::DISALLOWED
+    }.should raise_error ArgumentError
+  end
+
+  it 'range is properly assigned, lower value is 1995-04-19T01:01:22' do
+    @c_date_time.range.lower.value.should == '1995-04-19T01:01:22'
+  end
+
+
+  it 'should not raise ArgumentError if hour_validity is DISALLOWED and minute_validity is DISALLOWED' do
+    @c_date_time.second_validity = ValidityKind::DISALLOWED
+    @c_date_time.minute_validity = ValidityKind::DISALLOWED
+    lambda {
+      @c_date_time.hour_validity = ValidityKind::DISALLOWED
+    }.should_not raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentError if hour_validity is OPTIONAL and minute_validity is MANDATORY' do
+    lambda {
+      @c_date_time.hour_validity = ValidityKind::OPTIONAL
+    }.should raise_error ArgumentError
+  end
+
+  it 'should not raise ArgumentError if hour_validity is OPTIONAL and minute_validity is OPTIONAL' do
+    @c_date_time.minute_validity = ValidityKind::OPTIONAL
+    lambda {
+      @c_date_time.hour_validity = ValidityKind::OPTIONAL
+    }.should_not raise_error ArgumentError
+  end
+
+  it 'should not raise Argument Error if hour_validity is OPTIONAL and minute_validity is DISALLOWED' do
+    @c_date_time.second_validity = ValidityKind::DISALLOWED
+    @c_date_time.minute_validity = ValidityKind::DISALLOWED
+    lambda {
+      @c_date_time.hour_validity = ValidityKind::OPTIONAL
+    }.should_not raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentError if day_validity is DISALLOWED and hour_validity is not DISALLOWED' do
+    lambda {
+      @c_date_time.day_validity = ValidityKind::DISALLOWED
+    }.should raise_error ArgumentError
+  end
+
+  it 'should not raise ArgumentError if day_validity is DISALLOWED and hour_validity is DISALLOWED' do
+    @c_date_time.second_validity = ValidityKind::DISALLOWED
+    @c_date_time.minute_validity = ValidityKind::DISALLOWED
+    @c_date_time.hour_validity = ValidityKind::DISALLOWED
+    lambda {
+      @c_date_time.day_validity = ValidityKind::DISALLOWED
+    }.should_not raise_error ArgumentError
+  end
+
+  it 'should raise ArgumentError if day_validity is OPTIONAL and hour_validity is MANDATORY' do
+    lambda {
+      @c_date_time.day_validity = ValidityKind::OPTIONAL
+    }.should raise_error ArgumentError
+  end
+
+  it 'should not raise ArgumentError if day_validity OPTIONAL and hour_validity is OPTIONAL' do
+    @c_date_time.second_validity = ValidityKind::DISALLOWED
+    @c_date_time.minute_validity = ValidityKind::DISALLOWED
+    @c_date_time.hour_validity = ValidityKind::OPTIONAL
+    lambda {
+      @c_date_time.day_validity = ValidityKind::OPTIONAL
+    }.should_not raise_error ArgumentError
+  end
+
+  it 'should not raise ArgumentError if day_validity OPTIONAL and hour_validity is DISALLOWED' do
+    @c_date_time.second_validity = ValidityKind::DISALLOWED
+    @c_date_time.minute_validity = ValidityKind::DISALLOWED
+    @c_date_time.hour_validity = ValidityKind::DISALLOWED
+    lambda {
+      @c_date_time.day_validity = ValidityKind::OPTIONAL
+    }.should_not raise_error ArgumentError
+  end
+
+  describe 'pattern constraint' do
+    before(:all) do
+      @c_date_timep = CDateTime.new(:pattern => 'yyyy-mm-dd hh:mm:ss')
+    end
+
+    it 'pattern is yyyy-mm-dd hh:mm:ss' do
+      @c_date_timep.pattern.should == 'yyyy-mm-dd hh:mm:ss'
+    end
+  end
+
+  describe 'list constraint' do
+    before(:all) do
+      @c_date_timel = CDateTime.new(:list =>
+                [DvDateTime.new(:value => '2010-01-25T01:23:45.1')])
+    end
+
+    it 'first item of list is 2010-01-25T01:23:45.1' do
+      @c_date_timel.list[0].value.should == '2010-01-25T01:23:45.1'
+    end
+  end
+end

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

@@ -0,0 +1,41 @@
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+include OpenEHR::RM::DataTypes::Quantity::DateTime
+include OpenEHR::AssumedLibraryTypes
+include OpenEHR::AM::Archetype::ConstraintModel::Primitive
+
+describe CDuration do
+  before(:all) do
+    assumed_value = DvDuration.new(:value => 'P2Y')
+    default_value = DvDuration.new(:value => 'P3M')
+    range = Interval.new(:upper => assumed_value, :lower => default_value)
+    @c_duration = CDuration.new(:assumed_value => assumed_value,
+                                :default_value => default_value,
+                                :range => range)
+  end
+
+  it 'should be an instance of CDuration' do
+    @c_duration.should be_an_instance_of CDuration
+  end
+
+  it 'type is ISO8601_DURATION' do
+    @c_duration.type.should == 'ISO8601_DURATION'
+  end
+
+  it 'upper range is 2 years' do
+    @c_duration.range.upper.value.should == 'P2Y'
+  end
+
+  it 'lower range is 3 months year' do
+    @c_duration.range.lower.value.should == 'P3M'
+  end
+
+  context 'list constraint' do
+    before(:all) do
+      @c_duration = CDuration.new(:list => [DvDuration.new(:value => 'PT0s')])
+    end
+
+    it '1st item of the list value is PT0s' do
+      @c_duration.list[0].value.should == 'PT0s'
+    end
+  end
+end

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

@@ -0,0 +1,67 @@
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+include OpenEHR::AM::Archetype::ConstraintModel::Primitive
+include OpenEHR::AssumedLibraryTypes
+
+describe CInteger do
+  before(:each) do
+    @c_integer = CInteger.new(:default_value => 3,
+                              :assumed_value => 2,
+                              :type => 'Integer',
+                              :list => [1,2])
+  end
+
+  it 'should be an instance of CInteger' do
+    @c_integer.should be_an_instance_of CInteger
+  end
+
+  it 'type is DvInteger' do
+    @c_integer.type.should == 'Integer'
+  end
+
+  it 'should raise ArgumentError if both range and list are nil' do
+    lambda {
+      @c_integer.list = nil
+    }.should raise_error ArgumentError
+  end
+
+  describe 'list method' do
+    it 'constructor should assign list properly' do
+      @c_integer.list.should == [1,2]
+    end
+
+    it 'list method should re-assign properly' do
+      @c_integer.list = [2,3]
+      @c_integer.list.should == [2,3]
+    end
+
+    it 'should be raise ArgumentError if both list and range are not nil' do
+      lambda {
+        @c_integer.range = Interval.new(:lower => 1,:upper =>3)
+      }.should raise_error ArgumentError
+    end
+  end
+
+  describe 'range mathod' do
+    before(:each) do
+      @c_integer =
+        CInteger.new(:default_value => 2,
+                     :assumed_value => 3,
+                     :range => Interval.new(:lower => 0, :upper => 5))
+    end
+
+    it 'constructor should assign range properly' do
+      @c_integer.range.lower.should be_equal 0
+    end
+
+    it 'range method should re-assigne properly' do
+      @c_integer.range = Interval.new(:lower => 20)
+      @c_integer.range.lower.should be_equal 20
+    end
+
+    it 'should raise ArgumentError if bhot range and list are not nil' do
+      lambda {
+        @c_integer.list = [10,100]
+      }.should raise_error ArgumentError
+    end
+  end
+end