openehr 1.1.0

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

@@ -0,0 +1,193 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include OpenEHR::AM::Archetype::ConstraintModel
+include OpenEHR::AM::Archetype::ConstraintModel::Primitive
+include OpenEHR::AM::Archetype::Assertion
+
+# ticket 166
+
+describe ADLParser do
+  context ArchetypeSlot do
+    before(:all) do
+      archetype = adl14_archetype('adl-test-entry.archetype_slot.test.adl')
+      @slot = archetype.definition.attributes[0].children[0]
+    end
+
+    it 'is an isntance of ArchetypeSlot' do
+      @slot.should be_an_instance_of ArchetypeSlot
+    end
+
+    it 's rm_type name is SECTION' do
+      @slot.rm_type_name.should == 'SECTION'
+    end
+
+    it 's node_id is at0000' do
+      @slot.node_id.should == 'at0001'
+    end
+
+    it 's occurrences upper is 1' do
+      @slot.occurrences.upper.should be 1
+    end
+
+    it 's occurrences lower is 0' do
+      @slot.occurrences.lower.should be 0
+    end
+
+    context 'include' do
+      before(:all) do
+        @includes = @slot.includes
+      end
+      it 's includes 1 constraint' do
+        @includes.size.should be 1
+      end
+
+      context 'assert expression node' do
+        before(:all) do
+          @item = @includes[0].expression
+        end
+
+        it 'item is an instance of ExprBinaryOperator' do
+          @item.should be_an_instance_of ExprBinaryOperator
+        end
+
+        it 'operator is OP_MATCHES' do
+          @item.operator.should == OperatorKind::OP_MATCHES
+        end
+        
+        context 'left operand' do
+          before(:all) do
+            @left_operand = @item.left_operand
+          end
+
+          it 'is instance of ExprLeaf' do
+            @left_operand.should be_an_instance_of ExprLeaf
+          end
+
+          it 's item is domain_concept' do
+            @left_operand.item.should == 'domain_concept'
+          end
+        end
+
+        context 'right operand' do
+          before(:all) do
+            @right_operand = @item.right_operand
+          end
+
+          it 'is an instance of ExprLeaf' do
+            @right_operand.should be_an_instance_of ExprLeaf
+          end
+
+          it 's item type is CString' do
+            @right_operand.item.should be_an_instance_of CString
+          end
+
+          it 's item pattern is /blood_pressure.v1/' do
+            @right_operand.item.pattern.should == '/blood_pressure.v1/'
+          end
+        end
+      end
+    end
+
+    context 'excludes' do
+      before(:all) do
+        @excludes = @slot.excludes
+      end
+
+      it 's excludes 2 cnstraints' do
+        @excludes.size.should be 2
+      end
+
+      context '1st node' do
+        before(:all) do
+          @node = @excludes[0].expression
+        end
+
+        it 'is an instance of ExprBinaryOperator' do
+          @node.should be_an_instance_of ExprBinaryOperator
+        end
+
+        it 's operator is OP_MATCHES' do
+          @node.operator.should == OperatorKind::OP_MATCHES
+        end
+
+        context 'left operand' do
+          before(:all) do
+            @left_operand = @node.left_operand
+          end
+
+          it 'is an instance of ExprLeaf' do
+            @left_operand.should be_an_instance_of ExprLeaf
+          end
+
+          it 's item type is domain_concept' do
+            @left_operand.item.should == 'domain_concept'
+          end
+        end
+
+        context 'right operand' do
+          before(:all) do
+            @right_operand = @node.right_operand
+          end
+
+          it 'is an instance of ExprLeaf' do
+            @right_operand.should be_an_instance_of ExprLeaf
+          end
+
+          it 's item should be an instance of CString' do
+            @right_operand.item.should be_an_instance_of CString
+          end
+
+          it 's item pattern is /blood_pressure.v2/' do
+            @right_operand.item.pattern.should == '/blood_pressure.v2/'
+          end
+        end
+      end
+
+      context '2nd node' do
+        before(:all) do
+          @node = @excludes[1].expression
+        end
+
+        it 'is an instance of ExprBinaryOperator' do
+          @node.should be_an_instance_of ExprBinaryOperator
+        end
+
+        it 's operator is OP_MATCHES' do
+          @node.operator.should == OperatorKind::OP_MATCHES
+        end
+
+        context 'left operand' do
+          before(:all) do
+            @left_operand = @node.left_operand
+          end
+
+          it 'is an instance of ExprLeaf' do
+            @left_operand.should be_an_instance_of ExprLeaf
+          end
+
+          it 's item is domain_concept' do
+            @left_operand.item.should == 'domain_concept'
+          end
+        end
+
+        context 'right operand' do
+          before(:all) do
+            @right_operand = @node.right_operand
+          end
+
+          it 'is an instance of ExprLeaf' do
+            @right_operand.should be_an_instance_of ExprLeaf
+          end
+
+          it 's item type is CString' do
+            @right_operand.item.should be_an_instance_of CString
+          end
+
+          it 's item pattern is /.*/' do
+            @right_operand.item.pattern.should == '/.*/'
+          end
+        end
+      end
+    end
+  end
+end 

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

@@ -0,0 +1,25 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+
+# ticket 167
+
+describe ADLParser do
+  context 'Archetype uncommon keys' do
+    before(:all) do
+      archetype = adl14_archetype('adl-test-entry.archetype_uncommonkeys.test.adl')
+      @aterm = archetype.ontology.term_definition(:lang => 'en', :code => 'at0000')
+    end
+
+    it 's anotherkey value is another key value' do
+      @aterm.items['anotherkey'].should == 'another key value'
+    end
+
+    it 's text value is test text' do
+      @aterm.items['text'].should == 'test text'
+    end
+
+    it 's description is test description' do
+      @aterm.items['description'].should == 'test description'
+    end
+  end
+end

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

@@ -0,0 +1,164 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+include OpenEHR::Parser
+
+describe ADLParser do
+  context 'Description' do
+    before(:all) do
+      adl_dir = File.dirname(__FILE__) + '/adl14/'
+      ap = ADLParser.new(adl_dir + 'adl-test-entry.archetype_description.test.adl')
+      archetype = ap.parse
+      @description = archetype.description
+    end
+
+    it 'description is not null' do
+      @description.should_not be_nil
+    end
+
+    it 'lifecycle state is AuthorDraft' do
+      @description.lifecycle_state.should == 'AuthorDraft'
+    end
+    it 'resource package uri is www.aihw.org.au/data_sets/diabetic_archetypes.html' do
+      @description.resource_package_uri.should == 'www.aihw.org.au/data_sets/diabetic_archetypes.html'
+    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 23/04/2006' do
+        @original_author["date"].should == '23/04/2006'
+      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
+
+      it 'details is not nil' do
+        @details.should_not be_nil
+      end
+
+      it 'details size is 1' do
+        @details.size.should be 1
+      end
+
+      context 'item' do
+        before(:all) do
+          @item = @details['en']
+        end
+
+        it 'is not nil' do
+          @item.should_not be_nil
+        end
+
+        it 'language is en' do
+          @item.language.code_string.should == 'en'
+        end
+
+        it 'terminolopgy id is ISO_639-1' do
+          @item.language.terminology_id.value.should == 'ISO_639-1'
+        end
+
+        it 'purpose is For recording...' do
+          @item.purpose.should == "For recording a problem, condition " +
+            "or issue that has ongoing significance to the person's health."
+        end
+
+        it 'use is Used for recording any....' do
+          @item.use.should == "Used for recording any problem, " + 
+            "present or past - so is used for recording past " +
+            "history as well as current problems. Used with changed " +
+            "'Subject of care' for recording problems of relatives " +
+            "and so for family history."
+        end
+
+        it 'misuse is Use specialisations for ...' do
+          @item.misuse.should == "Use specialisations for medical " +
+            "diagnoses, 'openEHR-EHR-EVALUATION.problem-diagnosis' and " +
+            "histological diagnoses 'openEHR-EHR-EVALUATION.problem-" +
+            "diagnosis-histological'"
+        end
+
+        it 'copyright is copyright (c) 2004 The openEHR Foundation' do
+          @item.copyright.should == 'copyright (c) 2004 The openEHR Foundation'
+        end
+
+        it 'keywords are issue and condition' do
+          @item.keywords.should == ['issue', 'condition']
+        end
+
+        context 'original resource uri' do
+          before(:all) do
+            @original_resource_uri = @item.original_resource_uri
+          end
+
+          it 'ligne guide is http://guidelines.are.us/wherever/fr' do
+            @original_resource_uri['ligne guide'].should ==
+              'http://guidelines.are.us/wherever/fr'
+          end
+
+          it 'medline is http://some%20medline%20ref' do
+            @original_resource_uri['medline'].should == 'http://some%20medline%20ref'
+          end
+        end
+      end
+    end
+
+    context 'other contributors' do
+      before(:all) do
+        @other_contributors = @description.other_contributors
+      end
+
+      it 'other contrubutor(s) are not nil' do
+        @other_contributors.should_not be_nil
+      end
+
+      it 'other contributor(s) is one' do
+        @other_contributors.size.should be 1
+      end
+
+      it 'other_contributor(s) is Ian McNicoll, MD' do
+        @other_contributors[0].should == 'Ian McNicoll, MD'
+      end
+    end
+
+    context 'other details' do
+      before(:all) do
+        @other_details = @description.other_details
+      end
+
+      it 'other 1 is details 1' do
+        @other_details['other 1'].should == 'details 1'
+      end
+
+      it 'other 2 is detals 2' do
+        @other_details['other 2'].should == 'details 2'
+      end
+    end
+  end
+
+  context 'failed for empty other contributors' do
+    before(:all) do
+      adl_dir = File.dirname(__FILE__) + '/adl14/'
+      @ap = ADLParser.new(adl_dir + 'adl-test-entry.archetype_description2.test.adl')
+    end
+
+    it 'fails empty other comtributors' do
+      @ap.parse.should raise_error
+    end
+  end
+end

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

@@ -0,0 +1,18 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+include OpenEHR::Parser
+
+describe ADLParser do
+  context 'ADL identification' do
+    before(:all) do
+      adl_dir = File.dirname(__FILE__) + '/adl14/'
+      adl_id_test_file = 'adl-test-entry.archetype_identification.test.adl'
+      ap = ADLParser.new(adl_dir + adl_id_test_file)
+      archetype = ap.parse
+      @adl_version = archetype.adl_version
+    end
+
+    it 'ADL version is 1.4' do
+      @adl_version.should == '1.4'
+    end
+  end
+end

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

@@ -0,0 +1,66 @@
+require File.dirname(__FILE__) + '/../../../spec_helper'
+require File.dirname(__FILE__) + '/parser_spec_helper'
+include OpenEHR::Parser
+
+describe ADLParser do
+  context 'Language no accrediition' do
+    before(:all) do
+      target_adl_file = 'adl-test-entry.archetype_language_no_accreditation.test.adl'
+      ap = ADLParser.new(ADL14DIR + target_adl_file)
+      archetype = ap.parse
+      @translations = archetype.translations
+    end
+
+    it '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
+
+      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
+
+      context 'accreditation' do
+        it 'not exist' do
+          @de.accreditation.should be_nil
+        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
+  end
+end