davinci_plan_net_test_kit 0.9.0

data/lib/davinci_plan_net_test_kit/generator/naming.rb

@@ -0,0 +1,34 @@
+module DaVinciPlanNetTestKit
+  class Generator
+    module Naming
+
+      class << self
+        def resources_with_multiple_profiles
+          ['Organization']
+        end
+
+        def resource_has_multiple_profiles?(resource)
+          resources_with_multiple_profiles.include? resource
+        end
+
+        def snake_case_for_profile(group_metadata)
+          resource = group_metadata.resource
+          return "org_affil" if resource == "OrganizationAffiliation" 
+          return resource.underscore unless resource_has_multiple_profiles?(resource)
+
+          # Networks and Organizations need to be separated
+          case group_metadata.profile_url
+          when 'http://hl7.org/fhir/us/davinci-pdex-plan-net/StructureDefinition/plannet-Network'
+            return 'network'
+          when 'http://hl7.org/fhir/us/davinci-pdex-plan-net/StructureDefinition/plannet-Organization'
+            return 'organization'
+          end
+        end
+
+        def upper_camel_case_for_profile(group_metadata)
+          snake_case_for_profile(group_metadata).camelize
+        end
+      end
+    end
+  end
+end

data/lib/davinci_plan_net_test_kit/generator/read_test_generator.rb

@@ -0,0 +1,86 @@
+require_relative 'naming'
+require_relative 'special_cases'
+
+module DaVinciPlanNetTestKit
+  class Generator
+    class ReadTestGenerator
+      class << self
+        def generate(ig_metadata, base_output_dir)
+          ig_metadata.groups
+            .reject { |group| SpecialCases.exclude_group? group }
+            .select { |group| read_interaction(group).present? }
+            .each { |group| new(group, base_output_dir).generate }
+        end
+
+        def read_interaction(group_metadata)
+          group_metadata.interactions.find { |interaction| interaction[:code] == 'read' }
+        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', 'read.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 read_interaction
+        self.class.read_interaction(group_metadata)
+      end
+
+      def profile_identifier
+        Naming.snake_case_for_profile(group_metadata)
+      end
+
+      def test_id
+        "davinci_plan_net_#{group_metadata.reformatted_version}_#{profile_identifier}_read_test"
+      end
+
+      def class_name
+        "#{Naming.upper_camel_case_for_profile(group_metadata)}ReadTest"
+      end
+
+      def module_name
+        "DaVinciPlanNet#{group_metadata.reformatted_version.upcase}"
+      end
+
+      def resource_type
+        group_metadata.resource
+      end
+
+      def conformance_expectation
+        read_interaction[:expectation]
+      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
+    end
+  end
+end

data/lib/davinci_plan_net_test_kit/generator/reference_resolution_test_generator.rb

@@ -0,0 +1,92 @@
+require_relative 'naming'
+require_relative 'special_cases'
+
+module DaVinciPlanNetTestKit
+  class Generator
+    class ReferenceResolutionTestGenerator
+      class << self
+        def generate(ig_metadata, base_output_dir)
+          ig_metadata.groups
+            .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', 'reference_resolution.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
+        "davinci_plan_net_#{group_metadata.reformatted_version}_#{profile_identifier}_reference_resolution_test"
+      end
+
+      def class_name
+        "#{Naming.upper_camel_case_for_profile(group_metadata)}ReferenceResolutionTest"
+      end
+
+      def module_name
+        "DaVinciPlanNet#{group_metadata.reformatted_version.upcase}"
+      end
+
+      def resource_type
+        group_metadata.resource
+      end
+
+      def resource_collection_string
+        'scratch_resources[:all]'
+      end
+
+      def must_support_references
+        group_metadata.must_supports[:elements]
+          .select { |element| element[:types]&.include?('Reference') }
+      end
+
+      def must_support_reference_list_string
+        must_support_references
+          .map { |element| "#{' ' * 8}* #{resource_type}.#{element[:path]}" }
+          .uniq
+          .sort
+          .join("\n")
+      end
+
+      def generate
+        return if must_support_references.empty?
+
+        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
+    end
+  end
+end

data/lib/davinci_plan_net_test_kit/generator/resource_list_generator.rb

@@ -0,0 +1,42 @@
+module DaVinciPlanNetTestKit
+  class Generator
+    class ResourceListGenerator
+      class << self
+        def generate(ig_metadata, base_output_dir)
+          @ig_metadata = ig_metadata
+
+          FileUtils.mkdir_p(base_output_dir)
+          File.open(File.join(base_output_dir, base_output_file_name), 'w') { |f| f.write(output) }
+        end
+
+        def resource_list
+          @ig_metadata.groups.map(&:resource).uniq
+        end
+
+        def resource_list_string
+          resource_list.map { |resource| "      '#{resource}'" }.join(",\n")
+        end
+
+        def module_name
+          "DaVinciPlanNet#{@ig_metadata.reformatted_version.upcase}"
+        end
+
+        def read_interaction(group_metadata)
+          group_metadata.interactions.find { |interaction| interaction[:code] == 'read' }
+        end
+
+        def template
+          @template ||= File.read(File.join(__dir__, 'templates', 'resource_list.rb.erb'))
+        end
+
+        def output
+          ERB.new(template).result(binding)
+        end
+
+        def base_output_file_name
+          "resource_list.rb"
+        end
+      end
+    end
+  end
+end

data/lib/davinci_plan_net_test_kit/generator/reverse_chain_search_test_generator.rb

@@ -0,0 +1,194 @@
+require_relative 'naming'
+require_relative 'special_cases'
+
+module DaVinciPlanNetTestKit
+  class Generator
+    class ReverseChainSearchTestGenerator
+      class << self
+        def generate(ig_metadata, examples_hash, base_output_dir)
+          examples_hash.keys.each do |group|
+            examples_hash[group].each do |rev_chain_example| 
+              group_to_add_to = ig_metadata.groups.find { |ig_meta_group| ig_meta_group.name == "plannet_#{group}"}
+              new(group_to_add_to, group_to_add_to.searches.first, base_output_dir, rev_chain_example).generate
+            end
+          end
+        end
+      end
+
+      attr_accessor :group_metadata, :search_metadata, :base_output_dir, :source_resource, :target_param, :constraining_param
+
+      def initialize(group_metadata, search_metadata, base_output_dir, rev_chain_example)
+        self.group_metadata = group_metadata
+        self.search_metadata = search_metadata
+        self.base_output_dir = base_output_dir
+        self.source_resource = rev_chain_example["source_resource"]
+        self.target_param = rev_chain_example["target_param"]
+        self.constraining_param = rev_chain_example["constraining_param"]
+      end
+
+      def template
+        @template ||= File.read(File.join(__dir__, 'templates', 'reverse_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.downcase)
+      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
+        "davinci_plan_net_#{group_metadata.reformatted_version}_#{profile_identifier}_reverse_chain_#{search_identifier}_search_test"
+      end
+
+      def search_identifier
+        "#{source_resource}_#{target_param}_#{constraining_param}".gsub(/[-:]/, '_').underscore.gsub("organization_affiliation", "org_affil")
+      end
+
+      def search_title
+        search_identifier.camelize
+      end
+
+      def class_name
+        "#{Naming.upper_camel_case_for_profile(group_metadata)}ReverseChain#{search_title}SearchTest"
+      end
+
+      def module_name
+        "DaVinciPlanNet#{group_metadata.reformatted_version.upcase}"
+      end
+
+      def resource_type
+        group_metadata.resource
+      end
+
+      def search_params
+        @search_params ||=
+          search_metadata[:names].map do |name|
+            {
+              name: name,
+              path: search_definition(name)[:path]
+            }
+          end
+      end
+
+      def first_search?
+        group_metadata.searches.first == search_metadata
+      end
+
+      def fixed_value_search?
+        #TODO
+        false
+      end
+
+      def fixed_value_search_param_name
+        #TODO
+      end
+
+      def a_or_an(name)
+        ['a','e','i','o','u'].include?(name.first.downcase) ? "an #{name}" : "a #{name}"
+      end
+
+      def search_param_names
+        search_params.map { |param| param[:name] }
+      end
+
+      def search_param_names_array
+        array_of_strings(search_param_names)
+      end
+
+      def path_for_value(path)
+        path == 'class' ? 'local_class' : path
+      end
+
+      def required_comparators_for_param(name)
+        search_definition(name)[:comparators].select { |_comparator, expectation| expectation == 'SHALL' }
+      end
+
+      def required_comparators
+        @required_comparators ||=
+          search_param_names.each_with_object({}) do |name, comparators|
+            required_comparators = required_comparators_for_param(name)
+            comparators[name] = required_comparators if required_comparators.present?
+          end
+      end
+
+      def search_definition(name)
+        group_metadata.search_definitions[name.to_sym]
+      end
+
+      def saves_delayed_references?
+        first_search? && group_metadata.delayed_references.present?
+      end
+
+      def possible_status_search?
+        !search_metadata[:names].include?('status') && group_metadata.search_definitions.key?(:status)
+      end
+
+      def token_search_params
+        @token_search_params ||=
+          search_param_names.select do |name|
+            ['Identifier', 'CodeableConcept', 'Coding'].include? group_metadata.search_definitions[name.to_sym][:type]
+          end
+      end
+
+      def token_search_params_string
+        array_of_strings(token_search_params)
+      end
+
+      def required_comparators_string
+        array_of_strings(required_comparators.keys)
+      end
+
+      def array_of_strings(array)
+        quoted_strings = array.map { |element| "'#{element}'" }
+        "[#{quoted_strings.join(', ')}]"
+      end
+
+      def input_name
+        "#{search_identifier}_input"
+      end
+
+      def search_properties
+        {}.tap do |properties|
+          properties[:fixed_value_search] = 'true' if fixed_value_search?
+          properties[:resource_type] = "'#{resource_type}'"
+          properties[:search_param_names] = []
+          properties[:input_name] = "'#{input_name}'"
+          properties[:reverse_chain_param] = "'#{constraining_param}'"
+          properties[:reverse_chain_target] = "'#{target_param}'"
+          properties[:possible_status_search] = 'true' if possible_status_search?
+          properties[:additional_resource_type] = "'#{source_resource}'"
+        end
+      end
+
+      def search_test_properties_string
+        search_properties
+          .map { |key, value| "#{' ' * 10}#{key}: #{value}" }
+          .join(",\n")
+      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
+    end
+  end
+end

data/lib/davinci_plan_net_test_kit/generator/revinclude_search_test_generator.rb

@@ -0,0 +1,204 @@
+require_relative 'naming'
+require_relative 'special_cases'
+
+module DaVinciPlanNetTestKit
+  class Generator
+    class RevincludeSearchTestGenerator
+      class << self
+        def generate(ig_metadata, base_output_dir)
+          ig_metadata.groups
+            .reject { |group| SpecialCases.exclude_group? group }
+            .select { |group| !group.revincludes.empty? }
+            .each do |group|
+              group.revincludes.each { |revinclude| new(group, group.searches.first, base_output_dir, revinclude).generate }
+            end
+        end
+      end
+
+      attr_accessor :group_metadata, :search_metadata, :base_output_dir, :revinclude_param
+
+      def initialize(group_metadata, search_metadata, base_output_dir, revinclude_param)
+        self.group_metadata = group_metadata
+        self.search_metadata = search_metadata
+        self.base_output_dir = base_output_dir
+        self.revinclude_param = revinclude_param
+      end
+
+      def template
+        @template ||= File.read(File.join(__dir__, 'templates', 'revinclude_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.downcase)
+      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
+        "davinci_plan_net_#{group_metadata.reformatted_version}_revinclude_#{profile_identifier}_#{search_identifier}_search_test"
+      end
+
+      def search_identifier
+        revinclude_param.gsub(/[-:]/, '_').underscore
+      end
+
+      def search_title
+        search_identifier.camelize
+      end
+
+      def class_name
+        "#{Naming.upper_camel_case_for_profile(group_metadata)}Revinclude#{search_title}SearchTest"
+      end
+
+      def module_name
+        "DaVinciPlanNet#{group_metadata.reformatted_version.upcase}"
+      end
+
+      def resource_type
+        group_metadata.resource
+      end
+
+      def search_params
+        @search_params ||=
+          search_metadata[:names].map do |name|
+            {
+              name: name,
+              path: search_definition(name)[:path]
+            }
+          end
+      end
+
+      def first_search?
+        group_metadata.searches.first == search_metadata
+      end
+
+      def fixed_value_search?
+        #TODO
+        false
+      end
+
+      def fixed_value_search_param_name
+        #TODO
+      end
+
+      def revinclude_param_string
+        "_revinclude=#{revinclude_param}"
+      end
+
+      def revinclude_param_resource
+        revinclude_param.split(/:/)[0]
+      end
+
+      def rev_param_sp
+        revinclude_param.split(/:/)[1]
+      end
+
+      def search_param_names
+        search_params.map { |param| param[:name] }
+      end
+
+      def search_param_names_array
+        array_of_strings(search_param_names)
+      end
+
+      def path_for_value(path)
+        path == 'class' ? 'local_class' : path
+      end
+
+      def required_comparators_for_param(name)
+        search_definition(name)[:comparators].select { |_comparator, expectation| expectation == 'SHALL' }
+      end
+
+      def required_comparators
+        @required_comparators ||=
+          search_param_names.each_with_object({}) do |name, comparators|
+            required_comparators = required_comparators_for_param(name)
+            comparators[name] = required_comparators if required_comparators.present?
+          end
+      end
+
+      def search_definition(name)
+        group_metadata.search_definitions[name.to_sym]
+      end
+
+      def saves_delayed_references?
+        first_search? && group_metadata.delayed_references.present?
+      end
+
+      def possible_status_search?
+        !search_metadata[:names].include?('status') && group_metadata.search_definitions.key?(:status)
+      end
+
+      def token_search_params
+        @token_search_params ||=
+          search_param_names.select do |name|
+            ['Identifier', 'CodeableConcept', 'Coding'].include? group_metadata.search_definitions[name.to_sym][:type]
+          end
+      end
+
+      def token_search_params_string
+        array_of_strings(token_search_params)
+      end
+
+      def required_comparators_string
+        array_of_strings(required_comparators.keys)
+      end
+
+      def array_of_strings(array)
+        quoted_strings = array.map { |element| "'#{element}'" }
+        "[#{quoted_strings.join(', ')}]"
+      end
+
+      def a_or_an(name)
+        ['a','e','i','o','u'].include?(name.first.downcase) ? "an #{name}" : "a #{name}"
+      end
+
+      def input_name
+        "#{search_identifier}_input"
+      end
+
+      def search_properties
+        {}.tap do |properties|
+          properties[:fixed_value_search] = 'true' if fixed_value_search?
+          properties[:resource_type] = "'#{resource_type}'"
+          properties[:search_param_names] = []
+          properties[:input_name] = "'#{input_name}'"
+          properties[:possible_status_search] = 'true' if possible_status_search?
+          properties[:revinclude_param] = "'#{revinclude_param}'"
+          properties[:rev_param_sp] = "'#{rev_param_sp}'"
+          properties[:additional_resource_type] = "'#{revinclude_param_resource}'"
+        end
+      end
+
+      def search_test_properties_string
+        search_properties
+          .map { |key, value| "#{' ' * 10}#{key}: #{value}" }
+          .join(",\n")
+      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
+    end
+  end
+end