require 'spec_helper'

describe Clamp::Option::Definition do

  describe "with String argument" do

    let(:option) do
      described_class.new("--key-file", "FILE", "SSH identity")
    end

    it "has a long_switch" do
      option.long_switch.should == "--key-file"
    end

    it "has a type" do
      option.type.should == "FILE"
    end

    it "has a description" do
      option.description.should == "SSH identity"
    end

    describe "#attribute_name" do

      it "is derived from the (long) switch" do
        option.attribute_name.should == "key_file"
      end

      it "can be overridden" do
        option = described_class.new("--key-file", "FILE", "SSH identity", :attribute_name => "ssh_identity")
        option.attribute_name.should == "ssh_identity"
      end

    end

    describe "#write_method" do

      it "is derived from the attribute_name" do
        option.write_method.should == "key_file="
      end

    end

    describe "#default_value" do

      it "defaults to nil" do
        option = described_class.new("-n", "N", "iterations")
        option.default_value.should == nil
      end

      it "can be overridden" do
        option = described_class.new("-n", "N", "iterations", :default => 1)
        option.default_value.should == 1
      end

    end

    describe "#help" do

      it "combines switch, type and description" do
        option.help.should == ["--key-file FILE", "SSH identity"]
      end

    end

  end

  describe "flag" do

    let(:option) do
      described_class.new("--verbose", :flag, "Blah blah blah")
    end

    describe "#default_conversion_block" do

      it "converts truthy values to true" do
        option.default_conversion_block.call("true").should == true
        option.default_conversion_block.call("yes").should == true
      end

      it "converts falsey values to false" do
        option.default_conversion_block.call("false").should == false
        option.default_conversion_block.call("no").should == false
      end

    end

    describe "#help" do

      it "excludes option argument" do
        option.help.should == ["--verbose", "Blah blah blah"]
      end

    end

  end

  describe "negatable flag" do

    let(:option) do
      described_class.new("--[no-]force", :flag, "Force installation")
    end

    it "handles both positive and negative forms" do
      option.handles?("--force").should be_true
      option.handles?("--no-force").should be_true
    end

    describe "#flag_value" do

      it "returns true for the positive variant" do
        option.flag_value("--force").should be_true
        option.flag_value("--no-force").should be_false
      end

    end

    describe "#attribute_name" do

      it "is derived from the (long) switch" do
        option.attribute_name.should == "force"
      end

    end

  end

  describe "with both short and long switches" do

    let(:option) do
      described_class.new(["-k", "--key-file"], "FILE", "SSH identity")
    end

    it "handles both switches" do
      option.handles?("--key-file").should be_true
      option.handles?("-k").should be_true
    end

    describe "#help" do

      it "includes both switches" do
        option.help.should == ["-k, --key-file FILE", "SSH identity"]
      end

    end

  end

  describe "with an associated environment variable" do

    let(:option) do
      described_class.new("-x", "X", "mystery option", :environment_variable => "APP_X")
    end

    describe "#help" do

      it "describes environment variable" do
        option.help.should == ["-x X", "mystery option (default: $APP_X)"]
      end

    end

    describe "and a default value" do

      let(:option) do
        described_class.new("-x", "X", "mystery option", :environment_variable => "APP_X", :default => "xyz")
      end

      describe "#help" do

        it "describes both environment variable and default" do
          option.help.should == ["-x X", %{mystery option (default: $APP_X, or "xyz")}]
        end

      end

    end

  end

  describe "multivalued" do

    let(:option) do
      described_class.new(["-H", "--header"], "HEADER", "extra header", :multivalued => true)
    end

    it "is multivalued" do
      option.should be_multivalued
    end

    describe "#default_value" do

      it "defaults to an empty Array" do
        option.default_value.should == []
      end

      it "can be overridden" do
        option = described_class.new("-H", "HEADER", "extra header", :multivalued => true, :default => [1,2,3])
        option.default_value.should == [1,2,3]
      end

    end

    describe "#attribute_name" do

      it "gets a _list suffix" do
        option.attribute_name.should == "header_list"
      end

    end

    describe "#append_method" do

      it "is derived from the attribute_name" do
        option.append_method.should == "append_to_header_list"
      end

    end

  end

  describe "in subcommand" do

    let(:command_class) do

      Class.new(Clamp::Command) do
        subcommand "foo", "FOO!" do
          option "--bar", "BAR", "Bars foo."
        end
      end

    end

    describe "Command#help" do

      it "includes help for each option exactly once" do
        subcommand = command_class.send(:find_subcommand, 'foo')
        subcommand_help = subcommand.subcommand_class.help("")
        subcommand_help.lines.grep(/--bar BAR/).count.should == 1
      end

    end

  end

  describe "a required option" do
    it "rejects :default" do
      expect do
        described_class.new("--key-file", "FILE", "SSH identity",
                          :required => true, :default => "hello")
      end.to raise_error(ArgumentError)
    end

    it "rejects :flag options" do
      expect do
        described_class.new("--awesome", :flag, "Be awesome?", :required => true)
      end.to raise_error(ArgumentError)
    end
  end
end