require 'test_helper'

describe Cask::DSL do
  it "lets you set url, homepage, and version" do
    test_cask = Cask.load('basic-cask')
    test_cask.url.must_equal URI('http://example.com/TestCask.dmg')
    test_cask.homepage.must_equal 'http://example.com/'
    test_cask.version.must_equal '1.2.3'
  end

  it "lets you set checksum via sha1, sha256, and/or md5" do
    ChecksumCask = Class.new(Cask)
    ChecksumCask.class_eval do
      md5 'imamd5'
      sha1 'imasha1'
      sha256 'imasha2'
    end
    instance = ChecksumCask.new
    instance.sums.must_equal [
      Checksum.new(:md5, 'imamd5'),
      Checksum.new(:sha1, 'imasha1'),
      Checksum.new(:sha2, 'imasha2')
    ]
  end

  it "still lets you set content_length even though it is deprecated" do
    OldContentLengthCask = Class.new(Cask)
    begin
      shutup do
        OldContentLengthCask.class_eval do
          content_length '12345'
        end
      end
    rescue Exception => e
      flunk("expected content_length to work, but got exception #{e}")
    end
  end

  it "prevents the entire world from crashing when a cask includes an unknown method" do
    UnexpectedMethodCask = Class.new(Cask)
    begin
      TestHelper.must_output(self, lambda {
        UnexpectedMethodCask.class_eval do
          future_feature :not_yet_on_your_machine
        end
      }, 'Warning: Unexpected method future_feature called on UnexpectedMethodCask. Running `brew update; brew upgrade brew-cask` will likely fix it.')
    rescue Exception => e
      flunk("Wanted unexpected method to simply warn, but got exception #{e}")
    end
  end

  it "allows you to specify linkables" do
    CaskWithLinkables = Class.new(Cask)
    CaskWithLinkables.class_eval do
      link :app, 'Foo.app'
      link :app, 'Bar.app'
    end

    instance = CaskWithLinkables.new
    Array(instance.linkables[:app]).sort.must_equal %w[Bar.app Foo.app]
  end

  it "allow linkables to be set to empty" do
    CaskWithNoLinkables = Class.new(Cask)
    CaskWithNoLinkables.class_eval do
      link :app, :none
    end

    instance = CaskWithNoLinkables.new
    Array(instance.linkable_apps).must_equal %w[]
  end

  it "allows caveats to be specified via a method define" do
    PlainCask = Class.new(Cask)

    instance = PlainCask.new

    instance.caveats.must_be :empty?

    CaskWithCaveats = Class.new(Cask)
    CaskWithCaveats.class_eval do
      def caveats; <<-EOS.undent
        When you install this cask, you probably want to know this.
        EOS
      end
    end

    instance = CaskWithCaveats.new

    instance.caveats.must_equal "When you install this cask, you probably want to know this.\n"
  end
end