openehr 1.1.0

data/spec/lib/openehr/parser/adl_language_order_spec.rb

@@ -0,0 +1,68 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include OpenEHR::Parser
+
+describe ADLParser do
+  context 'Language order of translation details' do
+    before(:all) do
+      target_adl_file = 'adl-test-entry.archetype_language_order_of_translation_details.test.adl'
+      ap = ADLParser.new(ADL14DIR + '/' + target_adl_file)
+      archetype = ap.parse
+      @translations = archetype.translations
+    end
+
+    it 'translation is not nil' do
+      @translations.should_not be_nil
+    end
+
+    context 'German translation' do
+      before(:all) do
+        @de = @translations['de']
+      end
+
+      it 'exists' do
+        @de.should_not be_nil
+      end
+
+      context 'author' do
+        before(:all) do
+          @author = @de.author
+        end
+
+        it 'exists' do
+          @author.should_not be_nil
+        end
+
+        it 'name is Harry Potter' do
+          @author['name'].should == 'Harry Potter'
+        end
+
+        it 'email is harry@something.somewhere.co.uk' do
+          @author['email'].should == 'harry@something.somewhere.co.uk'
+        end
+      end
+
+      it 'accreditation is Seven OWLs at Hogwards' do
+        @de.accreditation.should == 'Seven OWLs at Hogwards'
+      end
+
+      context 'other details' do
+        before(:all) do
+          @other_details = @de.other_details
+        end
+
+        it 'review 1 is Ron Weasley' do
+          @other_details['review 1'].should == 'Ron Weasley'
+        end
+
+        it 'review 2 is Rubeus Hagrid' do
+          @other_details['review 2'].should == 'Rubeus Hagrid'
+        end
+      end
+
+      it 'language code is de' do
+        @de.language.code_string.should == 'de'
+      end
+    end
+  end
+end

data/spec/lib/openehr/parser/adl_language_spec.rb

@@ -0,0 +1,119 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include OpenEHR::Parser
+
+describe ADLParser do
+  context 'Language' do
+    before(:all) do
+      target_adl_file = 'adl-test-entry.archetype_language.test.adl'
+      ap = ADLParser.new(ADL14DIR + target_adl_file)
+      @archetype = ap.parse
+    end
+
+    context 'original language' do
+      before(:all) do
+        @original_language = @archetype.original_language
+      end
+
+      it 'original language is en' do
+        @original_language.code_string.should == 'en'
+      end
+
+      it 'terminology_id ISO_639-1' do
+        @original_language.terminology_id.value.should == 'ISO_639-1'
+      end
+    end
+
+    context 'translations' do
+      before(:all) do
+        @translations = @archetype.translations
+      end
+
+      it 'translation is not nil' do
+        @translations.should_not be_nil
+      end
+
+      context 'German translation' do
+        before(:all) do
+          @de = @translations['de']
+        end
+
+        it 'translation is not nil' do
+          @de.should_not be_nil
+        end
+
+        it 'German code_string is de' do
+          @de.language.code_string.should == 'de'
+        end
+
+        it 'terminology id is ISO_639-1' do
+          @de.language.terminology_id.value.should == 'ISO_639-1'
+        end
+
+        it 'accreditation is British Medical Translator id 00400595' do
+          @de.accreditation.should == 'British Medical Translator id 00400595'
+        end
+
+        context 'author' do
+          before(:all) do
+            @author = @de.author
+          end
+
+          it 'name is Harry Potter' do
+            @author['name'].should == 'Harry Potter'
+          end
+
+          it 'email is harry@something.somewhere.co.uk' do
+            @author['email'].should == 'harry@something.somewhere.co.uk'
+          end
+        end
+
+        context 'other_details' do
+          before(:all) do
+            @other_details = @de.other_details
+          end
+
+          it 'review 1 is Ron Weasley' do
+            @other_details['review 1'].should == 'Ron Weasley'
+          end
+
+          it 'review 2 is Rubeus Hagrid' do
+            @other_details['review 2'].should == 'Rubeus Hagrid'
+          end
+        end
+      end
+
+      context 'Russian translation' do
+        before(:all) do
+          @ru = @translations['ru']
+        end
+
+        it 'code is ru' do
+          @ru.language.code_string.should == 'ru'
+        end
+
+        it 'terminology id is ISO_639-1' do
+          @ru.language.terminology_id.value.should == 'ISO_639-1'
+        end
+
+        it 'accreditation is Russion Translator id 892230A' do
+          @ru.accreditation.should == 'Russion Translator id 892230A'
+        end
+
+        context 'author' do
+          before(:all) do
+            @author = @ru.author
+          end
+
+          it 'name is Vladimir Nabokov' do
+            @author['name'].should == 'Vladimir Nabokov'
+          end
+
+          it 'email is vladimir@something.somewhere.ru' do
+            @author['email'].should == 'vladimir@something.somewhere.ru'
+          end
+        end
+      end
+    end
+  end
+end

data/spec/lib/openehr/parser/adl_language_translation_author_language_spec.rb

@@ -0,0 +1,50 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include OpenEHR::Parser
+
+describe ADLParser do
+  context 'Language author parsing behavior' do
+    before(:all) do
+      target_adl_file = 'adl-test-entry.translations_author_language.test.adl'
+      ap = ADLParser.new(ADL14DIR + target_adl_file)
+      archetype = ap.parse
+      @translations = archetype.translations
+    end
+
+    it 'translations exists' do
+      @translations.should_not be_nil
+    end
+
+    context 'German translation' do
+      before(:all) do
+        @de = @translations['de']
+      end
+
+      it 'exists' do
+        @de.should_not be_nil
+      end
+
+      it 'language code string is de' do
+        @de.language.code_string.should == 'de'
+      end
+
+      context 'author' do
+        before(:all) do
+          @author = @de.author
+        end
+
+        it 'exists' do
+          @author.should_not be_nil
+        end
+
+        it 'name is Harry Potter' do
+          @author['name'].should == 'Harry Potter'
+        end
+
+        it 'email is harry@something.somewhere.co.uk' do
+          @author['email'].should == 'harry@something.somewhere.co.uk'
+        end
+      end
+    end
+  end
+end

data/spec/lib/openehr/parser/adl_language_translation_language_author_spec.rb

@@ -0,0 +1,46 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include OpenEHR::Parser
+
+describe ADLParser do
+  context 'Language author parsing behavior' do
+    before(:all) do
+      TARGET_ADL_FILE = 'adl-test-entry.translations_language_author.test.adl'
+      ap = ADLParser.new(ADL14DIR + TARGET_ADL_FILE)
+      archetype = ap.parse
+      @translations = archetype.translations
+    end
+
+    it 'translations exists' do
+      @translations.should_not be_nil
+    end
+
+    context 'German translation' do
+      before(:all) do
+        @de = @translations['de']
+      end
+
+      it 'exists' do
+        @de.should_not be_nil
+      end
+
+      it 'language code string is de' do
+        @de.language.code_string.should == 'de'
+      end
+
+      context 'author' do
+        before(:all) do
+          @author = @de.author
+        end
+
+        it 'name is Harry Potter' do
+          @author['name'].should == 'Harry Potter'
+        end
+
+        it 'email is harry@something.somewhere.co.uk' do
+          @author['email'].should == 'harry@something.somewhere.co.uk'
+        end
+      end
+    end
+  end
+end

data/spec/lib/openehr/parser/adl_parser_spec.rb

@@ -0,0 +1,347 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+include OpenEHR::Parser
+include OpenEHR::AM::Archetype
+include OpenEHR::AM::Archetype::ConstraintModel
+include OpenEHR::AM::Archetype::Assertion
+include OpenEHR::AM::Archetype::Ontology
+
+describe ADLParser do
+
+  before (:all) do
+    @adl_dir = File.dirname(__FILE__) + '/adl14/'
+  end
+
+  context 'openEHR-EHR-SECTION-summary.v1.adl' do
+    before(:all) do
+      @ap = ADLParser.new(@adl_dir + 'openEHR-EHR-SECTION.summary.v1.adl')
+    end
+
+    it 'is an instance fo ADLParser' do
+      @ap.should be_an_instance_of ADLParser
+    end
+
+    context 'openEHR-EHR-SECTION.summary.v1 parse' do
+      context 'ADL parser generates archetype from ADL' do
+        before(:all) do
+          @archetype = @ap.parse
+        end
+
+        it 'archetype is an instance of Archetype' do
+          @archetype.should be_an_instance_of Archetype
+        end
+
+        it 'archetype_id should be openEHR-EHR-SECTION-summary' do
+          @archetype.archetype_id.value.should == 
+            'openEHR-EHR-SECTION.summary.v1'
+        end
+
+        it 'adl_version should be 1.4' do
+          @archetype.adl_version.should == '1.4'
+        end
+
+        it 'concept should be at0000' do
+          @archetype.concept.should == 'at0000'
+        end
+
+        it 'original language is en' do
+          @archetype.original_language.code_string.should == 'en'
+        end
+
+        context 'description' do
+          before(:all) do
+            @description = @archetype.description
+          end
+
+          context 'original author' do
+            before(:all) do
+              @original_author = @description.original_author
+            end
+
+            it 'name is Sam Heard' do
+              @original_author['name'].should == 'Sam Heard'
+            end
+
+            it 'organisation is Ocean Informatics' do
+              @original_author['organisation'].should == 'Ocean Informatics'
+            end
+
+            it 'date is 9/01/2007' do
+              @original_author['date'].should == '9/01/2007'
+            end
+
+            it 'email is sam.heard@oceaninformatics.biz' do
+              @original_author['email'].should == 'sam.heard@oceaninformatics.biz'
+            end
+          end
+
+          context 'details' do
+            before(:all) do
+              @details = @description.details
+            end
+
+            context 'en details' do
+              before(:all) do
+                @en = @details['en']
+              end
+
+              it 'language is en' do
+                @en.language.code_string.should == 'en'
+              end 
+
+              it 'purpose is A heading...' do
+                @en.purpose.should == "A heading containing summary information based on particular evaluation entries"
+              end
+
+              it 'use is A heading for...' do
+                @en.use.should == "A heading for organising clinical data under a heading of summary"
+              end
+
+              it 'keywords are review, conclusions, risk' do
+                @en.keywords.should == ['review', 'conclusions', 'risk']
+              end
+
+              it 'misuse should be nil' do
+                @en.misuse.should be_nil
+              end
+            end
+
+            it 'lifecycle_state is Initial' do
+              @description.lifecycle_state.should == 'Initial'
+            end
+
+            it 'other_contributors is nil' do
+              @description.other_contributors.should be_nil
+            end
+          end # of details
+        end # of description
+
+        context 'definition section' do
+          before(:all) do
+            @definition = @archetype.definition
+          end
+
+          it 'rm_type is SECTION' do
+            @definition.rm_type_name.should == 'SECTION'
+          end
+
+          it 'node_id is at0000' do
+            @definition.node_id.should == 'at0000'
+          end
+
+          it 'root path is /' do
+            @definition.path.should == '/'
+          end
+
+          it 'not any allowed' do
+            @definition.any_allowed?.should == false
+          end
+
+          context 'c_attribute specs' do
+            before(:all) do
+              @attribute = @definition.attributes[0]
+            end
+
+            it 'attribute is instance of CMultipleAttribute' do
+              @attribute.should be_an_instance_of CMultipleAttribute
+            end
+
+            it 'rm_attribute_name is items' do
+              @attribute.rm_attribute_name.should == 'items'
+            end
+
+            it 'path is /items' do
+              @attribute.path.should == '/items'
+            end
+
+            it 'cardinarity is unorderd' do
+              @attribute.cardinality.should_not be_ordered
+            end
+
+            it 'lower interval of cardinality is 0' do
+              @attribute.cardinality.interval.lower.should be 0
+            end
+
+            it 'interval of cardinality is upper unbounded' do
+              @attribute.cardinality.interval.should be_upper_unbounded
+            end
+            context 'children archetype slot specs' do
+              before(:all) do
+                @archetype_slot = @attribute.children[0]
+              end
+
+              it 'is an instance of ArchetypeSlot' do
+                @archetype_slot.should be_an_instance_of ArchetypeSlot
+              end
+
+              it 's rm type name is EVALUATION' do
+                @archetype_slot.rm_type_name.should == 'EVALUATION'
+              end
+
+              it 's lower of occurrences should be 0' do
+                @archetype_slot.occurrences.lower.should be 0
+              end
+
+              it 's upper of occurrences should be 1' do
+                @archetype_slot.occurrences.upper.should be 1
+              end
+
+              context 'assertions' do
+                before(:all) do
+                  @includes = @archetype_slot.includes
+                end
+
+                context '1st assertion' do
+                  before(:all) do
+                    @assertion0 = @includes[0]
+                  end
+
+                  it 'assertion0 should be an instance of Assertion' do
+                    @assertion0.should be_an_instance_of Assertion
+                  end
+
+                  it 'expression type of assertion0 is Boolean' do
+                    @assertion0.expression.type.should == 'Boolean'
+                  end
+
+                  it 'expression value of assertion0 is /clinical_synopsis\.v1/' do
+                    @assertion0.expression.right_operand.item.pattern.should == '/clinical_synopsis\.v1/'
+                  end
+                end
+
+                context '2nd assertion' do
+                  before(:all) do
+                    @assertion1 = @includes[1]
+                  end
+
+                  it 'assertion1 is an instanse of Assertion' do
+                    @assertion1.should be_an_instance_of Assertion
+                  end
+
+                  it 'Assertion1 type is Boolean' do
+                    @assertion1.expression.type.should == 'Boolean'
+                  end
+
+                  it 'expression value of assertion1 is /problem\.v1/' do
+                    @assertion1.expression.right_operand.item.pattern.should ==
+                      '/problem\.v1/'
+                  end
+                end
+
+                context '3rd assertion' do
+                  before(:all) do
+                    @assertion2 = @includes[2]
+                  end
+
+                  it 'assertion2 is an instanse of Assertion' do
+                    @assertion2.should be_an_instance_of Assertion
+                  end
+
+                  it 'Assertion2 type is Boolean' do
+                    @assertion2.expression.type.should == 'Boolean'
+                  end
+
+                  it 'expression value of Assertion2 is /problem\.v1/' do
+                    @assertion2.expression.right_operand.item.pattern.should ==
+                      '/problem-diagnosis\.v1/'
+                  end
+                end
+
+                context '4th assertion' do
+                  before(:all) do
+                    @assertion3 = @includes[3]
+                  end
+
+                  it 'assertion3 is an instanse of Assertion' do
+                    @assertion3.should be_an_instance_of Assertion
+                  end
+
+                  it 'Assertion3 type is Boolean' do
+                    @assertion3.expression.type.should == 'Boolean'
+                  end
+
+                  it 'expression value of assertion3 is /problem\.v1/' do
+                    @assertion3.expression.right_operand.item.pattern.should ==
+                      '/problem-diagnosis-histological\.v1/'
+                  end
+                end
+
+                context '5th assertion' do
+                  before(:all) do
+                    @assertion4 = @includes[4]
+                  end
+
+                  it 'assertion4 is an instanse of Assertion' do
+                    @assertion4.should be_an_instance_of Assertion
+                  end
+
+                  it 'Assertion4 type is Boolean' do
+                    @assertion4.expression.type.should == 'Boolean'
+                  end
+
+                  it 'expression value of assertion4 is /problem\.v1/' do
+                    @assertion4.expression.right_operand.item.pattern.should ==
+                      '/problem-genetic\.v1/'
+                  end
+                end
+
+                context '6th assertion' do
+                  before(:all) do
+                    @assertion5 = @includes[5]
+                  end
+
+                  it 'assertion5 is an instanse of Assertion' do
+                    @assertion5.should be_an_instance_of Assertion
+                  end
+
+                  it 'Assertion5 type is Boolean' do
+                    @assertion5.expression.type.should == 'Boolean'
+                  end
+
+                  it 'expression value of assertion5 is /problem\.v1/' do
+                    @assertion5.expression.right_operand.item.pattern.should ==
+                      '/risk\.v1/'
+                  end
+                end
+
+                context '7th assertion(is null)' do
+                  it '7th assersion is nil' do
+                    @includes[6].should be_nil
+                  end
+                end
+              end
+            end
+          end
+        end #definition
+
+        context 'ontology section' do
+          before(:all) do
+            @archetype_ontology = @archetype.ontology
+          end
+
+          it 'is an ArchtypeOntology instance' do
+            @archetype_ontology.should be_an_instance_of ArchetypeOntology
+          end
+
+          it 'term_definitions parsed and assigned properly' do
+            @archetype_ontology.term_definition(:lang => 'en',
+               :code => 'at0000').items['text'].should == 'Summary'
+          end
+
+          it 'description term_definitions parsed and assigned properly' do
+            @archetype_ontology.term_definition(:lang => 'en',
+               :code => 'at0000').items['description'].should ==
+                 'A heading for conclusions and other evaluations'
+          end
+
+          it 'term_codes should be assigned properly' do
+            @archetype_ontology.term_codes.should == ['at0000']
+          end
+
+          it 'ArchetypeOntology has en lang' do
+            @archetype_ontology.should have_language 'en'
+          end
+        end
+      end
+    end
+  end
+end