open_ehr 0.6.1 → 0.9.0

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

@@ -6,6 +6,7 @@ describe CString do
   before(:each) do
     @default_value = DvText.new(:value => 'default')
     @c_string = CString.new(:default_value => @default_value,
+                            :type => 'Boolean',
                             :assumed_value => 'assumed',
                             :pattern => 't[a-z]st')
   end
@@ -14,6 +15,10 @@ describe CString do
     @c_string.should be_an_instance_of CString
   end
 
+  it 'type is DvText' do
+    @c_string.type.should == 'Boolean'
+  end
+
   it 'default should be assigned properly' do
     @c_string.default_value.value.should == 'default'
   end

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

@@ -11,6 +11,7 @@ describe CTime do
                          :upper => ISO8601Time.new('23:55:59'))
     @c_time = CTime.new(:default_value => default_value,
                         :assumed_value => assumed_value,
+                        :type => 'Boolean',
                         :range => range,
                         :minute_validity => ValidityKind::MANDATORY,
                         :second_validity => ValidityKind::OPTIONAL,
@@ -21,6 +22,10 @@ describe CTime do
     @c_time.should be_an_instance_of CTime
   end
 
+  it 'type is DvTime' do
+    @c_time.type.should == 'Boolean'
+  end
+
   it 'minute_validity should be assigned' do
     @c_time.minute_validity.should be_equal ValidityKind::MANDATORY
   end

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

@@ -4,12 +4,12 @@ include OpenEHR::RM::DataTypes::Text
 
 describe ArchetypeOntology do
   before(:each) do
-    items = {'TEXT' => 'text', 'DESC' => 'description'}
+    items = {:text => 'Archetype Concept', :desc => 'concept description'}
     term1 = ArchetypeTerm.new(:code => 'at0000', :items => items)
-    items = {'TEXT' => 'concept'}
+    items = {:text => 'Blood pressure'}
     term2 = ArchetypeTerm.new(:code => 'at0001', :items => items)
-    term_definitions = {'ja' => [term1, term2]}
-    items = {'text' => 'test', 'description' => 'test item'}
+    term_definitions = {'ja' => [term1, term2], 'en' => [term1]}
+    items = {:text => 'test', :description => 'test item'}
     term3 = ArchetypeTerm.new(:code => 'ac0000', :items => items)
     constraint_definitions = {'ja' => [term3]}
     code_phrase = stub(CodePhrase, :code_string => '163020007')
@@ -30,8 +30,8 @@ describe ArchetypeOntology 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'
+  it 'term_definition should be assigned properly' do
+    @archetype_ontology.term_definition(:lang => 'ja', :code => 'at0000')[:text].should == 'Archetype Concept'
   end
 
   it 'term_codes should returnd all at codes' do
@@ -39,7 +39,7 @@ describe ArchetypeOntology do
   end
 
   it 'constraint_definitions should be assigned properly' do
-    @archetype_ontology.constraint_definitions['ja'][0].items['text'].
+    @archetype_ontology.constraint_definition(:lang => 'ja', :code => 'ac0000')[:text].
       should == 'test'
   end
 
@@ -55,5 +55,25 @@ describe ArchetypeOntology do
   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
 end
                             

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

@@ -3,7 +3,7 @@ include OpenEHR::AM::Archetype::Ontology
 
 describe ArchetypeTerm do
   before(:each) do
-    items = {'TEXT' => 'text', 'DESC' => 'description'}
+    items = {:text => 'text', :desc => 'description'}
     @archetype_term = ArchetypeTerm.new(:code => 'at0001',
                                         :items => items)
   end
@@ -29,11 +29,11 @@ describe ArchetypeTerm do
   end
 
   it 'items should be assigned properly' do
-    @archetype_term.items['TEXT'].should == 'text'
+    @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']
+    @archetype_term.keys.should == Set[:text, :desc]
   end
 
   it 'keys should be empty if items are nil' do

data/spec/lib/open_ehr/parser/adl/adl-test-ENTRY.assumed_types.v1.adl

@@ -0,0 +1,88 @@
+archetype (adl_version=1.4)
+	adl-test-ENTRY.assumed_types.v1
+
+concept
+	[at0000]	-- test entry
+language
+	original_language = <[ISO_639-1::en]>
+description
+	original_author = <
+		["name"] = <"Thomas Beale">
+	>
+	details = <
+		["en"] = <
+			language = <[ISO_639-1::en]>
+			purpose = <"test assumed types">
+			keywords = <"ADL", "assumed types", "test">
+			copyright = <"copyright (c) 2004 The openEHR Foundation">
+		>
+	>
+	lifecycle_state = <"draft">
+
+definition
+	ENTRY[at0000] matches {	-- test entry
+		string_attr1 matches {"something", "something else"; "something else"}
+		string_attr2 matches {/this|that|something else/; "this"}
+		string_attr3 matches {/cardio.*/; "cardiology examination"}
+		boolean_attr1 matches {True}
+		boolean_attr2 matches {False}
+		boolean_attr3 matches {True, False; True}
+		integer_attr1 matches {|55|}
+		integer_attr2 matches {10, 20, 30; 10}
+		integer_attr3 matches {|0..100|; 10}
+		integer_attr4 matches {|>10|; 11}
+		integer_attr5 matches {|<10|; 9}
+		integer_attr6 matches {|>=10|; 10}
+		integer_attr7 matches {|<=10|; 5}
+		integer_attr8 matches {|-10..-5|; -8}
+		integer_attr9 matches {|10|}
+		real_attr1 matches {|100.0|}
+		real_attr2 matches {10.0, 20.0, 30.0; 20.0}
+		real_attr3 matches {|0.0..100.0|; 20.4}
+		real_attr4 matches {|>=10.0|; 20.0}
+		real_attr5 matches {|<=10.0|; 9.5}
+		real_attr6 matches {|>=10.0|; 20.3}
+		real_attr7 matches {|<=10.0|; 8.0}
+		real_attr8 matches {|-10.0..-5.0|; -9.8}
+		real_attr9 matches {|10.0|}
+		date_attr1 matches {yyyy-mm-dd; 1995-03-17}
+		date_attr2 matches {yyyy-??-??; 1995-03-17}
+		date_attr3 matches {yyyy-mm-??; 1995-03-17}
+		date_attr4 matches {yyyy-??-XX; 1995-03}
+		date_attr5 matches {|1983-12-25|}
+		date_attr6 matches {|2000-01-01|}
+		time_attr1 matches {hh:mm:ss; 12:01:30}
+		time_attr2 matches {hh:mm:XX; 12:01}
+		time_attr3 matches {hh:??:XX; 12:00}
+		time_attr4 matches {hh:??:??; 12:00}
+		time_attr5 matches {|22:00:05,0|}
+		time_attr6 matches {|00:00:59,0|}
+		time_attr7 matches {|00:00:59,0|}
+		date_time_attr1 matches {yyyy-mm-ddThh:mm:ss; 1995-03-17T12:01:30}
+		date_time_attr2 matches {yyyy-mm-ddThh:mm:??; 1995-03-17T12:01}
+		date_time_attr3 matches {yyyy-mm-ddThh:mm:XX; 1995-03-17T12:01}
+		date_time_attr4 matches {yyyy-mm-ddThh:??:XX; 1995-03-17T12:01}
+		date_time_attr5 matches {yyyy-??-??T??:??:??; 1995-03-17T12:01}
+		date_time_attr6 matches {|1983-12-25T22:00:05,0|}
+		date_time_attr7 matches {|2000-01-01T00:00:59,0|}
+		date_time_attr8 matches {|2000-01-01T00:00:59,0|}
+		duration_attr1 matches {|PT0S|}
+		duration_attr2 matches {|P1D|}
+		duration_attr3 matches {|PT2H5M|}
+		duration_attr4 matches {|PT1H55M|}
+		duration_attr5 matches {|<=PT1H|; PT30M}
+		duration_attr6 matches {|PT1H30M|}
+	}
+
+ontology
+	terminologies_available = <"adl_test", ...>
+	term_definitions = <
+		["en"] = <
+			items = <
+				["at0000"] = <
+					description = <"test entry">
+					text = <"test entry">
+				>
+			>
+		>
+	>

data/spec/lib/open_ehr/parser/adl/adl-test-ENTRY.basic_types.v1.adl

@@ -0,0 +1,143 @@
+archetype (adl_version=1.4)
+	adl-test-ENTRY.basic_types.v1
+
+concept
+	[at0000]	-- test entry
+language
+	original_language = <[ISO_639-1::en]>
+description
+	original_author = <
+		["name"] = <"Thomas Beale">
+	>
+	details = <
+		["en"] = <
+			language = <[ISO_639-1::en]>
+			purpose = <"test structure">
+			keywords = <"ADL", "test">
+			copyright = <"copyright (c) 2004 The openEHR Foundation">
+		>
+	>
+	lifecycle_state = <"draft">
+
+definition
+	ENTRY[at0000] matches {	-- test entry
+		string_attr1 matches {"something"}
+		string_attr2 matches {/this|that|something else/}
+		string_attr3 matches {/cardio.*/}
+		string_attr4 matches {*}
+		string_attr5 matches {"and", "something", "else"}
+		boolean_attr1 matches {True}
+		boolean_attr2 matches {False}
+		boolean_attr3 matches {True, False}
+		boolean_attr4 matches {*}
+		integer_attr1 matches {|55|}
+		integer_attr2 matches {10, 20, 30}
+		integer_attr3 matches {|0..100|}
+		integer_attr3a matches {|>0..100|}
+		integer_attr3b matches {|0..<100|}
+		integer_attr3c matches {|>0..<100|}
+		integer_attr4 matches {|>10|}
+		integer_attr5 matches {|<10|}
+		integer_attr6 matches {|>=10|}
+		integer_attr7 matches {|<=10|}
+		integer_attr8 matches {|-10..-5|}
+		integer_attr9 matches {|10|}
+		integer_attr10 matches {*}
+		real_attr1 matches {|100.0|}
+		real_attr2 matches {10.0, 20.0, 30.0}
+		real_attr3 matches {|0.0..100.0|}
+		real_attr3a matches {|>0.0..100.0|}
+		real_attr3b matches {|0.0..<100.0|}
+		real_attr3c matches {|>0.0..<100.0|}
+		real_attr4 matches {|>=10.0|}
+		real_attr5 matches {|<=10.0|}
+		real_attr6 matches {|>=10.0|}
+		real_attr7 matches {|<=10.0|}
+		real_attr8 matches {|-10.0..-5.0|}
+		real_attr9 matches {|10.0|}
+		real_attr10 matches {*}
+		date_attr1 matches {yyyy-mm-dd}
+		date_attr2 matches {yyyy-??-??}
+		date_attr3 matches {yyyy-mm-??}
+		date_attr4 matches {yyyy-??-XX}
+		date_attr5 matches {|1983-12-25|}
+		date_attr6 matches {|2000-01-01|}
+		date_attr7 matches {|2000-01-01|}
+		date_attr8 matches {|2000-01-01..2000-02-01|}
+		date_attr8a matches {|>2000-01-01..2000-02-01|}
+		date_attr8b matches {|2000-01-01..<2000-02-01|}
+		date_attr8c matches {|>2000-01-01..<2000-02-01|}
+		time_attr1 matches {hh:mm:ss}
+		time_attr2 matches {hh:mm:??}
+		time_attr3 matches {hh:mm:XX}
+		time_attr4 matches {hh:??:??}
+		time_attr5 matches {hh:??:XX}
+		time_attr6 matches {|22:00:05,0|}
+		time_attr7 matches {|00:00:59,0|}
+		time_attr8 matches {|00:00:59,0|}
+		time_attr9 matches {|01:00:00..02:00:00|}
+		time_attr9a matches {|>01:00:00..02:00:00|}
+		time_attr9b matches {|01:00:00..<02:00:00|}
+		time_attr9c matches {|>01:00:00..<02:00:00|}
+		date_time_attr1 matches {yyyy-mm-ddThh:mm:ss}
+		date_time_attr2 matches {yyyy-mm-ddThh:mm:??}
+		date_time_attr3 matches {yyyy-mm-ddThh:mm:XX}
+		date_time_attr4 matches {yyyy-mm-ddThh:??:??}
+		date_time_attr5 matches {yyyy-mm-ddThh:??:XX}
+		date_time_attr6 matches {yyyy-??-??T??:??:??}
+		date_time_attr7a matches {|1983-12-25T22:00:05,0|}
+		date_time_attr7b matches {|2000-01-01T00:00:59,0|}
+		date_time_attr7c matches {|2000-01-01T00:00:59,0|}
+		date_time_attr9a matches {|2000-01-01T01:00:00..2000-01-01T02:00:00|}
+		date_time_attr9b matches {|>2000-01-01T01:00:00..2000-01-01T02:00:00|}
+		date_time_attr9c matches {|2000-01-01T01:00:00..<2000-01-01T02:00:00|}
+		date_time_attr9d matches {|>2000-01-01T01:00:00..<2000-01-01T02:00:00|}
+		duration_attr1 matches {Pw}
+		duration_attr2 matches {Pmw}
+		duration_attr3 matches {PWD}
+		duration_attr3a matches {PD}
+		duration_attr4 matches {Pym}
+		duration_attr5 matches {PdThms}
+		duration_attr6 matches {PTs}
+		duration_attr7 matches {PThm}
+		duration_attr8 matches {|PT0S|}
+		duration_attr8a matches {|PT0.004S|}
+		duration_attr9 matches {|P1D|}
+		duration_attr10 matches {|P38W..P39W4D|}
+		duration_attr10a matches {|>P38W..P39W4D|}
+		duration_attr10b matches {|P38W..<P39W4D|}
+		duration_attr10c matches {|>P38W..<P39W4D|}
+		duration_attr11 matches {|PT2H5M|}
+		duration_attr12 matches {|PT1H55M|}
+		duration_attr13 matches {|<=PT1H|}
+		duration_attr14 matches {|PT1H30M|}
+		duration_attr101 matches {Pw/|PT0S|}
+		duration_attr102 matches {Pmw/|PT0S|}
+		duration_attr103 matches {PWD/|PT0S|}
+		duration_attr103a matches {PD/|PT0S|}
+		duration_attr104 matches {Pym/|PT0S|}
+		duration_attr105 matches {PdThms/|PT0S|}
+		duration_attr106 matches {PTs/|PT0S|}
+		duration_attr107 matches {PThm/|PT0S|}
+		duration_attr201 matches {Pw/|P38W..P39W4D|}
+		duration_attr202 matches {Pmw/|P38W..P39W4D|}
+		duration_attr203 matches {PWD/|P38W..P39W4D|}
+		duration_attr203a matches {PD/|P38W..P39W4D|}
+		duration_attr204 matches {Pym/|P38W..P39W4D|}
+		duration_attr205 matches {PdThms/|P38W..P39W4D|}
+		duration_attr206 matches {PTs/|P38W..P39W4D|}
+		duration_attr207 matches {PThm/|P38W..P39W4D|}
+	}
+
+ontology
+	terminologies_available = <"adl_test", ...>
+	term_definitions = <
+		["en"] = <
+			items = <
+				["at0000"] = <
+					description = <"test entry">
+					text = <"test entry">
+				>
+			>
+		>
+	>

data/spec/lib/open_ehr/parser/adl/adl-test-ENTRY.basic_types_fail.v1.adl

@@ -0,0 +1,50 @@
+archetype
+	adl-test-ENTRY.basic_types_fail.v1
+
+concept
+	[at0000]	-- test entry
+
+description
+	original_author = <
+		["name"] = <"Thomas Beale">
+	>
+	lifecycle_state = <"draft">
+	details = <
+		["en"] = <
+			language = <"en">
+			purpose = <"test structure">
+			keywords = <"ADL", "test">
+			copyright = <"copyright (c) 2004 The openEHR Foundation">
+		>
+	>
+
+definition
+	ENTRY[at0000] matches {	-- test entry
+		-- string_attr3 matches {/cardio.*//}
+		string_attr5 matches {"and", "something", "else" "ERROR"}
+		boolean_attr3 matches {True, False, False}
+		integer_attr1 matches {55 !}
+		integer_attr2 matches {10 20, 30}
+		integer_attr4 matches {> 10|}
+		date_attr1 matches {pyyyy-mm-dd}
+		date_attr2 matches {yyyy-Q?--??}
+		date_attr5 matches {1983-0012-25}
+		date_attr6 matches {2000-0101}
+		time_attr2 matches {Ph:Tm:XX}
+		time_attr3 matches {hh:??XX}
+	}
+
+ontology
+	primary_language = <"en">
+	languages_available = <"en", ...>
+	terminologies_available = <"adl_test", ...>
+	term_definitions = <
+		["en"] = <
+			items = <
+				["at0000"] = <
+					description = <"test entry">
+					text = <"test entry">
+				>
+			>
+		>
+	>

data/spec/lib/open_ehr/parser/adl/adl-test-ENTRY.most_minimal.v1.adl

@@ -0,0 +1,27 @@
+archetype (adl_version=1.4)
+	adl-test-ENTRY.most_minimal.v1
+
+concept
+	[at0000]	-- most minimal
+language
+	original_language = <[ISO_639-1::en]>
+description
+	original_author = <
+		["name"] = <"unknown">
+	>
+	lifecycle_state = <>
+
+definition
+	ENTRY[at0000] matches {*}
+
+ontology
+	term_definitions = <
+		["en"] = <
+			items = <
+				["at0000"] = <
+					description = <"most minimal">
+					text = <"most minimal">
+				>
+			>
+		>
+	>

data/spec/lib/open_ehr/parser/adl/adl-test-ENTRY.structure_test1.v1.adl

@@ -0,0 +1,46 @@
+archetype (adl_version=1.4)
+	adl-test-ENTRY.structure_test1.v1
+
+concept
+	[at0000]	-- test entry
+language
+	original_language = <[ISO_639-1::en]>
+description
+	original_author = <
+		["name"] = <"Thomas Beale">
+	>
+	details = <
+		["en"] = <
+			language = <[ISO_639-1::en]>
+			purpose = <"Test basic structure hierarchy">
+			keywords = <"ADL", "structure", "test">
+			copyright = <"copyright (c) 2004 The openEHR Foundation">
+		>
+	>
+	lifecycle_state = <"draft">
+
+definition
+	ENTRY[at0000] matches {	-- test entry
+		subject_relationship matches {
+			RELATED_PARTY matches {
+				relationship matches {
+					TEXT matches {
+						value matches {"self"}
+					}
+				}
+			}
+		}
+	}
+
+ontology
+	terminologies_available = <"adl_test", ...>
+	term_definitions = <
+		["en"] = <
+			items = <
+				["at0000"] = <
+					description = <"test entry">
+					text = <"test entry">
+				>
+			>
+		>
+	>