openehr 1.1.0

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

@@ -0,0 +1,57 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+include OpenEHR::AssumedLibraryTypes
+
+describe ISO8601Timezone do
+  before(:each) do
+    @iso8601timezone = ISO8601Timezone.new('+0900')
+  end
+
+  it 'should be an instance of ISO8601Timezone' do
+    @iso8601timezone.should be_an_instance_of ISO8601Timezone
+  end
+
+  it 'sign should be +1' do
+    @iso8601timezone.sign.should == +1
+  end
+
+  it 'hour should be 9' do
+    @iso8601timezone.hour.should == 9
+  end
+
+  it 'minute should be 0' do
+    @iso8601timezone.minute.should == 0
+  end
+
+  it 'should be +0900 as string' do
+    @iso8601timezone.as_string.should == '+0900'
+  end
+
+  it 'should not be gmt' do
+    @iso8601timezone.is_gmt?.should_not be_true
+  end
+
+  it 'should raise ArgumentError with invalid format' do
+    lambda {
+      ISO8601Timezone.new('ABCDE')
+    }.should raise_error ArgumentError
+  end
+
+  it 'should allow - sign' do
+    @iso8601timezone = ISO8601Timezone.new('-5000')
+    @iso8601timezone.as_string.should == '-5000'
+  end
+
+  describe 'GMT' do
+    before(:each) do
+      @iso8601timezone = ISO8601Timezone.new('Z')
+    end
+
+    it 'should racognize UTC as Z' do
+      @iso8601timezone.as_string.should == '+0000'
+    end
+
+    it 'should be gmt(almost)' do
+      @iso8601timezone.is_gmt?.should be_true
+    end
+  end
+end

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

@@ -0,0 +1,136 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+include OpenEHR::AssumedLibraryTypes
+
+describe TimeDefinitions do
+  describe 'year behavior' do
+    it 'should more than zero in openEHR specification' do
+      TimeDefinitions.should be_valid_year 0
+    end
+
+    it '-1 should not be valid year' do
+      TimeDefinitions.should_not be_valid_year -1
+    end
+
+    it 'nil year should be invaild' do
+      TimeDefinitions.should_not be_valid_year nil
+    end
+  end
+
+
+  describe 'month behavior' do
+    (1..12).each do |month|
+      it "should valid #{month}" do
+        TimeDefinitions.should be_valid_month month
+      end
+    end
+    
+    it '0th month should be invalid' do
+      TimeDefinitions.should_not be_valid_month 0
+    end
+    
+    it '13th month should be invalid' do
+      TimeDefinitions.should_not be_valid_month 13
+    end
+  end
+
+  describe 'day behavior' do
+    it '0 day should not be valid day' do
+      TimeDefinitions.should_not be_valid_day(1,2,0)
+    end
+
+    it '32 day should not be valid day' do
+      TimeDefinitions.should_not be_valid_day(1,2,32)
+    end
+
+    it 'should be valid 2009-09-19' do
+      TimeDefinitions.should be_valid_day(2009,9,19)
+    end
+
+    it 'should be invalid 2009 nil 19' do
+      TimeDefinitions.should_not be_valid_day(2009, nil,19)
+    end
+
+    it 'should be invalid nil 09 19' do
+      TimeDefinitions.should_not be_valid_day(nil, 9, 19)
+    end
+
+    it 'should be valid 2009 09' do
+      TimeDefinitions.should be_valid_day(2009,9,nil)
+    end
+  end
+
+  describe 'hour behavior' do
+    it 'should be valid hour 0,0,0' do
+      TimeDefinitions.should be_valid_hour(0,0,0)
+    end
+
+    it 'should be valid hour 12,59,59' do
+      TimeDefinitions.should be_valid_hour(12,59,59)
+    end
+
+    it 'should not be valid hour 12,60,59' do
+      TimeDefinitions.should_not be_valid_hour(12,60,59)
+    end
+
+    it 'should not be valid hour 12,59,60' do
+      TimeDefinitions.should_not be_valid_hour(12,59,60)
+    end
+
+    it 'should be valid hour 24,0,0' do
+      TimeDefinitions.should be_valid_hour(24,0,0)
+    end
+
+    it 'should not be valid hour 24,0,1' do
+      TimeDefinitions.should_not be_valid_hour(24,0,1)
+    end
+
+
+    it 'should be vaild hour 12,1' do
+      TimeDefinitions.should be_valid_hour(12,1)
+    end
+
+    it 'should not be valid hour 12,nil,1' do
+      TimeDefinitions.should be_valid_hour(12,nil,1)
+    end
+
+    it 'should be valid hour 12' do
+      TimeDefinitions.should be_valid_hour(12)
+    end
+  end
+
+  describe 'minute limit' do
+    it 'should be more than 0' do
+      TimeDefinitions.should be_valid_minute 0
+    end
+
+    it 'should be not less than 0' do
+      TimeDefinitions.should_not be_valid_minute -1
+    end
+
+    it 'should less than 60' do
+      TimeDefinitions.should be_valid_minute 59
+    end
+
+    it 'should not valid minute 60' do
+      TimeDefinitions.should_not be_valid_minute 60
+    end
+  end
+
+  describe 'second limit' do
+    it 'should be more than 0' do
+      TimeDefinitions.should be_valid_second 0
+    end
+
+    it 'should be not less than 0' do
+      TimeDefinitions.should_not be_valid_second -1
+    end
+
+    it 'should less than 60' do
+      TimeDefinitions.should be_valid_second 59
+    end
+
+    it 'should not valid minute 60' do
+      TimeDefinitions.should_not be_valid_second 60
+    end
+  end
+end

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

@@ -0,0 +1,42 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+include OpenEHR::AssumedLibraryTypes
+
+describe Timezone do
+  before(:each) do
+    @timezone = Timezone.new('+0930')
+  end
+
+  it 'hour is 9' do
+    @timezone.hour.should be 9
+  end
+
+  it 'minute is 30' do
+    @timezone.minute.should be 30
+  end
+
+  it 'minutes is alias of minute' do
+    @timezone.minutes.should be @timezone.minute
+  end
+
+  it 'hours is alias of hour' do
+    @timezone.hours.should be @timezone.hour
+  end
+
+  it '+0930 as string' do
+    @timezone.to_s.should == '+0930'
+  end
+
+  describe 'Z timezone' do
+    before(:each) do
+      @timezone = Timezone.new('Z')
+    end
+
+    it 'hour is 0' do
+      @timezone.hour.should be 0
+    end
+
+    it 'minute is 0' do
+      @timezone.minute.should be 0
+    end
+  end
+end

data/spec/lib/openehr/parser/adl14/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/openehr/parser/adl14/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">
+				>
+			>
+		>
+	>