# frozen_string_literal: true
require 'test_helper'

require_relative '../../app/helpers/shoelace/form_helper'

class FormHelperTest < ActionView::TestCase
  include Shoelace::FormHelper

  AUTOCOMPLETE_ATTRIBUTE = ActionView::VERSION::STRING >= '6.1.0' ? 'autocomplete="off"' : ''

  test "#sl_text_field_tag with name and value" do
    assert_dom_equal <<~HTML, sl_text_field_tag('name', 'Your name')
      <sl-input type="text" name="name" id="name" value="Your name"></sl-input>
    HTML
  end

  test "#sl_text_field_tag with class string" do
    assert_dom_equal <<~HTML, sl_text_field_tag('name', 'Your name', class: "admin")
      <sl-input type="text" name="name" id="name" value="Your name" class="admin"></sl-input>
    HTML
  end

  test "#sl_text_field_tag with params" do
    assert_raises ActionController::UnfilteredParameters do
      sl_text_field_tag('name', 'Your name', **ActionController::Parameters.new(key: "value"))
    end
  end

  test "#sl_text_field_tag with disabled: true" do
    assert_dom_equal <<~HTML, sl_text_field_tag('name', 'Your name', disabled: true)
      <sl-input type="text" name="name" id="name" value="Your name" disabled="disabled"></sl-input>
    HTML
  end

  test "#sl_submit_tag" do
    assert_dom_equal <<~HTML, sl_submit_tag("Save")
      <sl-button type="submit" variant="primary" data-disable-with="Save">Save</sl-button>
    HTML
  end

  test "#sl_submit_tag with onclick" do
    assert_dom_equal <<~HTML, sl_submit_tag("Save", onclick: "alert('hello!')", data: { disable_with: "Saving..." })
      <sl-button type="submit" variant="primary" onclick="alert(&#39;hello!&#39;)" data-disable-with="Saving...">Save</sl-button>
    HTML
  end

  test "#sl_radio_button" do
    assert_dom_equal(<<~HTML, sl_radio_button(:user, :name, 'userid-314', checked: true) { "Yuki Nishijima" })
      <sl-radio value="userid-314" checked="checked" id="user_name_userid-314">Yuki Nishijima</sl-radio>
    HTML
  end

  test "#sl_form_with" do
    assert_dom_equal(<<~HTML, sl_form_with(url: "/") {})
      <form action="/" accept-charset="UTF-8" data-remote="true" method="post">
        <input name="utf8" type="hidden" value="&#x2713;" #{AUTOCOMPLETE_ATTRIBUTE} />
      </sl-form>
    HTML
  end

  test "#sl_form_for" do
    assert_dom_equal(<<~HTML, sl_form_for(User.new, url: "/") { })
      <form class="new_user" id="new_user" action="/" accept-charset="UTF-8" method="post">
        <input name="utf8" type="hidden" value="&#x2713;" #{AUTOCOMPLETE_ATTRIBUTE} />
      </sl-form>
    HTML
  end

  test "#text_field" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.text_field(:name)
        <sl-input label="Name" type="text" name="user[name]" id="user_name"></sl-input>
      HTML
    end
  end

  test "#text_field with a default value" do
    sl_form_for(User.new(name: "Yuki"), url: "/") do |form|
      assert_dom_equal <<~HTML, form.text_field(:name)
        <sl-input label="Name" type="text" name="user[name]" id="user_name" value="Yuki"></sl-input>
      HTML
    end
  end

  test "#email_field" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.email_field(:name)
        <sl-input label="Name" type="email" name="user[name]" id="user_name"></sl-input>
      HTML
    end
  end

  test "#number_field" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.number_field(:name)
        <sl-input label="Name" type="number" name="user[name]" id="user_name"></sl-input>
      HTML
    end
  end

  test "#password_field" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.password_field(:name)
        <sl-input label="Name" type="password" name="user[name]" id="user_name"></sl-input>
      HTML
    end
  end

  test "#search_field" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.search_field(:name)
        <sl-input label="Name" type="search" name="user[name]" id="user_name"></sl-input>
      HTML
    end
  end

  test "#telephone_field" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.telephone_field(:name)
        <sl-input label="Name" type="tel" name="user[name]" id="user_name"></sl-input>
      HTML
    end
  end

  test "#phone_field" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.phone_field(:name)
        <sl-input label="Name" type="tel" name="user[name]" id="user_name"></sl-input>
      HTML
    end
  end

  test "#text_field with a block" do
    sl_form_for(User.new(name: "Yuki"), url: "/") do |form|
      assert_dom_equal <<~HTML, form.text_field(:name) { 'slot' }
        <sl-input label="Name" type="text" name="user[name]" id="user_name" value="Yuki">slot</sl-input>
      HTML
    end
  end

  test "#url_field" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.url_field(:name)
        <sl-input label="Name" type="url" name="user[name]" id="user_name"></sl-input>
      HTML
    end
  end

  test "#color_field" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.color_field(:name)
        <sl-color-picker name="user[name]" id="user_name"></sl-color-picker>
      HTML
    end
  end

  test "#range_field" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.range_field(:name)
        <sl-range label="Name" name="user[name]" id="user_name"></sl-range>
      HTML
    end
  end

  test "#range_field without a label" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.range_field(:name, label: nil)
        <sl-range name="user[name]" id="user_name"></sl-range>
      HTML
    end
  end

  test "#switch_field" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.switch_field(:name)
        <sl-switch name="user[name]" id="user_name">Name</sl-switch>
      HTML
    end
  end

  test "#text_area" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.text_area(:name)
        <sl-textarea label="Name" resize="auto" name="user[name]" id="user_name"></sl-textarea>
      HTML
    end
  end

  test "#text_area with a value" do
    sl_form_for(User.new(name: "Yuki Nishijima"), url: "/") do |form|
      assert_dom_equal <<~HTML, form.text_area(:name)
        <sl-textarea label="Name" resize="auto" value="Yuki Nishijima" name="user[name]" id="user_name"></sl-textarea>
      HTML
    end
  end

  test "#text_area with an one-off value" do
    sl_form_for(User.new(name: "Yuki Nishijima"), url: "/") do |form|
      assert_dom_equal <<~HTML, form.text_area(:name, value: "Yuki")
        <sl-textarea label="Name" resize="auto" value="Yuki" name="user[name]" id="user_name"></sl-textarea>
      HTML
    end
  end

  test "#text_area without a label" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.text_area(:name, label: nil)
        <sl-textarea resize="auto" name="user[name]" id="user_name"></sl-textarea>
      HTML
    end
  end

  test "#text_area with a size" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.text_area(:name, size: "small")
        <sl-textarea label="Name" resize="auto" size="small" name="user[name]" id="user_name"></sl-textarea>
      HTML
    end
  end

  test "#text_area with a block" do
    sl_form_for(User.new, url: "/") do |form|
      expected = <<~HTML
        <sl-textarea label="Name" resize="auto" name="user[name]" id="user_name">
          <div slot="help-text">Name can not be blank.</div>
        </sl-textarea>
      HTML

      assert_dom_equal(expected, form.text_area(:name) {
        content_tag(:div, "Name can not be blank.", slot: "help-text")
      })
    end
  end

  test "#check_box" do
    sl_form_for(User.new, url: "/") do |form|
      if ActionView::VERSION::STRING >= '6.1.0'
        assert_dom_equal <<~HTML, form.check_box(:name)
          <input name="user[name]" type="hidden" value="0" autocomplete="off" />
          <sl-checkbox value="1" name="user[name]" id="user_name">Name</sl-checkbox>
        HTML
      else
        assert_dom_equal <<~HTML, form.check_box(:name)
          <input name="user[name]" type="hidden" value="0" />
          <sl-checkbox value="1" name="user[name]" id="user_name">Name</sl-checkbox>
        HTML
      end
    end
  end

  test "#check_box with a block" do
    sl_form_for(User.new, url: "/") do |form|
      if ActionView::VERSION::STRING >= '6.1.0'
        assert_dom_equal <<~HTML, form.check_box(:name) { "Maintainer Name" }
          <input name="user[name]" type="hidden" value="0" autocomplete="off" />
          <sl-checkbox value="1" name="user[name]" id="user_name">Maintainer Name</sl-checkbox>
        HTML
      else
        assert_dom_equal <<~HTML, form.check_box(:name) { "Maintainer Name" }
          <input name="user[name]" type="hidden" value="0" />
          <sl-checkbox value="1" name="user[name]" id="user_name">Maintainer Name</sl-checkbox>
        HTML
      end
    end
  end

  test "#check_box without a hidden input" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.check_box(:name, include_hidden: false) { "Maintainer Name" }
        <sl-checkbox value="1" name="user[name]" id="user_name">Maintainer Name</sl-checkbox>
      HTML
    end
  end

  test "#select" do
    users = {
      "Yuki Nishijima" => 1,
      "Matz" => 2,
      "Koichi Sasada" => 3
    }

    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.select(:name, users)
        <sl-select label="Name" name="user[name]" id="user_name">
          <sl-option value="1">Yuki Nishijima</sl-option>
          <sl-option value="2">Matz</sl-option>
          <sl-option value="3">Koichi Sasada</sl-option>
        </sl-select>
      HTML
    end
  end

  test "#select with a custom value" do
    users = {
      "Yuki Nishijima" => 1,
      "Matz" => 2,
      "Koichi Sasada" => 3
    }

    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.select(:name, users, {}, { value: 3 })
        <sl-select label="Name" value="3" name="user[name]" id="user_name">
          <sl-option value="1">Yuki Nishijima</sl-option>
          <sl-option value="2">Matz</sl-option>
          <sl-option value="3">Koichi Sasada</sl-option>
        </sl-select>
      HTML
    end
  end

  test "#select with custom selected and disabled values" do
    users = {
      "Yuki Nishijima" => 1,
      "Matz" => 2,
      "Koichi Sasada" => 3
    }

    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.select(:name, users, selected: 3, disabled: 1)
        <sl-select label="Name" name="user[name]" id="user_name">
          <sl-option value="1" disabled="disabled">Yuki Nishijima</sl-option>
          <sl-option value="2">Matz</sl-option>
          <sl-option value="3" checked="checked">Koichi Sasada</sl-option>
        </sl-select>
      HTML
    end
  end

  test "#select with multiple" do
    users = {
      "Yuki Nishijima" => 1,
      "Matz" => 2,
      "Koichi Sasada" => 3
    }

    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.select(:name, users, {}, { multiple: true })
        <sl-select label="Name" name="user[name][]" id="user_name" multiple="multiple">
          <sl-option value="1">Yuki Nishijima</sl-option>
          <sl-option value="2">Matz</sl-option>
          <sl-option value="3">Koichi Sasada</sl-option>
        </sl-select>
      HTML
    end
  end

  test "#select with grouped options" do
    users = {
      "Main maintainers" => [
        ["Matz", 2],
        ["Koichi Sasada", 3]
      ],
      "Default gem maintainers" => [
        ["Yuki Nishijima", 1],
      ]
    }

    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.select(:name, users)
        <sl-select label="Name" name="user[name]" id="user_name">
          <small>Main maintainers</small>
          <sl-option value="2">Matz</sl-option>
          <sl-option value="3">Koichi Sasada</sl-option>
          <sl-divider></sl-divider>
          <small>Default gem maintainers</small>
          <sl-option value="1">Yuki Nishijima</sl-option>
        </sl-select>
      HTML
    end
  end

  test "#select with grouped options with a default value" do
    users = {
      "Main maintainers" => [
        ["Matz", 2],
        ["Koichi Sasada", 3]
      ],
      "Default gem maintainers" => [
        ["Yuki Nishijima", 1],
      ]
    }

    sl_form_for(User.new(name: 2), url: "/") do |form|
      assert_dom_equal <<~HTML, form.select(:name, users)
        <sl-select label="Name" name="user[name]" id="user_name" value="2">
          <small>Main maintainers</small>
          <sl-option value="2" checked="checked">Matz</sl-option>
          <sl-option value="3">Koichi Sasada</sl-option>
          <sl-divider></sl-divider>
          <small>Default gem maintainers</small>
          <sl-option value="1">Yuki Nishijima</sl-option>
        </sl-select>
      HTML
    end
  end

  test "#collection_select" do
    users = {
      1 => "Yuki Nishijima",
      2 => "Matz",
      3 => "Koichi Sasada",
    }

    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.collection_select(:name, users, :first, :last)
        <sl-select label="Name" name="user[name]" id="user_name">
          <sl-option value="1">Yuki Nishijima</sl-option>
          <sl-option value="2">Matz</sl-option>
          <sl-option value="3">Koichi Sasada</sl-option>
        </sl-select>
      HTML
    end
  end

  test "#collection_select with a default value" do
    users = {
      1 => "Yuki Nishijima",
      2 => "Matz",
      3 => "Koichi Sasada",
    }

    sl_form_for(User.new(name: "2"), url: "/") do |form|
      assert_dom_equal <<~HTML, form.collection_select(:name, users, :first, :last)
        <sl-select label="Name" name="user[name]" id="user_name" value="2">
          <sl-option value="1">Yuki Nishijima</sl-option>
          <sl-option value="2" checked="checked">Matz</sl-option>
          <sl-option value="3">Koichi Sasada</sl-option>
        </sl-select>
      HTML
    end
  end

  test "#grouped_collection_select" do
    users = [
      OpenStruct.new(
        group_name: "Main maintainers",
        members: [
          OpenStruct.new(id: 1, name: "Matz"),
          OpenStruct.new(id: 2, name: "Koichi Sasada"),
        ]
      ),
      OpenStruct.new(
        group_name: "Default gem maintainers",
        members: [OpenStruct.new(id: 3, name: "Yuki Nishijima")]
      ),
    ]

    sl_form_for(User.new(name: "2"), url: "/") do |form|
      assert_dom_equal <<~HTML, form.grouped_collection_select(:name, users, :members, :group_name, :id, :name)
        <sl-select label="Name" name="user[name]" id="user_name" value="2">
          <small>Main maintainers</small>
          <sl-option value="1">Matz</sl-option>
          <sl-option value="2" checked="checked">Koichi Sasada</sl-option>
          <sl-divider></sl-divider>
          <small>Default gem maintainers</small>
          <sl-option value="3">Yuki Nishijima</sl-option>
        </sl-select>
      HTML
    end
  end

  test "#collection_radio_buttons" do
    users = {
      1 => "Yuki Nishijima",
      2 => "Matz",
      3 => "Koichi Sasada",
    }

    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.collection_radio_buttons(:name, users, :first, :last)
        <sl-radio-group label="Name" name="user[name]" id="user_name">
          <sl-radio value="1" id="user_name_1">Yuki Nishijima</sl-radio>
          <sl-radio value="2" id="user_name_2">Matz</sl-radio>
          <sl-radio value="3" id="user_name_3">Koichi Sasada</sl-radio>
        </sl-radio-group>
      HTML
    end
  end

  test "#collection_radio_buttons with a default value" do
    users = {
      1 => "Yuki Nishijima",
      2 => "Matz",
      3 => "Koichi Sasada",
    }

    sl_form_for(User.new(name: 1), url: "/") do |form|
      assert_dom_equal <<~HTML, form.collection_radio_buttons(:name, users, :first, :last)
        <sl-radio-group label="Name" name="user[name]" value="1" id="user_name">
          <sl-radio value="1" id="user_name_1">Yuki Nishijima</sl-radio>
          <sl-radio value="2" id="user_name_2">Matz</sl-radio>
          <sl-radio value="3" id="user_name_3">Koichi Sasada</sl-radio>
        </sl-radio-group>
      HTML
    end
  end

  test "#submit" do
    sl_form_for(User.new, url: "/") do |form|
      assert_dom_equal <<~HTML, form.submit("Save")
        <sl-button type="submit" variant="primary" data-disable-with="Save">Save</sl-button>
      HTML
    end
  end
end