au_core_test_kit 0.0.16

data/lib/au_core_test_kit/generated/v1.0.0-preview/waistcircum/waistcircum_patient_search_test.rb

@@ -0,0 +1,52 @@
+# frozen_string_literal: true
+
+require_relative '../../../search_test'
+require_relative '../../../generator/group_metadata'
+require_relative '../../../helpers'
+
+module AUCoreTestKit
+  module AUCoreV100_PREVIEW
+    class WaistcircumPatientSearchTest < Inferno::Test
+      include AUCoreTestKit::SearchTest
+
+      title '(MAY) Server returns valid results for Observation search by patient'
+      description %(
+A server MAY support searching by
+patient on the Observation resource. This test
+will pass if resources are returned and match the search criteria. If
+none are returned, the test is skipped.
+
+[AU Core Server CapabilityStatement](http://hl7.org.au/fhir/core//CapabilityStatement-au-core-server.html)
+
+      )
+
+      id :au_core_v100_preview_waistcircum_patient_search_test
+      optional
+
+      input :patient_ids,
+            title: 'Patient IDs',
+            description: 'Comma separated list of patient IDs that in sum contain all MUST SUPPORT elements',
+            default: 'baratz-toni, irvine-ronny-lawrence, italia-sofia, howe-deangelo, hayes-arianne, baby-banks-john, banks-mia-leanne'
+
+      def self.properties
+        @properties ||= SearchTestProperties.new(
+          resource_type: 'Observation',
+          search_param_names: ['patient'],
+          possible_status_search: true
+        )
+      end
+
+      def self.metadata
+        @metadata ||= Generator::GroupMetadata.new(YAML.load_file(File.join(__dir__, 'metadata.yml'), aliases: true))
+      end
+
+      def scratch_resources
+        scratch[:waistcircum_resources] ||= {}
+      end
+
+      run do
+        run_search_test
+      end
+    end
+  end
+end

data/lib/au_core_test_kit/generated/v1.0.0-preview/waistcircum/waistcircum_read_test.rb

@@ -0,0 +1,28 @@
+# frozen_string_literal: true
+
+require_relative '../../../read_test'
+
+module AUCoreTestKit
+  module AUCoreV100_PREVIEW
+    class WaistcircumReadTest < Inferno::Test
+      include AUCoreTestKit::ReadTest
+
+      title '(SHALL) Server returns correct Observation resource from Observation read interaction'
+      description 'A server SHALL support the Observation read interaction.'
+
+      id :au_core_v100_preview_waistcircum_read_test
+
+      def resource_type
+        'Observation'
+      end
+
+      def scratch_resources
+        scratch[:waistcircum_resources] ||= {}
+      end
+
+      run do
+        perform_read_test(all_scratch_resources)
+      end
+    end
+  end
+end

data/lib/au_core_test_kit/generated/v1.0.0-preview/waistcircum/waistcircum_reference_resolution_test.rb

@@ -0,0 +1,42 @@
+# frozen_string_literal: true
+
+require_relative '../../../reference_resolution_test'
+
+module AUCoreTestKit
+  module AUCoreV100_PREVIEW
+    class WaistcircumReferenceResolutionTest < Inferno::Test
+      include AUCoreTestKit::ReferenceResolutionTest
+
+      title 'MustSupport references within Observation resources are valid'
+      description %(
+        This test will attempt to read external references provided within elements
+        marked as 'MustSupport', if any are available.
+
+        It verifies that at least one external reference for each MustSupport Reference element
+        can be accessed by the test client, and conforms to corresponding AU Core profile.
+
+        Elements which may provide external references include:
+
+        * Observation.subject
+      )
+
+      id :au_core_v100_preview_waistcircum_reference_resolution_test
+
+      def resource_type
+        'Observation'
+      end
+
+      def self.metadata
+        @metadata ||= Generator::GroupMetadata.new(YAML.load_file(File.join(__dir__, 'metadata.yml'), aliases: true))
+      end
+
+      def scratch_resources
+        scratch[:waistcircum_resources] ||= {}
+      end
+
+      run do
+        perform_reference_resolution_test(scratch_resources[:all])
+      end
+    end
+  end
+end

data/lib/au_core_test_kit/generated/v1.0.0-preview/waistcircum/waistcircum_status_multiple_or_search_test.rb

@@ -0,0 +1,49 @@
+# frozen_string_literal: true
+
+require_relative '../../../search_test'
+require_relative '../../../generator/group_metadata'
+require_relative '../../../helpers'
+
+module AUCoreTestKit
+  module AUCoreV100_PREVIEW
+    class WaistcircumStatusMultipleOrSearchTest < Inferno::Test
+      include AUCoreTestKit::SearchTest
+
+      title '(SHOULD) Server returns valid results for Observation multipleOr search by status'
+      description %(A server SHOULD support searching by multipleOr
+status on the Observation resource. This test
+will pass if resources are returned and match the search criteria. If
+none are returned, the test is skipped.
+
+[AU Core Server CapabilityStatement](http://hl7.org.au/fhir/core//CapabilityStatement-au-core-server.html)
+)
+
+      id :au_core_v100_preview_waistcircum_status_multiple_or_search_test
+
+      optional
+
+      input :patient_ids,
+            title: 'Patient IDs',
+            description: 'Comma separated list of patient IDs that in sum contain all MUST SUPPORT elements',
+            default: 'baratz-toni, irvine-ronny-lawrence, italia-sofia, howe-deangelo, hayes-arianne, baby-banks-john, banks-mia-leanne'
+
+      def self.properties
+        @properties ||= SearchTestProperties.new(resource_type: 'Observation',
+                                                 search_param_names: ['status'],
+                                                 multiple_or_search_params: true)
+      end
+
+      def self.metadata
+        @metadata ||= Generator::GroupMetadata.new(YAML.load_file(File.join(__dir__, 'metadata.yml'), aliases: true))
+      end
+
+      def scratch_resources
+        scratch[:waistcircum_resources] ||= {}
+      end
+
+      run do
+        perform_multiple_or_search_test
+      end
+    end
+  end
+end

data/lib/au_core_test_kit/generated/v1.0.0-preview/waistcircum/waistcircum_status_search_test.rb

@@ -0,0 +1,46 @@
+# frozen_string_literal: true
+
+require_relative '../../../search_test'
+require_relative '../../../generator/group_metadata'
+require_relative '../../../helpers'
+
+module AUCoreTestKit
+  module AUCoreV100_PREVIEW
+    class WaistcircumStatusSearchTest < Inferno::Test
+      include AUCoreTestKit::SearchTest
+
+      title '(MAY) Server returns valid results for Observation search by status'
+      description %(
+A server MAY support searching by
+status on the Observation resource. This test
+will pass if resources are returned and match the search criteria. If
+none are returned, the test is skipped.
+
+[AU Core Server CapabilityStatement](http://hl7.org.au/fhir/core//CapabilityStatement-au-core-server.html)
+
+      )
+
+      id :au_core_v100_preview_waistcircum_status_search_test
+      optional
+
+      def self.properties
+        @properties ||= SearchTestProperties.new(
+          resource_type: 'Observation',
+          search_param_names: ['status']
+        )
+      end
+
+      def self.metadata
+        @metadata ||= Generator::GroupMetadata.new(YAML.load_file(File.join(__dir__, 'metadata.yml'), aliases: true))
+      end
+
+      def scratch_resources
+        scratch[:waistcircum_resources] ||= {}
+      end
+
+      run do
+        run_search_test
+      end
+    end
+  end
+end

data/lib/au_core_test_kit/generated/v1.0.0-preview/waistcircum/waistcircum_validation_test.rb

@@ -0,0 +1,42 @@
+# frozen_string_literal: true
+
+require_relative '../../../validation_test'
+
+module AUCoreTestKit
+  module AUCoreV100_PREVIEW
+    class WaistcircumValidationTest < Inferno::Test
+      include AUCoreTestKit::ValidationTest
+
+      id :au_core_v100_preview_waistcircum_validation_test
+      title 'Observation resources returned during previous tests conform to the AU Core Waist Circumference'
+      description %(
+This test verifies resources returned from the first search conform to
+the [AU Core Waist Circumference](http://hl7.org.au/fhir/core/StructureDefinition/au-core-waistcircum).
+If at least one resource from the first search is invalid, the test will fail.
+
+It verifies the presence of mandatory elements and that elements with
+required bindings contain appropriate values. CodeableConcept element
+bindings will fail if none of their codings have a code/system belonging
+to the bound ValueSet. Quantity, Coding, and code element bindings will
+fail if their code/system are not found in the valueset.
+
+      )
+      output :dar_code_found, :dar_extension_found
+
+      def resource_type
+        'Observation'
+      end
+
+      def scratch_resources
+        scratch[:waistcircum_resources] ||= {}
+      end
+
+      run do
+        perform_validation_test(scratch_resources[:all] || [],
+                                'http://hl7.org.au/fhir/core/StructureDefinition/au-core-waistcircum',
+                                '1.0.0-preview',
+                                skip_if_empty: true)
+      end
+    end
+  end
+end

data/lib/au_core_test_kit/generated/v1.0.0-preview/waistcircum_group.rb

@@ -0,0 +1,115 @@
+# frozen_string_literal: true
+
+require_relative 'waistcircum/waistcircum_patient_code_search_test'
+require_relative 'waistcircum/waistcircum_category_search_test'
+require_relative 'waistcircum/waistcircum_code_search_test'
+require_relative 'waistcircum/waistcircum_date_search_test'
+require_relative 'waistcircum/waistcircum_status_search_test'
+require_relative 'waistcircum/waistcircum_patient_search_test'
+require_relative 'waistcircum/waistcircum_patient_category_search_test'
+require_relative 'waistcircum/waistcircum_patient_category_date_search_test'
+require_relative 'waistcircum/waistcircum_patient_category_status_search_test'
+require_relative 'waistcircum/waistcircum_patient_code_date_search_test'
+require_relative 'waistcircum/waistcircum_code_multiple_or_search_test'
+require_relative 'waistcircum/waistcircum_status_multiple_or_search_test'
+require_relative 'waistcircum/waistcircum_date_multiple_and_search_test'
+require_relative 'waistcircum/waistcircum_patient_chain_search_test'
+require_relative 'waistcircum/waistcircum_patient_ihi_chain_search_test'
+require_relative 'waistcircum/waistcircum_patient_medicare_chain_search_test'
+require_relative 'waistcircum/waistcircum_patient_dva_chain_search_test'
+require_relative 'waistcircum/waistcircum_read_test'
+require_relative 'waistcircum/waistcircum_validation_test'
+require_relative 'waistcircum/waistcircum_must_support_test'
+require_relative 'waistcircum/waistcircum_reference_resolution_test'
+
+module AUCoreTestKit
+  module AUCoreV100_PREVIEW
+    class WaistcircumGroup < Inferno::TestGroup
+      title 'Observation Waist Circumference Tests'
+      short_description 'Verify support for the server capabilities required by the AU Core Waist Circumference.'
+      description %(
+  # Background
+
+The AU Core Observation Waist Circumference sequence verifies that the system under test is
+able to provide correct responses for Observation queries. These queries
+must contain resources conforming to the AU Core Waist Circumference as
+specified in the AU Core v1.0.0-preview Implementation Guide.
+
+# Testing Methodology
+## Searching
+This test sequence will first perform each required search associated
+with this resource. This sequence will perform searches with the
+following parameters:
+
+* patient + code
+* patient + category
+* patient + category + date
+
+### Search Parameters
+The first search uses the selected patient(s) from the prior launch sequence. Any subsequent searches will look for its parameter values from the results of the first search. For example, the `identifier` search in the patient sequence is performed by looking for an existing `Patient.identifier` from any of the resources returned in the `_id` search. If a value cannot be found this way, the search is skipped.
+
+### Search Validation
+Inferno will retrieve up to the first 20 bundle pages of the reply for
+Observation resources and save them for subsequent tests. Each of
+these resources is then checked to see if it matches the searched
+parameters in accordance with [FHIR search
+guidelines](https://www.hl7.org/fhir/search.html). The test will fail,
+for example, if a Patient search for `gender=male` returns a `female`
+patient.
+
+
+## Must Support
+Each profile contains elements marked as "must support". This test
+sequence expects to see each of these elements at least once. If at
+least one cannot be found, the test will fail. The test will look
+through the Observation resources found in the first test for these
+elements.
+
+## Profile Validation
+Each resource returned from the first search is expected to conform to
+the [AU Core Waist Circumference](http://hl7.org.au/fhir/core/StructureDefinition/au-core-waistcircum). Each element is checked against
+teminology binding and cardinality requirements.
+
+Elements with a required binding are validated against their bound
+ValueSet. If the code/system in the element is not part of the ValueSet,
+then the test will fail.
+
+## Reference Validation
+At least one instance of each external reference in elements marked as
+"must support" within the resources provided by the system must resolve.
+The test will attempt to read each reference found and will fail if no
+read succeeds.
+
+      )
+
+      id :au_core_v100_preview_waistcircum
+      run_as_group
+
+      def self.metadata
+        @metadata ||= Generator::GroupMetadata.new(YAML.load_file(File.join(__dir__, 'waistcircum', 'metadata.yml'), aliases: true))
+      end
+
+      test from: :au_core_v100_preview_waistcircum_patient_code_search_test
+      test from: :au_core_v100_preview_waistcircum_category_search_test
+      test from: :au_core_v100_preview_waistcircum_code_search_test
+      test from: :au_core_v100_preview_waistcircum_date_search_test
+      test from: :au_core_v100_preview_waistcircum_status_search_test
+      test from: :au_core_v100_preview_waistcircum_patient_search_test
+      test from: :au_core_v100_preview_waistcircum_patient_category_search_test
+      test from: :au_core_v100_preview_waistcircum_patient_category_date_search_test
+      test from: :au_core_v100_preview_waistcircum_patient_category_status_search_test
+      test from: :au_core_v100_preview_waistcircum_patient_code_date_search_test
+      test from: :au_core_v100_preview_waistcircum_code_multiple_or_search_test
+      test from: :au_core_v100_preview_waistcircum_status_multiple_or_search_test
+      test from: :au_core_v100_preview_waistcircum_date_multiple_and_search_test
+      test from: :au_core_v100_preview_waistcircum_patient_chain_search_test
+      test from: :au_core_v100_preview_waistcircum_patient_ihi_chain_search_test
+      test from: :au_core_v100_preview_waistcircum_patient_medicare_chain_search_test
+      test from: :au_core_v100_preview_waistcircum_patient_dva_chain_search_test
+      test from: :au_core_v100_preview_waistcircum_read_test
+      test from: :au_core_v100_preview_waistcircum_validation_test
+      test from: :au_core_v100_preview_waistcircum_must_support_test
+      test from: :au_core_v100_preview_waistcircum_reference_resolution_test
+    end
+  end
+end

data/lib/au_core_test_kit/generator/chain_search_test_generator.rb

@@ -0,0 +1,169 @@
+# frozen_string_literal: true
+
+require_relative 'naming'
+require_relative 'special_cases'
+
+module AUCoreTestKit
+  class Generator
+    class ChainSearchTestGenerator
+      class << self
+        def generate(ig_metadata, base_output_dir)
+          ig_metadata.groups
+                     .select { |group| group.searches.present? }
+                     .each do |group|
+            group.search_definitions.each_key do |search_key|
+              current_search_definition = group.search_definitions[search_key]
+              next unless current_search_definition.key?(:chain) && current_search_definition[:chain].length.positive?
+
+              current_search_definition[:chain].each do |chain_item|
+                new(
+                  search_key.to_s,
+                  group,
+                  group.search_definitions[search_key],
+                  base_output_dir,
+                  chain_item
+                ).generate
+              end
+            end
+          end
+        end
+      end
+
+      attr_accessor :search_name, :group_metadata, :search_metadata, :base_output_dir, :chain_item
+
+      def initialize(search_name, group_metadata, search_metadata, base_output_dir, chain_item)
+        self.search_name = search_name
+        self.group_metadata = group_metadata
+        self.search_metadata = search_metadata
+        self.base_output_dir = base_output_dir
+        self.chain_item = chain_item
+      end
+
+      def template
+        @template ||= File.read(File.join(__dir__, 'templates', 'chain_search.rb.erb'))
+      end
+
+      def output
+        @output ||= ERB.new(template).result(binding)
+      end
+
+      def base_output_file_name
+        "#{class_name.underscore}.rb"
+      end
+
+      def output_file_directory
+        File.join(base_output_dir, profile_identifier)
+      end
+
+      def output_file_name
+        File.join(output_file_directory, base_output_file_name)
+      end
+
+      def profile_identifier
+        Naming.snake_case_for_profile(group_metadata)
+      end
+
+      def test_id
+        "au_core_#{group_metadata.reformatted_version}_#{profile_identifier}_#{search_identifier}_chain_search_test"
+      end
+
+      def search_identifier
+        search_name.to_s.tr('-', '_')
+      end
+
+      def search_title
+        search_identifier.camelize
+      end
+
+      def class_name
+        "#{Naming.upper_camel_case_for_profile(group_metadata)}#{search_title}ChainSearchTest"
+      end
+
+      def module_name
+        "AUCore#{group_metadata.reformatted_version.upcase}"
+      end
+
+      def resource_type
+        group_metadata.resource
+      end
+
+      def conformance_expectation
+        chain_item[:expectation]
+      end
+
+      def search_param_names
+        ["#{search_name}:#{chain_item[:target]}.#{chain_item[:chain]}"]
+      end
+
+      def search_param_names_array
+        array_of_strings(search_param_names)
+      end
+
+      def search_param_name_string
+        search_name
+      end
+
+      def search_properties
+        {}.tap do |properties|
+          properties[:resource_type] = "'#{resource_type}'"
+          properties[:search_param_names] = search_param_names_array
+          properties[:attr_paths] = attribute_paths
+        end
+      end
+
+      def attribute_paths
+        search_metadata[:paths]
+      end
+
+      def optional?
+        conformance_expectation != 'SHALL'
+      end
+
+      def search_definition(name)
+        group_metadata.search_definitions[name.to_sym]
+      end
+
+      def array_of_strings(array)
+        quoted_strings = array.map { |element| "'#{element}'" }
+        "[#{quoted_strings.join(', ')}]"
+      end
+
+      def search_test_properties_string
+        search_properties
+          .map { |key, value| "#{' ' * 8}#{key}: #{value}" }
+          .join(",\n")
+      end
+
+      def url_version
+        case group_metadata.version
+        when 'v0.3.0-ballot'
+          '0.3.0-ballot'
+        end
+      end
+
+      def generate
+        FileUtils.mkdir_p(output_file_directory)
+        File.open(output_file_name, 'w') { |f| f.write(output) }
+
+        group_metadata.add_test(
+          id: test_id,
+          file_name: base_output_file_name
+        )
+      end
+
+      def title
+        "Server returns valid results for #{resource_type} search by #{search_param_name_string} (chained parameters)"
+      end
+
+      def description
+        <<~DESCRIPTION.gsub(/\n{3,}/, "\n\n")
+          A server #{conformance_expectation} support searching by
+          #{search_param_names.first} on the #{resource_type} resource. This test
+          will pass if the server returns a success response to the request.
+
+          [AU Core Server CapabilityStatement](http://hl7.org.au/fhir/core/#{url_version}/CapabilityStatement-au-core-server.html)
+        DESCRIPTION
+      end
+    end
+  end
+end

data/lib/au_core_test_kit/generator/group_generator.rb

@@ -0,0 +1,143 @@
+# frozen_string_literal: true
+
+require_relative 'naming'
+require_relative 'special_cases'
+require_relative '../helpers'
+
+module AUCoreTestKit
+  class Generator
+    class GroupGenerator
+      class << self
+        def generate(ig_metadata, base_output_dir)
+          ig_metadata.ordered_groups
+                     .compact
+                     .reject { |group| SpecialCases.exclude_group? group }
+                     .each { |group| new(group, base_output_dir).generate }
+        end
+      end
+
+      attr_accessor :group_metadata, :base_output_dir
+
+      def initialize(group_metadata, base_output_dir)
+        self.group_metadata = group_metadata
+        self.base_output_dir = base_output_dir
+      end
+
+      def template
+        @template ||= File.read(File.join(__dir__, 'templates', 'group.rb.erb'))
+      end
+
+      def output
+        @output ||= ERB.new(template).result(binding)
+      end
+
+      def base_output_file_name
+        "#{class_name.underscore}.rb"
+      end
+
+      def base_metadata_file_name
+        'metadata.yml'
+      end
+
+      def class_name
+        "#{Naming.upper_camel_case_for_profile(group_metadata)}Group"
+      end
+
+      def module_name
+        "AUCore#{group_metadata.reformatted_version.upcase}"
+      end
+
+      def title
+        group_metadata.title
+      end
+
+      def short_description
+        group_metadata.short_description
+      end
+
+      def output_file_name
+        File.join(base_output_dir, base_output_file_name)
+      end
+
+      def metadata_file_name
+        File.join(base_output_dir, profile_identifier, base_metadata_file_name)
+      end
+
+      def profile_identifier
+        Naming.snake_case_for_profile(group_metadata)
+      end
+
+      def group_id
+        "au_core_#{group_metadata.reformatted_version}_#{profile_identifier}"
+      end
+
+      def resource_type
+        group_metadata.resource
+      end
+
+      def search_validation_resource_type
+        "#{resource_type} resources"
+      end
+
+      def profile_name
+        group_metadata.profile_name
+      end
+
+      def profile_url
+        group_metadata.profile_url
+      end
+
+      def optional?
+        resource_type == 'QuestionnaireResponse'
+      end
+
+      def generate
+        add_special_tests
+        File.open(output_file_name, 'w') { |f| f.write(output) }
+        group_metadata.id = group_id
+        group_metadata.file_name = base_output_file_name
+        File.open(metadata_file_name, 'w') { |f| f.write(YAML.dump(group_metadata.to_hash)) }
+      end
+
+      def add_special_tests
+        return if group_metadata.reformatted_version == 'v311'
+
+        case group_metadata.resource
+        when 'DocumentReference'
+          group_metadata.add_test(
+            id: 'au_core_v400_document_reference_custodian_test',
+            file_name: '../../custom_groups/v4.0.0/document_reference_custodian_test.rb'
+          )
+        end
+      end
+
+      def test_id_list
+        @test_id_list ||= group_metadata.tests.map { |test| test[:id] }
+      end
+
+      def test_file_list
+        @test_file_list ||=
+          group_metadata.tests.map do |test|
+            name_without_suffix = test[:file_name].delete_suffix('.rb')
+            name_without_suffix.start_with?('..') ? name_without_suffix : "#{profile_identifier}/#{name_without_suffix}"
+          end
+      end
+
+      def required_searches
+        group_metadata.searches.select { |search| search[:expectation] == 'SHALL' }
+      end
+
+      def search_param_name_string
+        required_searches
+          .map { |search| search[:names].join(' + ') }
+          .map { |names| "* #{names}" }
+          .join("\n")
+      end
+
+      def description
+        Helpers.get_group_description_text(title, resource_type, profile_name, group_metadata.version, profile_url,
+                                           required_searches, search_param_name_string, search_validation_resource_type, resource_type)
+      end
+    end
+  end
+end