open_ehr 0.9.5 → 1.0.0

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

@@ -0,0 +1,62 @@
+# ticket 197
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+require 'open_ehr/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/open_ehr/am/openehr_profile/data_types/quantity/c_dv_ordinal_spec.rb

@@ -0,0 +1,41 @@
+require File.dirname(__FILE__) + '/../../../../../../spec_helper'
+require 'open_ehr/am/openehr_profile/data_types/quantity'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Quantity
+require 'open_ehr/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/open_ehr/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/open_ehr/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/open_ehr/am/openehr_profile/data_types/text/c_code_phrase_spec.rb

@@ -1,5 +1,4 @@
 require File.dirname(__FILE__) + '/../../../../../../spec_helper'
-
 include ::OpenEHR::RM::DataTypes::Text
 include ::OpenEHR::AssumedLibraryTypes
 include ::OpenEHR::RM::Support::Identification

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

@@ -51,6 +51,11 @@ describe Interval 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

data/spec/lib/open_ehr/parser/adl14/adl-test-composition.dv_coded_text.test.adl

@@ -1,5 +1,5 @@
 archetype (adl_version=1.4)
-	openEHR-EHR-COMPOSITION.dv_coded_text.test
+	openEHR-EHR-COMPOSITION.dv_coded_text.v1
 
 concept
 	[at0000]	-- Problem list

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.archetype_desc_missing_purpose.test.adl

@@ -1,5 +1,5 @@
 archetype 
-	adl-test-ENTRY.archetype_description_missing_purpose.draft
+	adl-test-ENTRY.archetype_description_missing_purpose.v1
 	
 concept 
 	[at0000]	--  test

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.c_dv_ordinal.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.c_dv_ordinal.test
+	adl-test-ENTRY.c_dv_ordinal.v1
 
 concept
 	[at0000]

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.c_dv_quantity_empty.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.c_dv_quantity_empty.test
+	adl-test-ENTRY.c_dv_quantity_empty.v1
 
 concept
 	[at0000]

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.c_dv_quantity_full.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.c_dv_quantity.test
+	adl-test-ENTRY.c_dv_quantity.v1
 
 concept
 	[at0000]

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.c_dv_quantity_full2.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.c_dv_quantity.test
+	adl-test-ENTRY.c_dv_quantity.v1
 
 concept
 	[at0000]

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.c_dv_quantity_full3.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.c_dv_quantity.test
+	adl-test-ENTRY.c_dv_quantity.v1
 
 concept
 	[at0000]

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.c_dv_quantity_item_units_only.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.c_dv_quantity.test
+	adl-test-ENTRY.c_dv_quantity.v1
 
 concept
 	[at0000]

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.c_dv_quantity_list.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.c_dv_quantity.test
+	adl-test-ENTRY.c_dv_quantity.v1
 
 concept
 	[at0000]

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.c_dv_quantity_property.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.c_dv_quantity.test
+	adl-test-ENTRY.c_dv_quantity.v1
 
 concept
 	[at0000]

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.c_dv_quantity_reversed.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.c_dv_quantity.test
+	adl-test-ENTRY.c_dv_quantity.v1
 
 concept
 	[at0000]

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.constraint_binding.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.constraint_binding.draft
+	adl-test-ENTRY.constraint_binding.v1
 concept
 	[at0000]	--  empty definition test
 

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.constraint_ref.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.c_code_phrase.test
+	adl-test-ENTRY.c_code_phrase.v1
 
 concept
 	[at0000]

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.empty_other_contributors.test.adl

@@ -1,5 +1,5 @@
 archetype 
-	adl-test-ENTRY.empty_other_contributors.draft
+	adl-test-ENTRY.empty_other_contributors.v1
 	
 concept 
 	[at0000]	--  test

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.missing_language.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.missing_language.draft
+	adl-test-ENTRY.missing_language.v1
 
 concept 
 	[at0000]	--  testing missing language compatibility

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.mixed_node_types.draft.adl

@@ -1,5 +1,5 @@
 archetype (adl_version=1.4)
-	adl-test-OUTER.mixed_types.draft
+	adl-test-OUTER.mixed_types.v1
 
 concept
 	[at0000]	-- outer object

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.most_minimal.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.most_minimal.draft
+	adl-test-ENTRY.most_minimal.v1
 
 concept 
 	[at0000]	--  empty definition test

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.multi_language.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.multi-language.draft
+	adl-test-ENTRY.multi-language.v1
 concept
 	[at0000]	--  empty definition test
 

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.special_string.test.adl

@@ -1,5 +1,5 @@
 archetype 	
-	adl-test-ENTRY.test.draft
+	adl-test-ENTRY.test.v1
 
 concept 
 	[at0000]	--  basic data types test 1

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.structure_test1.test.adl

@@ -1,5 +1,5 @@
 archetype 	
-	adl-test-ENTRY.structure_test1.draft
+	adl-test-ENTRY.structure_test1.v1
 concept 
 	[at0000]	--  structure test 1
 language

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.structure_test2.test.adl

@@ -1,5 +1,5 @@
 archetype 	
-	adl-test-ENTRY.structure_test1.draft
+	adl-test-ENTRY.structure_test1.v1
 concept 
 	[at0000]	--  structure test 1
 language

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.term_binding.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.term_binding.draft
+	adl-test-ENTRY.term_binding.v1
 concept
 	[at0000]	--  empty definition test
 language

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.term_binding2.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.term_binding.draft
+	adl-test-ENTRY.term_binding.v1
 concept
 	[at0000]	--  path-based binding test
 language

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.unicode_BOM_support.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.unicode_BOM_support.draft
+	adl-test-ENTRY.unicode_BOM_support.v1
 concept 
 	[at0000]	--  empty definition test
 language

data/spec/lib/open_ehr/parser/adl14/adl-test-entry.unicode_support.test.adl

@@ -1,5 +1,5 @@
 archetype
-	adl-test-ENTRY.unicode_support.draft
+	adl-test-ENTRY.unicode_support.v1
 concept 
 	[at0000]	--  empty definition test
 language

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

@@ -78,11 +78,11 @@ describe ADLParser do
         end
 
         it 'terminology id is SNOMED-CT' do
-          @term.terminology_id.value.should == 'SNOMED-CT'
+          @term[0].terminology_id.value.should == 'SNOMED-CT'
         end
 
         it 'code_string is 123456' do
-          @term.code_string.should == '123456'
+          @term[0].code_string.should == '123456'
         end
       end
     end
@@ -90,7 +90,7 @@ describe ADLParser do
     context 'constraint bindings' do
       it 'terminology SNOMED-CT, constraint code is ac0001' do
         @ontology.constraint_binding(:terminology => 'SNOMED-CT',
-                                     :code => 'ac0001').should ==
+                                     :code => 'ac0001').value.should ==
           'http://openEHR.org/testconstraintbinding'
       end
     end

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

@@ -0,0 +1,34 @@
+# ticket 174
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+require 'open_ehr/am/openehr_profile/data_types/quantity'
+include ::OpenEHR::AM::OpenEHRProfile::DataTypes::Quantity
+require 'open_ehr/rm/data_types/quantity'
+include ::OpenEHR::RM::DataTypes::Quantity
+
+describe 'CDvQuantity empty' do
+  before(:all) do
+    archetype = adl14_archetype('adl-test-entry.c_dv_quantity_empty.test.adl')
+    @c_dv_quantity = archetype.definition.attributes[0].children[0].attributes[0].children[0].attributes[0].children[0]
+  end
+
+  it 'is an instance of CDvQuantity' do
+    @c_dv_quantity.should be_an_instance_of CDvQuantity
+  end
+
+  it 'list is nil' do
+    @c_dv_quantity.list.should be_nil
+  end
+
+  it 'property is nil' do
+    @c_dv_quantity.property.should be_nil
+  end
+
+  it 'assumed value is nil' do
+    @c_dv_quantity.assumed_value.should be_nil
+  end
+
+  it 'is any allowed' do
+    @c_dv_quantity.should be_any_allowed
+  end
+end