CCHIT-xds-facade 0.1.1

data/test/xds/retrieve_document_set_response_test.rb

@@ -0,0 +1,43 @@
+require File.expand_path(File.dirname(__FILE__) + '/../test_helper')
+
+class RetrieveDocumentSetResponseTest < Test::Unit::TestCase
+  context "A RetrieveDocumentSetRequest" do
+    setup do
+      @successful_request_xml = File.read(File.expand_path(File.dirname(__FILE__) + '/../data/successful_document_set_response.xml'))
+      @successful_embedded_request_xml = File.read(File.expand_path(File.dirname(__FILE__) + '/../data/successful_document_set_response_embedded.xml'))
+    end
+    
+    should 'properly set the response status for a successful request' do
+      rdsr = XDS::RetrieveDocumentSetResponse.new
+      rdsr.parse_soap_response(@successful_request_xml)
+      assert rdsr.request_successful?
+    end
+    
+    should 'properly parse out the information on the document' do
+      rdsr = XDS::RetrieveDocumentSetResponse.new
+      rdsr.parse_soap_response(@successful_request_xml)
+      assert rdsr.request_successful?
+      rds = rdsr.retrieved_documents
+      assert rds
+      assert_equal 1, rds.length
+      rd = rds.first
+      assert_equal "1.urn:uuid:3BE45FAC62CF0568A81199380869990@apache.org", rd[:content_id]
+      assert_equal '1.19.6.24.109.42.1', rd[:repository_unique_id]
+      assert_equal '1.2.3.4.100000022002209036.1196211173506.1', rd[:document_unique_id]
+    end
+    
+    should "properly parse oout information and document content from embeeded response" do
+      
+      rdsr = XDS::RetrieveDocumentSetResponse.new
+      rdsr.parse_soap_response(@successful_embedded_request_xml)
+      assert rdsr.request_successful?
+      rds = rdsr.retrieved_documents
+      assert rds
+      assert_equal 1, rds.length
+      rd = rds.first
+      assert  rd[:content]
+      assert_equal '1.19.6.24.109.42.1.1', rd[:repository_unique_id]
+      assert_equal '1.2.3.4321.1234', rd[:document_unique_id]
+    end
+  end
+end

data/test/xds/source_patient_info_test.rb

@@ -0,0 +1,59 @@
+require File.expand_path(File.dirname(__FILE__) + '/../test_helper')
+
+class SourcePatientInfoTest < Test::Unit::TestCase
+  include XmlTestHelper
+  context "SourcePatientInfo" do
+    setup do
+      eo_xml = REXML::Document.new(File.read(File.expand_path(File.dirname(__FILE__) + '/../data/extrinsic_object.xml')))
+      @eo_node = eo_xml.root
+    end
+    
+    should "be able to serialize to soap representaion" do
+      
+      name = "name"
+      spi = "spi"
+      gender="manlyman"
+      dob = Time.now.strftime('%Y%m%d')
+      addr = "penny lane"
+      
+      p = XDS::SourcePatientInfo.new(:name=>name,
+                          :source_patient_identifier=>spi,
+                          :gender=>gender,
+                          :date_of_birth=>dob,
+                          :address=>addr)
+                          
+      soap = p.to_soap(create_builder)
+      assert_xpath(soap,"/Slot[@name='sourcePatientInfo']/ValueList/Value[text() = 'PID-5|#{name}']")
+      assert_xpath(soap,"/Slot[@name='sourcePatientInfo']/ValueList/Value[text() = 'PID-8|#{gender}']")
+      assert_xpath(soap,"/Slot[@name='sourcePatientInfo']/ValueList/Value[text() = 'PID-7|#{dob}']")
+      assert_xpath(soap,"/Slot[@name='sourcePatientInfo']/ValueList/Value[text() = 'PID-11|#{addr}']")
+      assert_xpath(soap,"/Slot[@name='sourcePatientInfo']/ValueList/Value[text() = 'PID-3|#{spi}']")
+    end
+    
+    should "match and strip HL7V2 coded fields" do
+      value_list = ['PID-3|pid1^^^domain', 'PID-5|Doe^John^^^', 'PID-7|19560527']
+      p = XDS::SourcePatientInfo.new
+      name = p.match_and_strip(value_list, 'PID-5')
+      assert name
+      assert_equal 'Doe^John^^^', name
+    end
+    
+    should "return nil when trying to match and strip a field that isn't there" do
+      value_list = ['PID-3|pid1^^^domain', 'PID-5|Doe^John^^^', 'PID-7|19560527']
+      p = XDS::SourcePatientInfo.new
+      nuthin = p.match_and_strip(value_list, 'PID-13')
+      assert_nil nuthin
+    end
+    
+    should "be able to populate values from an ExtrinsicObject node" do
+      patient_info = XDS::SourcePatientInfo.new
+      patient_info.from_extrinsic_object(@eo_node)
+      assert_equal 'pid1^^^domain', patient_info.source_patient_identifier
+      assert_equal 'Doe^John^^^', patient_info.name
+      assert_equal 'M', patient_info.gender
+      assert_equal '100 Main St^^Metropolis^Il^44130^USA', patient_info.address
+      assert_equal "19560527", patient_info.date_of_birth
+    end
+  end
+
+end

data/test/xds/xds_header.rb

@@ -0,0 +1,20 @@
+require File.expand_path(File.dirname(__FILE__) + '/../test_helper')
+
+class XdsHeaderTest < Test::Unit::TestCase
+  include XmlTestHelper
+  context "An XdsHeader" do
+      should "be able to create a  header" do
+        header = XDS::XdsHeader.new("urn:my_endpoint_uri","urn:MyAction","urn:uid:myuid")
+        builder = create_builder()
+        
+        doc_string = builder.wrapper(common_namespaces_for_building) do 
+          header.to_soap(builder)
+        end
+        assert doc_string
+        assert_xpath(doc_string,"/wrapper/soapenv:Header/wsa:To[text() = 'urn:my_endpoint_uri']",common_namespaces)
+        assert_xpath(doc_string,"/wrapper/soapenv:Header/wsa:MessageID[text() = 'urn:uid:myuid']",common_namespaces)
+        assert_xpath(doc_string,"/wrapper/soapenv:Header/wsa:Action[text() = 'urn:MyAction']",common_namespaces)
+      end
+  end
+  
+end

data/test/xds/xml_helper_test.rb

@@ -0,0 +1,124 @@
+require File.expand_path(File.dirname(__FILE__) + '/../test_helper')
+require 'lib/xds/helper'
+class XmlHelperTest < Test::Unit::TestCase
+  include XmlTestHelper
+  include XDS::Helper
+  
+  context "The Xml Helper" do
+     setup do
+       eo_xml = REXML::Document.new(File.read(File.expand_path(File.dirname(__FILE__) + '/../data/extrinsic_object.xml')))
+       @eo_node = eo_xml.root
+     end
+     
+     should "be able to create a  slot" do
+           
+           slot = create_slot(create_builder,"testSlot", ["value1","value2"])   
+           assert_xpath(slot,"/Slot[@name='testSlot']/ValueList/Value[text() = 'value1']",{},1)
+           assert_xpath(slot,"/Slot[@name='testSlot']/ValueList/Value[text() = 'value2']",{},1)
+     end
+     
+     
+     should "be able to create a LocalizedString" do
+          ls = create_localized_string(create_builder,"ls_value")
+          assert_xpath(ls,"/LocalizedString[@value='ls_value']",{},1)
+     end
+     
+     
+     should "be able to create a Name element" do
+         name = create_name(create_builder,"name_value")
+         assert_xpath(name,"/Name/LocalizedString[@value='name_value']",{},1)
+     end
+   
+     should "be able to create a Classification element" do
+         cl = create_classification(create_builder,"myscheme","object_id","node_rep")
+         assert_xpath(cl,"/Classification[@classificationScheme = 'myscheme']",{},1)
+         assert_xpath(cl,"/Classification[@classifiedObject = 'object_id']",{},1)
+         assert_xpath(cl,"/Classification[@nodeRepresentation = 'node_rep']",{},1)
+     end
+     
+     should "be able to create a Classification element with a block" do
+         cl = create_classification(create_builder,"myscheme","object_id","node_rep") do |builder|
+           create_name(builder,"test_name")
+         end
+         
+         assert_xpath(cl,"/Classification[@classificationScheme = 'myscheme']",{},1)
+         assert_xpath(cl,"/Classification[@classifiedObject = 'object_id']",{},1)
+         assert_xpath(cl,"/Classification[@nodeRepresentation = 'node_rep']",{},1)
+         
+         assert_xpath(cl,"/Classification/Name/LocalizedString[@value='test_name']",{},1)
+         
+     end
+     
+     
+     should "be able to create an ExternalIdentiier" do
+         ei = create_external_identifier(create_builder,"my_id","my_reg_object","scheme","schem_value")
+         assert_xpath(ei,"/ExternalIdentifier[@id='my_id' and @registryObject='my_reg_object' and @identificationScheme='scheme' and @value='schem_value']",{}, 1)
+     end
+     
+     
+     should "be able to create an ExternalIdentiier with a block" do
+         ei = create_external_identifier(create_builder,"id","reg_obj", "scheme","schem_value") do |builder|
+            create_slot(builder,"test_slot",["value1","value2"])
+         end
+         assert_xpath(ei,"/ExternalIdentifier[@identificationScheme='scheme' and @value='schem_value']",{}, 1)
+         assert_xpath(ei,"/ExternalIdentifier/Slot/ValueList/Value[text() = 'value1']",{},1)
+         assert_xpath(ei,"/ExternalIdentifier/Slot/ValueList/Value[text() = 'value2']",{},1)
+     end
+     
+     should "be able to create an ExtrinsicObject " do 
+       eo = create_extrinsic_object(create_builder,"my_id","my_mime","my_object_type")     
+       assert_xpath(eo,"/ExtrinsicObject[@id='my_id' and @mimeType='my_mime' and @objectType='my_object_type']")
+     end
+     
+     
+     should "be able to create an ExtrinsicObject with a block" do 
+       eo = create_extrinsic_object(create_builder,"my_id","my_mime","my_object_type") do |builder|
+           create_slot(builder,"test_slot",["value1","value2"])
+        end      
+       assert_xpath(eo,"/ExtrinsicObject[@id='my_id' and @mimeType='my_mime' and @objectType='my_object_type']")
+       assert_xpath(eo,"/ExtrinsicObject/Slot/ValueList/Value[text() = 'value1']",{},1)
+       assert_xpath(eo,"/ExtrinsicObject/Slot/ValueList/Value[text() = 'value2']",{},1)
+     end
+     
+     context "when getting a slot value" do
+      should "get the slot value" do
+        creation_time = get_slot_value(@eo_node, 'creationTime')
+        assert_equal('20041224', creation_time)
+      end
+      
+      should "return nil when the slot doesn't exist" do
+        nuthin = get_slot_value(@eo_node, 'foo')
+        assert_nil nuthin
+      end
+      
+      should "return the first value when there are multiple values in the list" do
+        uri = get_slot_value(@eo_node, 'URI')
+        assert_equal 'http://129.6.24.109:9080/Repository/229.6.58.29.939.txt', uri
+      end
+     end
+     
+     context "when getting a slot with multiple values" do
+      should "get the slot values" do
+        uris = get_slot_values(@eo_node, 'URI')
+        assert uris
+        assert_equal 2, uris.length
+        assert_equal 'http://129.6.24.109:9080/Repository/229.6.58.29.939.txt', uris.first
+        assert_equal 'http://www.example.com', uris[1]
+      end
+     end
+     
+     should 'be able to provide a block to a desired classification' do
+        with_classification(@eo_node, "urn:uuid:93606bcf-9494-43ec-9b4e-a7748d1a838d") do |classification|
+          assert_equal "urn:uuid:6d037c16-d94d-4c10-acfc-f6cae5f7287e", classification.attributes['classifiedObject']
+        end
+     end
+     
+     should 'be able to get an external identifier' do
+       patient_id = get_external_identifier_value(@eo_node, XDS::Metadata::EXTERNAL_ID_SCHEMES[:patient_id][:scheme])
+       assert patient_id
+       assert_equal '93f3f8a6d100463^^^&1.3.6.1.4.1.21367.2005.3.7&ISO', patient_id
+     end
+    
+  end
+  
+end

metadata

@@ -0,0 +1,122 @@
+--- !ruby/object:Gem::Specification 
+name: CCHIT-xds-facade
+version: !ruby/object:Gem::Version 
+  version: 0.1.1
+platform: ruby
+authors: 
+- Project Laika
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-08-06 00:00:00 -07:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: uuid
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - "="
+      - !ruby/object:Gem::Version 
+        version: 2.0.1
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: builder
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - "="
+      - !ruby/object:Gem::Version 
+        version: 2.1.2
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: activesupport
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "2.3"
+    version: 
+description: 
+email: dev@projectlaika.org
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/apache-mime4j-0.5.jar
+- lib/commons-codec-1.3.jar
+- lib/commons-httpclient-3.1.jar
+- lib/commons-logging-1.1.1.jar
+- lib/mime/mime_message_parser.rb
+- lib/xds-facade.rb
+- lib/xds/affinity_domain_config.rb
+- lib/xds/author.rb
+- lib/xds/coded_attribute.rb
+- lib/xds/document_registry_service.rb
+- lib/xds/document_repository_service.rb
+- lib/xds/helper.rb
+- lib/xds/metadata.rb
+- lib/xds/mtom_xop_request.rb
+- lib/xds/provide_and_register_document_set_b.rb
+- lib/xds/provide_and_register_document_set_b_xop.rb
+- lib/xds/provide_and_register_document_set_b_xop_response.rb
+- lib/xds/registry_stored_query_request.rb
+- lib/xds/registry_stored_query_response.rb
+- lib/xds/retrieve_document_set_request.rb
+- lib/xds/retrieve_document_set_response.rb
+- lib/xds/source_patient_info.rb
+- lib/xds/xds_header.rb
+- lib/xds/xds_part.rb
+- lib/xds/xds_request.rb
+- lib/xds/xds_request_entity.rb
+has_rdoc: true
+homepage: http://projectlaika.org
+licenses: 
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 2
+summary: Simple interface for XDS for use with JRuby
+test_files: 
+- test/xds/coded_attribute_test.rb
+- test/xds/source_patient_info_test.rb
+- test/xds/author_test.rb
+- test/xds/xml_helper_test.rb
+- test/xds/retrieve_document_set_request_test.rb
+- test/xds/affinity_domain_config_test.rb
+- test/xds/xds_header.rb
+- test/xds/metadata_test.rb
+- test/xds/provide_and_register_document_set_b_test.rb
+- test/xds/registry_stored_query_request_test.rb
+- test/xds/retrieve_document_set_response_test.rb
+- test/xds/registry_stored_query_response_test.rb
+- test/mime/mime_message_parser_test.rb
+- test/test_helper.rb
+- test/factories.rb