require "testing_env"
require "test/support/fixtures/testball"
require "formula"

class FormulaTests < Homebrew::TestCase
  def test_formula_instantiation
    klass = Class.new(Formula) { url "http://example.com/foo-1.0.tar.gz" }
    name = "formula_name"
    path = Formulary.core_path(name)
    spec = :stable

    f = klass.new(name, path, spec)
    assert_equal name, f.name
    assert_equal name, f.specified_name
    assert_equal name, f.full_name
    assert_equal name, f.full_specified_name
    assert_equal path, f.path
    assert_nil f.alias_path
    assert_nil f.alias_name
    assert_nil f.full_alias_name
    assert_raises(ArgumentError) { klass.new }
  end

  def test_formula_instantiation_with_alias
    klass = Class.new(Formula) { url "http://example.com/foo-1.0.tar.gz" }
    name = "formula_name"
    path = Formulary.core_path(name)
    spec = :stable
    alias_name = "baz@1"
    alias_path = CoreTap.instance.alias_dir/alias_name

    f = klass.new(name, path, spec, alias_path: alias_path)
    assert_equal name, f.name
    assert_equal name, f.full_name
    assert_equal path, f.path
    assert_equal alias_path, f.alias_path
    assert_equal alias_name, f.alias_name
    assert_equal alias_name, f.specified_name
    assert_equal alias_name, f.full_alias_name
    assert_equal alias_name, f.full_specified_name
    assert_raises(ArgumentError) { klass.new }
  end

  def test_tap_formula_instantiation
    tap = Tap.new("foo", "bar")
    klass = Class.new(Formula) { url "baz-1.0" }
    name = "baz"
    full_name = "#{tap.user}/#{tap.repo}/#{name}"
    path = tap.path/"Formula/#{name}.rb"
    spec = :stable

    f = klass.new(name, path, spec)
    assert_equal name, f.name
    assert_equal name, f.specified_name
    assert_equal full_name, f.full_name
    assert_equal full_name, f.full_specified_name
    assert_equal path, f.path
    assert_nil f.alias_path
    assert_nil f.alias_name
    assert_nil f.full_alias_name
    assert_raises(ArgumentError) { klass.new }
  end

  def test_tap_formula_instantiation_with_alias
    tap = Tap.new("foo", "bar")
    klass = Class.new(Formula) { url "baz-1.0" }
    name = "baz"
    full_name = "#{tap.user}/#{tap.repo}/#{name}"
    path = tap.path/"Formula/#{name}.rb"
    spec = :stable
    alias_name = "baz@1"
    full_alias_name = "#{tap.user}/#{tap.repo}/#{alias_name}"
    alias_path = CoreTap.instance.alias_dir/alias_name

    f = klass.new(name, path, spec, alias_path: alias_path)
    assert_equal name, f.name
    assert_equal full_name, f.full_name
    assert_equal path, f.path
    assert_equal alias_path, f.alias_path
    assert_equal alias_name, f.alias_name
    assert_equal alias_name, f.specified_name
    assert_equal full_alias_name, f.full_alias_name
    assert_equal full_alias_name, f.full_specified_name
    assert_raises(ArgumentError) { klass.new }
  end

  def test_follow_installed_alias
    f = formula { url "foo-1.0" }
    assert_predicate f, :follow_installed_alias?

    f.follow_installed_alias = true
    assert_predicate f, :follow_installed_alias?

    f.follow_installed_alias = false
    refute_predicate f, :follow_installed_alias?
  end

  def test_installed_alias_with_core
    f = formula { url "foo-1.0" }

    build_values_with_no_installed_alias = [
      nil,
      BuildOptions.new({}, {}),
      Tab.new(source: { "path" => f.path.to_s }),
    ]

    build_values_with_no_installed_alias.each do |build|
      f.build = build
      assert_nil f.installed_alias_path
      assert_nil f.installed_alias_name
      assert_nil f.full_installed_alias_name
      assert_equal f.name, f.installed_specified_name
      assert_equal f.name, f.full_installed_specified_name
    end

    alias_name = "bar"
    alias_path = "#{CoreTap.instance.alias_dir}/#{alias_name}"
    f.build = Tab.new(source: { "path" => alias_path })
    assert_equal alias_path, f.installed_alias_path
    assert_equal alias_name, f.installed_alias_name
    assert_equal alias_name, f.full_installed_alias_name
    assert_equal alias_name, f.installed_specified_name
    assert_equal alias_name, f.full_installed_specified_name
  end

  def test_installed_alias_with_tap
    tap = Tap.new("user", "repo")
    name = "foo"
    path = "#{tap.path}/Formula/#{name}.rb"
    f = formula(name, path) { url "foo-1.0" }

    build_values_with_no_installed_alias = [
      nil,
      BuildOptions.new({}, {}),
      Tab.new(source: { "path" => f.path }),
    ]

    build_values_with_no_installed_alias.each do |build|
      f.build = build
      assert_nil f.installed_alias_path
      assert_nil f.installed_alias_name
      assert_nil f.full_installed_alias_name
      assert_equal f.name, f.installed_specified_name
      assert_equal f.full_name, f.full_installed_specified_name
    end

    alias_name = "bar"
    full_alias_name = "#{tap.user}/#{tap.repo}/#{alias_name}"
    alias_path = "#{tap.alias_dir}/#{alias_name}"
    f.build = Tab.new(source: { "path" => alias_path })
    assert_equal alias_path, f.installed_alias_path
    assert_equal alias_name, f.installed_alias_name
    assert_equal full_alias_name, f.full_installed_alias_name
    assert_equal alias_name, f.installed_specified_name
    assert_equal full_alias_name, f.full_installed_specified_name
  end

  def test_prefix
    f = Testball.new
    assert_equal HOMEBREW_CELLAR/f.name/"0.1", f.prefix
    assert_kind_of Pathname, f.prefix
  end

  def test_revised_prefix
    f = Class.new(Testball) { revision 1 }.new
    assert_equal HOMEBREW_CELLAR/f.name/"0.1_1", f.prefix
  end

  def test_any_version_installed?
    f = formula do
      url "foo"
      version "1.0"
    end
    refute_predicate f, :any_version_installed?
    prefix = HOMEBREW_CELLAR+f.name+"0.1"
    prefix.mkpath
    FileUtils.touch prefix+Tab::FILENAME
    assert_predicate f, :any_version_installed?
  end

  def test_migration_needed
    f = Testball.new("newname")
    f.instance_variable_set(:@oldname, "oldname")
    f.instance_variable_set(:@tap, CoreTap.instance)

    oldname_prefix = HOMEBREW_CELLAR/"oldname/2.20"
    newname_prefix = HOMEBREW_CELLAR/"newname/2.10"
    oldname_prefix.mkpath
    oldname_tab = Tab.empty
    oldname_tab.tabfile = oldname_prefix.join("INSTALL_RECEIPT.json")
    oldname_tab.write

    refute_predicate f, :migration_needed?

    oldname_tab.tabfile.unlink
    oldname_tab.source["tap"] = "homebrew/core"
    oldname_tab.write

    assert_predicate f, :migration_needed?

    newname_prefix.mkpath

    refute_predicate f, :migration_needed?
  end

  def test_installed?
    f = Testball.new
    f.stubs(:installed_prefix).returns(stub(directory?: false))
    refute_predicate f, :installed?

    f.stubs(:installed_prefix).returns(
      stub(directory?: true, children: []),
    )
    refute_predicate f, :installed?

    f.stubs(:installed_prefix).returns(
      stub(directory?: true, children: [stub]),
    )
    assert_predicate f, :installed?
  end

  def test_installed_prefix
    f = Testball.new
    assert_equal f.prefix, f.installed_prefix
  end

  def test_installed_prefix_head_installed
    f = formula do
      head "foo"
      devel do
        url "foo"
        version "1.0"
      end
    end
    prefix = HOMEBREW_CELLAR+f.name+f.head.version
    prefix.mkpath
    assert_equal prefix, f.installed_prefix
  end

  def test_installed_prefix_devel_installed
    f = formula do
      head "foo"
      devel do
        url "foo"
        version "1.0"
      end
    end
    prefix = HOMEBREW_CELLAR+f.name+f.devel.version
    prefix.mkpath
    assert_equal prefix, f.installed_prefix
  end

  def test_installed_prefix_stable_installed
    f = formula do
      head "foo"
      devel do
        url "foo"
        version "1.0-devel"
      end
    end
    prefix = HOMEBREW_CELLAR+f.name+f.version
    prefix.mkpath
    assert_equal prefix, f.installed_prefix
  end

  def test_installed_prefix_outdated_stable_head_installed
    f = formula do
      url "foo"
      version "1.9"
      head "foo"
    end

    head_prefix = HOMEBREW_CELLAR/"#{f.name}/HEAD"
    head_prefix.mkpath
    tab = Tab.empty
    tab.tabfile = head_prefix.join("INSTALL_RECEIPT.json")
    tab.source["versions"] = { "stable" => "1.0" }
    tab.write

    assert_equal HOMEBREW_CELLAR/"#{f.name}/#{f.version}", f.installed_prefix
  end

  def test_installed_prefix_outdated_devel_head_installed
    f = formula do
      url "foo"
      version "1.9"
      devel do
        url "foo"
        version "2.1"
      end
    end

    head_prefix = HOMEBREW_CELLAR/"#{f.name}/HEAD"
    head_prefix.mkpath
    tab = Tab.empty
    tab.tabfile = head_prefix.join("INSTALL_RECEIPT.json")
    tab.source["versions"] = { "stable" => "1.9", "devel" => "2.0" }
    tab.write

    assert_equal HOMEBREW_CELLAR/"#{f.name}/#{f.version}", f.installed_prefix
  end

  def test_installed_prefix_head
    f = formula("test", Pathname.new(__FILE__).expand_path, :head) do
      head "foo"
      devel do
        url "foo"
        version "1.0-devel"
      end
    end
    prefix = HOMEBREW_CELLAR+f.name+f.head.version
    assert_equal prefix, f.installed_prefix
  end

  def test_installed_prefix_devel
    f = formula("test", Pathname.new(__FILE__).expand_path, :devel) do
      head "foo"
      devel do
        url "foo"
        version "1.0-devel"
      end
    end
    prefix = HOMEBREW_CELLAR+f.name+f.devel.version
    assert_equal prefix, f.installed_prefix
  end

  def test_latest_head_prefix
    f = Testball.new

    stamps_with_revisions = [[111111, 1], [222222, 1], [222222, 2], [222222, 0]]

    stamps_with_revisions.each do |stamp, revision|
      version = "HEAD-#{stamp}"
      version += "_#{revision}" if revision > 0
      prefix = f.rack.join(version)
      prefix.mkpath

      tab = Tab.empty
      tab.tabfile = prefix.join("INSTALL_RECEIPT.json")
      tab.source_modified_time = stamp
      tab.write
    end

    prefix = HOMEBREW_CELLAR/"#{f.name}/HEAD-222222_2"
    assert_equal prefix, f.latest_head_prefix
  end

  def test_equality
    x = Testball.new
    y = Testball.new
    assert_equal x, y
    assert_eql x, y
    assert_equal x.hash, y.hash
  end

  def test_inequality
    x = Testball.new("foo")
    y = Testball.new("bar")
    refute_equal x, y
    refute_eql x, y
    refute_equal x.hash, y.hash
  end

  def test_comparison_with_non_formula_objects_does_not_raise
    refute_equal Testball.new, Object.new
  end

  def test_sort_operator
    assert_nil Testball.new <=> Object.new
  end

  def test_alias_paths_with_build_options
    alias_path = CoreTap.instance.alias_dir/"another_name"
    f = formula(alias_path: alias_path) { url "foo-1.0" }
    f.build = BuildOptions.new({}, {})
    assert_equal alias_path, f.alias_path
    assert_nil f.installed_alias_path
  end

  def test_alias_paths_with_tab_with_non_alias_source_path
    alias_path = CoreTap.instance.alias_dir/"another_name"
    source_path = CoreTap.instance.formula_dir/"another_other_name"
    f = formula(alias_path: alias_path) { url "foo-1.0" }
    f.build = Tab.new(source: { "path" => source_path.to_s })
    assert_equal alias_path, f.alias_path
    assert_nil f.installed_alias_path
  end

  def test_alias_paths_with_tab_with_alias_source_path
    alias_path = CoreTap.instance.alias_dir/"another_name"
    source_path = CoreTap.instance.alias_dir/"another_other_name"
    f = formula(alias_path: alias_path) { url "foo-1.0" }
    f.build = Tab.new(source: { "path" => source_path.to_s })
    assert_equal alias_path, f.alias_path
    assert_equal source_path.to_s, f.installed_alias_path
  end

  def test_installed_with_alias_path_with_nil
    assert_predicate Formula.installed_with_alias_path(nil), :empty?
  end

  def test_installed_with_alias_path_with_a_path
    alias_path = "#{CoreTap.instance.alias_dir}/alias"
    different_alias_path = "#{CoreTap.instance.alias_dir}/another_alias"

    formula_with_alias = formula("foo") { url "foo-1.0" }
    formula_with_alias.build = Tab.empty
    formula_with_alias.build.source["path"] = alias_path

    formula_without_alias = formula("bar") { url "bar-1.0" }
    formula_without_alias.build = Tab.empty
    formula_without_alias.build.source["path"] = formula_without_alias.path.to_s

    formula_with_different_alias = formula("baz") { url "baz-1.0" }
    formula_with_different_alias.build = Tab.empty
    formula_with_different_alias.build.source["path"] = different_alias_path

    formulae = [
      formula_with_alias,
      formula_without_alias,
      formula_with_different_alias,
    ]

    Formula.stubs(:installed).returns(formulae)
    assert_equal [formula_with_alias], Formula.installed_with_alias_path(alias_path)
  end

  def test_formula_spec_integration
    f = formula do
      homepage "http://example.com"
      url "http://example.com/test-0.1.tbz"
      mirror "http://example.org/test-0.1.tbz"
      sha256 TEST_SHA256

      head "http://example.com/test.git", tag: "foo"

      devel do
        url "http://example.com/test-0.2.tbz"
        mirror "http://example.org/test-0.2.tbz"
        sha256 TEST_SHA256
      end
    end

    assert_equal "http://example.com", f.homepage
    assert_version_equal "0.1", f.version
    assert_predicate f, :stable?

    assert_version_equal "0.1", f.stable.version
    assert_version_equal "0.2", f.devel.version
    assert_version_equal "HEAD", f.head.version
  end

  def test_formula_active_spec=
    f = formula do
      url "foo"
      version "1.0"
      revision 1

      devel do
        url "foo"
        version "1.0beta"
      end
    end
    assert_equal :stable, f.active_spec_sym
    assert_equal f.stable, f.send(:active_spec)
    assert_equal "1.0_1", f.pkg_version.to_s
    f.active_spec = :devel
    assert_equal :devel, f.active_spec_sym
    assert_equal f.devel, f.send(:active_spec)
    assert_equal "1.0beta_1", f.pkg_version.to_s
    assert_raises(FormulaSpecificationError) { f.active_spec = :head }
  end

  def test_path
    name = "foo-bar"
    assert_equal Pathname.new("#{HOMEBREW_LIBRARY}/Taps/homebrew/homebrew-core/Formula/#{name}.rb"), Formulary.core_path(name)
  end

  def test_class_specs_are_always_initialized
    f = formula { url "foo-1.0" }

    %w[stable devel head].each do |spec|
      assert_kind_of SoftwareSpec, f.class.send(spec)
    end
  end

  def test_incomplete_instance_specs_are_not_accessible
    f = formula { url "foo-1.0" }

    %w[devel head].each { |spec| assert_nil f.send(spec) }
  end

  def test_honors_attributes_declared_before_specs
    f = formula do
      url "foo-1.0"
      depends_on "foo"
      devel { url "foo-1.1" }
    end

    %w[stable devel head].each do |spec|
      assert_equal "foo", f.class.send(spec).deps.first.name
    end
  end

  def test_simple_version
    assert_equal PkgVersion.parse("1.0"), formula { url "foo-1.0.bar" }.pkg_version
  end

  def test_version_with_revision
    f = formula do
      url "foo-1.0.bar"
      revision 1
    end

    assert_equal PkgVersion.parse("1.0_1"), f.pkg_version
  end

  def test_head_uses_revisions
    f = formula("test", Pathname.new(__FILE__).expand_path, :head) do
      url "foo-1.0.bar"
      revision 1
      head "foo"
    end

    assert_equal PkgVersion.parse("HEAD_1"), f.pkg_version
  end

  def test_update_head_version
    f = formula do
      head "foo", using: :git
    end

    cached_location = f.head.downloader.cached_location
    cached_location.mkpath

    cached_location.cd do
      FileUtils.touch "LICENSE"
      shutup do
        system "git", "init"
        system "git", "add", "--all"
        system "git", "commit", "-m", "Initial commit"
      end
    end

    f.update_head_version
    assert_equal Version.create("HEAD-5658946"), f.head.version
  end

  def test_legacy_options
    f = formula do
      url "foo-1.0"

      def options
        [["--foo", "desc"], ["--bar", "desc"]]
      end

      option "baz"
    end

    assert f.option_defined?("foo")
    assert f.option_defined?("bar")
    assert f.option_defined?("baz")
  end

  def test_desc
    f = formula do
      desc "a formula"
      url "foo-1.0"
    end

    assert_equal "a formula", f.desc
  end

  def test_post_install_defined
    f1 = formula do
      url "foo-1.0"

      def post_install; end
    end

    f2 = formula do
      url "foo-1.0"
    end

    assert f1.post_install_defined?
    refute f2.post_install_defined?
  end

  def test_test_defined
    f1 = formula do
      url "foo-1.0"

      def test; end
    end

    f2 = formula do
      url "foo-1.0"
    end

    assert f1.test_defined?
    refute f2.test_defined?
  end

  def test_test_fixtures
    f1 = formula do
      url "foo-1.0"
    end

    assert_equal Pathname.new("#{HOMEBREW_LIBRARY_PATH}/test/support/fixtures/foo"),
      f1.test_fixtures("foo")
  end

  def test_dependencies
    stub_formula_loader formula("f1") { url "f1-1.0" }
    stub_formula_loader formula("f2") { url "f2-1.0" }

    f3 = formula("f3") do
      url "f3-1.0"
      depends_on "f1" => :build
      depends_on "f2"
    end
    stub_formula_loader f3

    f4 = formula("f4") do
      url "f4-1.0"
      depends_on "f1"
    end
    stub_formula_loader f4

    f5 = formula("f5") do
      url "f5-1.0"
      depends_on "f3" => :build
      depends_on "f4"
    end

    assert_equal %w[f3 f4], f5.deps.map(&:name)
    assert_equal %w[f1 f2 f3 f4], f5.recursive_dependencies.map(&:name)
    assert_equal %w[f1 f4], f5.runtime_dependencies.map(&:name)
  end

  def test_runtime_dependencies_with_optional_deps_from_tap
    tap_loader = mock
    tap_loader.stubs(:get_formula).raises(RuntimeError, "tried resolving tap formula")
    Formulary.stubs(:loader_for).with("foo/bar/f1", from: nil).returns(tap_loader)

    stub_formula_loader formula("f2") { url "f2-1.0" }, "baz/qux/f2"

    f3 = formula("f3") do
      url "f3-1.0"
      depends_on "foo/bar/f1" => :optional
      depends_on "baz/qux/f2"
    end

    # f1 shouldn't be loaded by default.
    # If it is, an exception will be raised.
    assert_equal %w[baz/qux/f2], f3.runtime_dependencies.map(&:name)

    # If --with-f1, f1 should be loaded.
    stub_formula_loader formula("f1") { url "f1-1.0" }, "foo/bar/f1"
    f3.build = BuildOptions.new(Options.create(%w[--with-f1]), f3.options)
    assert_equal %w[foo/bar/f1 baz/qux/f2], f3.runtime_dependencies.map(&:name)
  end

  def test_requirements
    f1 = formula("f1") do
      url "f1-1"

      depends_on :python
      depends_on x11: :recommended
      depends_on xcode: ["1.0", :optional]
    end
    stub_formula_loader f1

    python = PythonRequirement.new
    x11 = X11Requirement.new("x11", [:recommended])
    xcode = XcodeRequirement.new(["1.0", :optional])

    # Default block should filter out deps that aren't being used
    assert_equal Set[python, x11], Set.new(f1.recursive_requirements)

    f1.build = BuildOptions.new(["--with-xcode", "--without-x11"], f1.options)
    assert_equal Set[python, xcode], Set.new(f1.recursive_requirements)
    f1.build = f1.stable.build

    f2 = formula("f2") do
      url "f2-1"
      depends_on "f1"
    end

    assert_equal Set[python, x11], Set.new(f2.recursive_requirements)

    # Empty block should allow all requirements
    assert_equal Set[python, x11, xcode], Set.new(f2.recursive_requirements {})

    # Requirements can be pruned
    requirements = f2.recursive_requirements do |_dependent, requirement|
      Requirement.prune if requirement.is_a?(PythonRequirement)
    end
    assert_equal Set[x11, xcode], Set.new(requirements)
  end

  def test_to_hash
    f1 = formula("foo") do
      url "foo-1.0"
    end

    h = f1.to_hash
    assert h.is_a?(Hash), "Formula#to_hash should return a Hash"
    assert_equal "foo", h["name"]
    assert_equal "foo", h["full_name"]
    assert_equal "1.0", h["versions"]["stable"]
  end

  def test_to_hash_bottle
    f1 = formula("foo") do
      url "foo-1.0"

      bottle do
        cellar :any
        sha256 TEST_SHA256 => Utils::Bottles.tag
      end
    end

    h = f1.to_hash
    assert h.is_a?(Hash), "Formula#to_hash should return a Hash"
    assert h["versions"]["bottle"], "The hash should say the formula is bottled"
  end

  def test_eligible_kegs_for_cleanup
    f1 = Class.new(Testball) do
      version "1.0"
    end.new
    f2 = Class.new(Testball) do
      version "0.2"
      version_scheme 1
    end.new
    f3 = Class.new(Testball) do
      version "0.3"
      version_scheme 1
    end.new
    f4 = Class.new(Testball) do
      version "0.1"
      version_scheme 2
    end.new

    shutup do
      [f1, f2, f3, f4].each do |f|
        f.brew { f.install }
        Tab.create(f, DevelopmentTools.default_compiler, :libcxx).write
      end
    end

    assert_predicate f1, :installed?
    assert_predicate f2, :installed?
    assert_predicate f3, :installed?
    assert_predicate f4, :installed?

    assert_equal [f2, f1].map { |f| Keg.new(f.prefix) },
                 f3.eligible_kegs_for_cleanup.sort_by(&:version)
  end

  def test_eligible_kegs_for_cleanup_keg_pinned
    f1 = Class.new(Testball) { version "0.1" }.new
    f2 = Class.new(Testball) { version "0.2" }.new
    f3 = Class.new(Testball) { version "0.3" }.new

    shutup do
      f1.brew { f1.install }
      f1.pin
      f2.brew { f2.install }
      f3.brew { f3.install }
    end

    assert_equal (HOMEBREW_PINNED_KEGS/f1.name).resolved_path, f1.prefix

    assert_predicate f1, :installed?
    assert_predicate f2, :installed?
    assert_predicate f3, :installed?

    assert_equal [Keg.new(f2.prefix)], shutup { f3.eligible_kegs_for_cleanup }
  end

  def test_eligible_kegs_for_cleanup_head_installed
    f = formula do
      version "0.1"
      head "foo"
    end

    stable_prefix = f.installed_prefix
    stable_prefix.mkpath

    [["000000_1", 1], ["111111", 2], ["111111_1", 2]].each do |pkg_version_suffix, stamp|
      prefix = f.prefix("HEAD-#{pkg_version_suffix}")
      prefix.mkpath
      tab = Tab.empty
      tab.tabfile = prefix.join("INSTALL_RECEIPT.json")
      tab.source_modified_time = stamp
      tab.write
    end

    eligible_kegs = f.installed_kegs - [Keg.new(f.prefix("HEAD-111111_1"))]
    assert_equal eligible_kegs, f.eligible_kegs_for_cleanup
  end

  def test_pour_bottle
    f_false = formula("foo") do
      url "foo-1.0"
      def pour_bottle?
        false
      end
    end
    refute f_false.pour_bottle?

    f_true = formula("foo") do
      url "foo-1.0"
      def pour_bottle?
        true
      end
    end
    assert f_true.pour_bottle?
  end

  def test_pour_bottle_dsl
    f_false = formula("foo") do
      url "foo-1.0"
      pour_bottle? do
        reason "false reason"
        satisfy { var == etc }
      end
    end
    refute f_false.pour_bottle?

    f_true = formula("foo") do
      url "foo-1.0"
      pour_bottle? do
        reason "true reason"
        satisfy { true }
      end
    end
    assert f_true.pour_bottle?
  end
end

class AliasChangeTests < Homebrew::TestCase
  attr_reader :f, :new_formula, :tab, :alias_path

  def make_formula(name, version)
    f = formula(name, alias_path: alias_path) { url "foo-#{version}" }
    f.build = tab
    f
  end

  def setup
    super

    alias_name = "bar"
    @alias_path = "#{CoreTap.instance.alias_dir}/#{alias_name}"

    @tab = Tab.empty

    @f = make_formula("formula_name", "1.0")
    @new_formula = make_formula("new_formula_name", "1.1")

    Formula.stubs(:installed).returns([f])
  end

  def test_alias_changes_when_not_installed_with_alias
    tab.source["path"] = Formulary.core_path(f.name).to_s

    assert_nil f.current_installed_alias_target
    assert_equal f, f.latest_formula
    refute_predicate f, :installed_alias_target_changed?
    refute_predicate f, :supersedes_an_installed_formula?
    refute_predicate f, :alias_changed?
    assert_predicate f.old_installed_formulae, :empty?
  end

  def test_alias_changes_when_not_changed
    tab.source["path"] = alias_path
    stub_formula_loader(f, alias_path)

    assert_equal f, f.current_installed_alias_target
    assert_equal f, f.latest_formula
    refute_predicate f, :installed_alias_target_changed?
    refute_predicate f, :supersedes_an_installed_formula?
    refute_predicate f, :alias_changed?
    assert_predicate f.old_installed_formulae, :empty?
  end

  def test_alias_changes_when_new_alias_target
    tab.source["path"] = alias_path
    stub_formula_loader(new_formula, alias_path)

    assert_equal new_formula, f.current_installed_alias_target
    assert_equal new_formula, f.latest_formula
    assert_predicate f, :installed_alias_target_changed?
    refute_predicate f, :supersedes_an_installed_formula?
    assert_predicate f, :alias_changed?
    assert_predicate f.old_installed_formulae, :empty?
  end

  def test_alias_changes_when_old_formulae_installed
    tab.source["path"] = alias_path
    stub_formula_loader(new_formula, alias_path)

    assert_equal new_formula, new_formula.current_installed_alias_target
    assert_equal new_formula, new_formula.latest_formula
    refute_predicate new_formula, :installed_alias_target_changed?
    assert_predicate new_formula, :supersedes_an_installed_formula?
    assert_predicate new_formula, :alias_changed?
    assert_equal [f], new_formula.old_installed_formulae
  end
end

class OutdatedVersionsTests < Homebrew::TestCase
  attr_reader :outdated_prefix,
              :same_prefix,
              :greater_prefix,
              :head_prefix,
              :old_alias_target_prefix
  attr_reader :f, :old_formula, :new_formula

  def setup
    super

    @f = formula do
      url "foo"
      version "1.20"
    end

    @old_formula = formula("foo@1") { url "foo-1.0" }
    @new_formula = formula("foo@2") { url "foo-2.0" }

    @outdated_prefix = HOMEBREW_CELLAR/"#{f.name}/1.11"
    @same_prefix = HOMEBREW_CELLAR/"#{f.name}/1.20"
    @greater_prefix = HOMEBREW_CELLAR/"#{f.name}/1.21"
    @head_prefix = HOMEBREW_CELLAR/"#{f.name}/HEAD"
    @old_alias_target_prefix = HOMEBREW_CELLAR/"#{old_formula.name}/1.0"
  end

  def alias_path
    "#{@f.tap.alias_dir}/bar"
  end

  def setup_tab_for_prefix(prefix, options = {})
    prefix.mkpath
    tab = Tab.empty
    tab.tabfile = prefix.join("INSTALL_RECEIPT.json")
    tab.source["path"] = options[:path].to_s if options[:path]
    tab.source["tap"] = options[:tap] if options[:tap]
    tab.source["versions"] = options[:versions] if options[:versions]
    tab.source_modified_time = options[:source_modified_time].to_i
    tab.write unless options[:no_write]
    tab
  end

  def reset_outdated_kegs
    f.instance_variable_set(:@outdated_kegs, nil)
  end

  def test_greater_different_tap_installed
    setup_tab_for_prefix(greater_prefix, tap: "user/repo")
    assert_predicate f.outdated_kegs, :empty?
  end

  def test_greater_same_tap_installed
    f.instance_variable_set(:@tap, CoreTap.instance)
    setup_tab_for_prefix(greater_prefix, tap: "homebrew/core")
    assert_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_different_tap_installed
    setup_tab_for_prefix(outdated_prefix, tap: "user/repo")
    refute_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_same_tap_installed
    f.instance_variable_set(:@tap, CoreTap.instance)
    setup_tab_for_prefix(outdated_prefix, tap: "homebrew/core")
    refute_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_follow_alias_and_alias_unchanged
    f.follow_installed_alias = true
    f.build = setup_tab_for_prefix(same_prefix, path: alias_path)
    stub_formula_loader(f, alias_path)
    assert_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_follow_alias_and_alias_changed_and_new_target_not_installed
    f.follow_installed_alias = true
    f.build = setup_tab_for_prefix(same_prefix, path: alias_path)
    stub_formula_loader(new_formula, alias_path)
    refute_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_follow_alias_and_alias_changed_and_new_target_installed
    f.follow_installed_alias = true
    f.build = setup_tab_for_prefix(same_prefix, path: alias_path)
    stub_formula_loader(new_formula, alias_path)
    setup_tab_for_prefix(new_formula.prefix) # install new_formula
    assert_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_no_follow_alias_and_alias_unchanged
    f.follow_installed_alias = false
    f.build = setup_tab_for_prefix(same_prefix, path: alias_path)
    stub_formula_loader(f, alias_path)
    assert_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_no_follow_alias_and_alias_changed
    f.follow_installed_alias = false
    f.build = setup_tab_for_prefix(same_prefix, path: alias_path)
    stub_formula_loader(formula("foo@2") { url "foo-2.0" }, alias_path)
    assert_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_old_alias_targets_installed
    @f = formula(alias_path: alias_path) { url "foo-1.0" }
    tab = setup_tab_for_prefix(old_alias_target_prefix, path: alias_path)
    old_formula.build = tab
    Formula.stubs(:installed).returns([old_formula])
    refute_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_old_alias_targets_not_installed
    @f = formula(alias_path: alias_path) { url "foo-1.0" }
    tab = setup_tab_for_prefix(old_alias_target_prefix, path: old_formula.path)
    old_formula.build = tab
    Formula.stubs(:installed).returns([old_formula])
    assert_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_same_head_installed
    f.instance_variable_set(:@tap, CoreTap.instance)
    setup_tab_for_prefix(head_prefix, tap: "homebrew/core")
    assert_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_different_head_installed
    f.instance_variable_set(:@tap, CoreTap.instance)
    setup_tab_for_prefix(head_prefix, tap: "user/repo")
    assert_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_mixed_taps_greater_version_installed
    f.instance_variable_set(:@tap, CoreTap.instance)
    setup_tab_for_prefix(outdated_prefix, tap: "homebrew/core")
    setup_tab_for_prefix(greater_prefix, tap: "user/repo")

    assert_predicate f.outdated_kegs, :empty?

    setup_tab_for_prefix(greater_prefix, tap: "homebrew/core")
    reset_outdated_kegs

    assert_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_mixed_taps_outdated_version_installed
    f.instance_variable_set(:@tap, CoreTap.instance)

    extra_outdated_prefix = HOMEBREW_CELLAR/"#{f.name}/1.0"

    setup_tab_for_prefix(outdated_prefix)
    setup_tab_for_prefix(extra_outdated_prefix, tap: "homebrew/core")
    reset_outdated_kegs

    refute_predicate f.outdated_kegs, :empty?

    setup_tab_for_prefix(outdated_prefix, tap: "user/repo")
    reset_outdated_kegs

    refute_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_same_version_tap_installed
    f.instance_variable_set(:@tap, CoreTap.instance)
    setup_tab_for_prefix(same_prefix, tap: "homebrew/core")

    assert_predicate f.outdated_kegs, :empty?

    setup_tab_for_prefix(same_prefix, tap: "user/repo")
    reset_outdated_kegs

    assert_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_installed_head_less_than_stable
    tab = setup_tab_for_prefix(head_prefix, versions: { "stable" => "1.0" })
    refute_predicate f.outdated_kegs, :empty?

    # Tab.for_keg(head_prefix) will be fetched from CACHE but we write it anyway
    tab.source["versions"] = { "stable" => f.version.to_s }
    tab.write
    reset_outdated_kegs

    assert_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_fetch_head
    outdated_stable_prefix = HOMEBREW_CELLAR.join("testball/1.0")
    head_prefix_a = HOMEBREW_CELLAR.join("testball/HEAD")
    head_prefix_b = HOMEBREW_CELLAR.join("testball/HEAD-aaaaaaa_1")
    head_prefix_c = HOMEBREW_CELLAR.join("testball/HEAD-18a7103")

    setup_tab_for_prefix(outdated_stable_prefix)
    tab_a = setup_tab_for_prefix(head_prefix_a, versions: { "stable" => "1.0" })
    setup_tab_for_prefix(head_prefix_b)

    testball_repo = HOMEBREW_PREFIX.join("testball_repo")
    testball_repo.mkdir

    @f = formula("testball") do
      url "foo"
      version "2.10"
      head "file://#{testball_repo}", using: :git
    end

    testball_repo.cd do
      FileUtils.touch "LICENSE"
      shutup do
        system "git", "init"
        system "git", "add", "--all"
        system "git", "commit", "-m", "Initial commit"
      end
    end

    refute_predicate f.outdated_kegs(fetch_head: true), :empty?

    tab_a.source["versions"] = { "stable" => f.version.to_s }
    tab_a.write
    reset_outdated_kegs
    refute_predicate f.outdated_kegs(fetch_head: true), :empty?

    head_prefix_a.rmtree
    reset_outdated_kegs
    refute_predicate f.outdated_kegs(fetch_head: true), :empty?

    setup_tab_for_prefix(head_prefix_c, source_modified_time: 1)
    reset_outdated_kegs
    assert_predicate f.outdated_kegs(fetch_head: true), :empty?
  ensure
    testball_repo.rmtree if testball_repo.exist?
  end

  def test_outdated_kegs_version_scheme_changed
    @f = formula("testball") do
      url "foo"
      version "20141010"
      version_scheme 1
    end

    prefix = HOMEBREW_CELLAR.join("testball/0.1")
    setup_tab_for_prefix(prefix, versions: { "stable" => "0.1" })

    refute_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_kegs_mixed_version_schemes
    @f = formula("testball") do
      url "foo"
      version "20141010"
      version_scheme 3
    end

    prefix_a = HOMEBREW_CELLAR.join("testball/20141009")
    setup_tab_for_prefix(prefix_a, versions: { "stable" => "20141009", "version_scheme" => 1 })

    prefix_b = HOMEBREW_CELLAR.join("testball/2.14")
    setup_tab_for_prefix(prefix_b, versions: { "stable" => "2.14", "version_scheme" => 2 })

    refute_predicate f.outdated_kegs, :empty?
    reset_outdated_kegs

    prefix_c = HOMEBREW_CELLAR.join("testball/20141009")
    setup_tab_for_prefix(prefix_c, versions: { "stable" => "20141009", "version_scheme" => 3 })

    refute_predicate f.outdated_kegs, :empty?
    reset_outdated_kegs

    prefix_d = HOMEBREW_CELLAR.join("testball/20141011")
    setup_tab_for_prefix(prefix_d, versions: { "stable" => "20141009", "version_scheme" => 3 })
    assert_predicate f.outdated_kegs, :empty?
  end

  def test_outdated_kegs_head_with_version_scheme
    @f = formula("testball") do
      url "foo"
      version "1.0"
      version_scheme 2
    end

    head_prefix = HOMEBREW_CELLAR.join("testball/HEAD")

    setup_tab_for_prefix(head_prefix, versions: { "stable" => "1.0", "version_scheme" => 1 })
    refute_predicate f.outdated_kegs, :empty?

    reset_outdated_kegs
    head_prefix.rmtree

    setup_tab_for_prefix(head_prefix, versions: { "stable" => "1.0", "version_scheme" => 2 })
    assert_predicate f.outdated_kegs, :empty?
  end
end