add command 'cask outdated'

2 files changed, 165 insertions, 0 deletions

diff --git a/Library/Homebrew/test/cask/cask_spec.rb b/Library/Homebrew/test/cask/cask_spec.rb
index d76f2dce9..3971d3f9c 100644
--- a/Library/Homebrew/test/cask/cask_spec.rb
+++ b/Library/Homebrew/test/cask/cask_spec.rb
@@ -89,4 +89,89 @@ describe Hbc::Cask, :cask do
       expect(c.metadata_versioned_container_path.to_s).to eq(metadata_path.to_s)
     end
   end
+
+  describe "outdated" do
+    it "ignores the Casks that have auto_updates true (without --greedy)" do
+      c = Hbc.load("auto-updates")
+      expect(c).not_to be_outdated
+      expect(c.outdated_versions).to be_empty
+    end
+
+    it "ignores the Casks that have version :latest (without --greedy)" do
+      c = Hbc.load("version-latest-string")
+      expect(c).not_to be_outdated
+      expect(c.outdated_versions).to be_empty
+    end
+
+    describe "versioned casks" do
+      let(:cask) { described_class.new("basic-cask") }
+      subject { cask.outdated_versions }
+
+      shared_examples "versioned casks" do |tap_version, expectations|
+        expectations.each do |installed_versions, expected_output|
+          context "when versions #{installed_versions.inspect} are installed and the tap version is #{tap_version}" do
+            it {
+              allow(cask).to receive(:versions).and_return(installed_versions)
+              allow(cask).to receive(:version).and_return(Hbc::DSL::Version.new(tap_version))
+              expect(cask).to receive(:outdated_versions).and_call_original
+              is_expected.to eq expected_output
+            }
+          end
+        end
+      end
+
+      describe "installed version is equal to tap version => not outdated" do
+        include_examples "versioned casks", "1.2.3",
+                         ["1.2.3"]          => [],
+                         ["1.2.4", "1.2.3"] => []
+      end
+
+      describe "installed version is different than tap version => outdated" do
+        include_examples "versioned casks", "1.2.4",
+                         ["1.2.3"]                   => ["1.2.3"],
+                         ["1.2.4", "1.2.3"]          => ["1.2.3"],
+                         ["1.2.2", "1.2.3"]          => ["1.2.2", "1.2.3"],
+                         ["1.2.2", "1.2.4", "1.2.3"] => ["1.2.2", "1.2.3"]
+      end
+    end
+
+    describe ":latest casks" do
+      let(:cask) { described_class.new("basic-cask") }
+
+      shared_examples ":latest cask" do |greedy, tap_version, expectations|
+        expectations.each do |installed_version, expected_output|
+          context "when versions #{installed_version} are installed and the tap version is #{tap_version}, #{greedy ? "" : "not"} greedy" do
+            subject { cask.outdated_versions greedy }
+            it {
+              allow(cask).to receive(:versions).and_return(installed_version)
+              allow(cask).to receive(:version).and_return(Hbc::DSL::Version.new(tap_version))
+              expect(cask).to receive(:outdated_versions).and_call_original
+              is_expected.to eq expected_output
+            }
+          end
+        end
+      end
+
+      describe ":latest version installed, :latest version in tap" do
+        include_examples ":latest cask", false, "latest",
+                         ["latest"] => []
+        include_examples ":latest cask", true, "latest",
+                         ["latest"] => ["latest"]
+      end
+
+      describe "numbered version installed, :latest version in tap" do
+        include_examples ":latest cask", false, "latest",
+                         ["1.2.3"] => ["1.2.3"]
+        include_examples ":latest cask", true, "latest",
+                         ["1.2.3"] => ["1.2.3"]
+      end
+
+      describe "latest version installed, numbered version in tap" do
+        include_examples ":latest cask", false, "1.2.3",
+                         ["latest"] => ["latest"]
+        include_examples ":latest cask", true, "1.2.3",
+                         ["latest"] => ["latest"]
+      end
+    end
+  end
 end
diff --git a/Library/Homebrew/test/cask/cli/outdated_spec.rb b/Library/Homebrew/test/cask/cli/outdated_spec.rb
new file mode 100644
index 000000000..a0f13009d
--- /dev/null
+++ b/Library/Homebrew/test/cask/cli/outdated_spec.rb
@@ -0,0 +1,80 @@
+describe Hbc::CLI::Outdated, :cask do
+  let(:installed) do
+    [
+      Hbc::CaskLoader.load_from_file(TEST_FIXTURE_DIR/"cask/Casks/basic-cask.rb"),
+      Hbc::CaskLoader.load_from_file(TEST_FIXTURE_DIR/"cask/Casks/outdated/local-caffeine.rb"),
+      Hbc::CaskLoader.load_from_file(TEST_FIXTURE_DIR/"cask/Casks/outdated/local-transmission.rb"),
+      Hbc::CaskLoader.load_from_file(TEST_FIXTURE_DIR/"cask/Casks/version-latest-string.rb"),
+      Hbc::CaskLoader.load_from_file(TEST_FIXTURE_DIR/"cask/Casks/outdated/auto-updates.rb"),
+    ]
+  end
+
+  before do
+    shutup do
+      installed.each { |cask| InstallHelper.install_with_caskfile(cask) }
+    end
+    allow(Hbc::CLI).to receive(:verbose?).and_return(true)
+  end
+
+  describe 'without --greedy it ignores the Casks with "vesion latest" or "auto_updates true"' do
+    it "checks all the installed Casks when no token is provided" do
+      expect {
+        Hbc::CLI::Outdated.run
+      }.to output(<<-EOS.undent).to_stdout
+        local-caffeine (1.2.2) != 1.2.3
+        local-transmission (2.60) != 2.61
+      EOS
+    end
+
+    it "checks only the tokens specified in the command line" do
+      expect {
+        Hbc::CLI::Outdated.run("local-caffeine")
+      }.to output(<<-EOS.undent).to_stdout
+        local-caffeine (1.2.2) != 1.2.3
+      EOS
+    end
+
+    it 'ignores "auto_updates" and "latest" Casks even when their tokens are provided in the command line' do
+      expect {
+        Hbc::CLI::Outdated.run("local-caffeine", "auto-updates", "version-latest-string")
+      }.to output(<<-EOS.undent).to_stdout
+        local-caffeine (1.2.2) != 1.2.3
+      EOS
+    end
+  end
+
+  it "lists only the names (no versions) of the outdated Casks with --quiet" do
+    expect {
+      Hbc::CLI::Outdated.run("--quiet")
+    }.to output(<<-EOS.undent).to_stdout
+      local-caffeine
+      local-transmission
+    EOS
+  end
+
+  describe "with --greedy it checks additional Casks" do
+    it 'includes the Casks with "auto_updates true" or "version latest" with --greedy' do
+      expect {
+        Hbc::CLI::Outdated.run("--greedy")
+      }.to output(<<-EOS.undent).to_stdout
+        auto-updates (2.57) != 2.61
+        local-caffeine (1.2.2) != 1.2.3
+        local-transmission (2.60) != 2.61
+        version-latest-string (latest) != latest
+      EOS
+    end
+
+    it 'does not include the Casks with "auto_updates true" when the version did not change' do
+      cask = Hbc::CaskLoader.load_from_file(TEST_FIXTURE_DIR/"cask/Casks/auto-updates.rb")
+      InstallHelper.install_with_caskfile(cask)
+
+      expect {
+        Hbc::CLI::Outdated.run("--greedy")
+      }.to output(<<-EOS.undent).to_stdout
+        local-caffeine (1.2.2) != 1.2.3
+        local-transmission (2.60) != 2.61
+        version-latest-string (latest) != latest
+      EOS
+    end
+  end
+end