require 'domkey/view/option_selectable'
require 'domkey/view/labeled_group'

module Domkey
  module View

    #OptionsSelectable CheckboxGroup, RadioGroup
    class OptionSelectableGroup < PageObjectCollection

      include OptionSelectable

      def before_set
        validate_scope
      end

      def set_by_index value
        [*value].each { |i| self[i.to_i].set(true) }
      end

      def set_by_label value
        to_labeled.__send__(:set_strategy, value)
      end

      def set_by_value value
        o = case value
            when String
              find { |o| o.value == value }
            when Regexp
              find { |o| o.value.match(value) }
            end
        o ? o.element.set : fail(Exception::NotFoundError, "Element not found with value: #{value.inspect}")
      end

      def value_by_default
        validate_scope
        find_all { |e| e.element.set? }.map { |e| e.value }
      end

      def value_by_options opts
        validate_scope
        result = []
        each_with_index do |e, i|
          if e.element.set?

            v = opts.map do |o|
              case o
              when :index
                [o, i]
              when :label, :text
                [o, LabelMapper.find(e).element.text]
              else
                [o, e.send(o)]
              end
            end
            result << Hash[v]
          end
        end
        result
      end

      def options_by_default
        validate_scope
        map { |e| e.value }
      end

      def options_by opts
        validate_scope
        result = []
        each_with_index do |e, i|

          v = opts.map do |o|
            case o
            when :index
              [o, i]
            when :label, :text
              [o, LabelMapper.find(e).element.text]
            else
              [o, e.send(o)]
            end
          end
          result << Hash[v]
        end

        result
      end

      # convert to LabeledGroup settable by corresponding label text
      def to_labeled
        LabeledGroup.new(self)
      end


      # @yield [PageObject]
      def each(&blk)
        validate_scope
        super(&blk)
      end

      # @return [Array<PageObject>]
      def to_a
        validate_scope
        super
      end

      private

      # precondition on acting on this collection
      # @return [true] when all radios in collection share the same name attribute
      # @raise [Exception::Error] when where is more than one unique name attribute
      # --
      # returns true on subsequent unless magically more radios show up after initial validation
      def validate_scope
        return if @validated
        groups = element.map { |e| e.name }.uniq
        fail(Exception::Error, "RadioGroup definition scope too broad: Found #{groups.count} radio groups with names: #{groups}") unless (groups.size == 1)
        @validated = true
      end

    end
  end
end