module ARTest
  module SQLServer
    module CoerceableTest

      extend ActiveSupport::Concern

      included do
        cattr_accessor :coerced_tests, instance_accessor: false
        self.coerced_tests = []
      end

      module ClassMethods

        def coerce_tests!(*methods)
          methods.each do |method|
            self.coerced_tests.push(method)
            coerced_test_warning(method)
          end
        end

        def coerce_all_tests!
          once = false
          instance_methods(false).each do |method|
            next unless method.to_s =~ /\Atest/
            undef_method(method)
            once = true
          end
          STDOUT.puts "🙉 🙈 🙊  Undefined all tests: #{self.name}"
        end

        private

        def coerced_test_warning(method)
          method = instance_methods(false).select { |m| m =~ method } if method.is_a?(Regexp)
          Array(method).each do |m|
            result = undef_method(m) if m && method_defined?(m)
            if result.blank?
              STDOUT.puts "🐳  Unfound coerced test: #{self.name}##{m}"
            else
              STDOUT.puts "🐵  Undefined coerced test: #{self.name}##{m}"
            end
          end
        end

      end

    end
  end
end