dpl 1.5.11.travis.432.1 → 1.5.11.travis.435.1

checksums.yaml

@@ -1,15 +1,15 @@
 ---
 !binary "U0hBMQ==":
   metadata.gz: !binary |-
-    ODU0NmUzNzEwNDk0YjQ2MGQzODIyMGI2MzIwZDY3MjEzMmVkOWNmZQ==
+    YWYwOTVjZDZlOWFjMzJjMzJmZTVlYmY0MmE4ODQwNGNkMjc2ZTNhNQ==
   data.tar.gz: !binary |-
-    ZDVkNGM1N2MwNjM2NWM1NjIwYzFiYWU2NGEzNjQyMmVkNGYxZmQzZg==
+    M2MzOTUxNzhjNjhjN2YwYzU4ZDQzODAzNjk1NjM5ZDA1YjE3YTEzZQ==
 SHA512:
   metadata.gz: !binary |-
-    MTZlMGIyNzk0YTM3ZmFjNTdjMTE1ODcwYWYwOWQ5MDJiMTY2N2Y5MGI3MjM3
-    MjRmNmZlNjA1Y2JjMDk2ZTdmZmRlMGE0MWE0NWRjMGNiOTBjNWM0MzJmY2Qz
-    MmRiNGFmZmVmMDVmMzExODk0NmYyNWI2NDhiNDZhYjkyYzk4NTI=
+    ODdjNTcxM2ZmZGY4M2IyZDNkODMzMmYzYjliMmIzNTc2N2EwYmI1ZGJkOWI4
+    NGU3NjZhNjUwZTkxZjI4NTc3Y2M0ZTBkZTNiMzcwZjQyMTA4NzEyMmQ0ZjMw
+    MGQ0YzliYWQwNzNhYzU0OGNmZjRhNDkzMzEwMWI1YmUwZTNhMmQ=
   data.tar.gz: !binary |-
-    NzA0NzI3NGY0YzdjNjJkMjk5NjJiMDgyYzQ4N2ZmOTg3MmFlNDlhODA2MTJm
-    YTFmMzUzZmI2Zjc2OTI5ZTQ3MDVjNzUwMWVkNDFkZjBkNDhiZTNjZDY0NTU4
-    Y2NmMDRiOTJkODlmYTRmY2M5NTY2MjFkMDFlNzE5YzEyYmU1ZGE=
+    MmZmN2RjYjUwOGNmODJhYWZkMjc2YmFkMDA0MThjZTEzMjAwZWFjNmVhZmEz
+    MTgwYmI2MGE3OTBlMTQ5NTU1MmYxMTQxNTA0ZWU0MmMzMGRhYjM4NmEzNjhm
+    YThhYWFmOTQzYjY2OWNhOTNjMTU1NWJmMjRlMGNkODgzY2NkYTc=

data/README.md

@@ -23,6 +23,7 @@ Dpl supports the following providers:
 * [Modulus](#modulus)
 * [Github Releases](#github-releases)
 * [Ninefold](#ninefold)
+* [Hackage](#hackage)
 
 ## Installation:
 
@@ -301,3 +302,15 @@ For accounts using two factor authentication, you have to use an oauth token as
 #### Examples:
 
     dpl --provider=ninefold --auth_token=<auth_token> --app_id=<app_id>
+
+### Hackage:
+
+#### Options:
+
+* **username**: Hackage username.
+* **password**: Hackage password.
+
+#### Examples:
+
+    dpl --provider=hackage --username=<username> --password=<password>
+

data/lib/dpl/provider.rb

@@ -24,6 +24,7 @@ module DPL
     autoload :Releases,     'dpl/provider/releases'
     autoload :Cloud66,      'dpl/provider/cloud66'
     autoload :Ninefold,     'dpl/provider/ninefold'
+    autoload :Hackage,      'dpl/provider/hackage'
 
     def self.new(context, options)
       return super if self < Provider
@@ -58,6 +59,10 @@ module DPL
       system(command)
     end
 
+    def self.apt_get(name, command = name)
+      context.shell("sudo apt-get -qq install #{name}", retry: true) if `which #{command}`.chop.empty?
+    end
+
     def self.pip(name, command = name)
       context.shell("sudo pip install #{name}", retry: true) if `which #{command}`.chop.empty?
     end

data/lib/dpl/provider/hackage.rb

@@ -0,0 +1,29 @@
+module DPL
+  class Provider
+    class Hackage < Provider
+      apt_get 'cabal', 'cabal-install'
+
+      def check_auth
+        unless option(:username) and option(:password)
+          raise Error, "must supply username and password"
+        end
+      end
+
+      def check_app
+        context.shell "cabal check" or raise Error, "cabal check failed"
+      end
+
+      def needs_key?
+        false
+      end
+
+      def push_app
+        context.shell "cabal sdist" or raise Error, "cabal sdist failed"
+        Dir.glob("dist/*.tar.gz") do |tar|
+          context.shell "cabal upload --username=#{option(:username)} --password=#{option(:password)} #{tar}"
+        end
+      end
+    end
+  end
+end
+

data/spec/provider/hackage_spec.rb

@@ -0,0 +1,47 @@
+require 'spec_helper'
+require 'dpl/provider/hackage'
+
+describe DPL::Provider::Hackage do
+  subject :provider do
+    described_class.new(DummyContext.new, :username => 'FooUser', :password => 'bar')
+  end
+
+  describe :check_auth do
+    it 'should require username' do
+      provider.options.update(:username => nil)
+      expect {
+        provider.check_auth
+      }.to raise_error(DPL::Error)
+    end
+
+    it 'should require password' do
+      provider.options.update(:password => nil)
+      expect {
+        provider.check_auth
+      }.to raise_error(DPL::Error)
+    end
+  end
+
+  describe :check_app do
+    it 'calls cabal' do
+      provider.context.should_receive(:shell).with("cabal check").and_return(true)
+      provider.check_app
+    end
+
+    it 'fails when cabal complains' do
+      provider.context.should_receive(:shell).with("cabal check").and_return(false)
+      expect {
+        provider.check_app
+      }.to raise_error(DPL::Error)
+    end
+  end
+
+  describe :push_app do
+    example do
+      provider.context.should_receive(:shell).with("cabal sdist").and_return(true)
+      Dir.should_receive(:glob).and_yield('dist/package-0.1.2.3.tar.gz')
+      provider.context.should_receive(:shell).with("cabal upload --username=FooUser --password=bar dist/package-0.1.2.3.tar.gz")
+      provider.push_app
+    end
+  end
+end

data/spec/provider_spec.rb

@@ -31,6 +31,20 @@ describe DPL::Provider do
     end
   end
 
+  describe :apt_get do
+    example "installed" do
+      example_provider.should_receive(:`).with("which foo").and_return("/bin/foo\n")
+      example_provider.should_not_receive(:system)
+      example_provider.apt_get("foo")
+    end
+
+    example "missing" do
+      example_provider.should_receive(:`).with("which foo").and_return("")
+      example_provider.context.should_receive(:shell).with("sudo apt-get -qq install foo", retry: true)
+      example_provider.apt_get("foo")
+    end
+  end
+
   describe :pip do
     example "installed" do
       example_provider.should_receive(:`).with("which foo").and_return("/bin/foo\n")

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: dpl
 version: !ruby/object:Gem::Version
-  version: 1.5.11.travis.432.1
+  version: 1.5.11.travis.435.1
 platform: ruby
 authors:
 - Konstantin Haase
@@ -93,6 +93,7 @@ files:
 - lib/dpl/provider/divshot.rb
 - lib/dpl/provider/dot_cloud.rb
 - lib/dpl/provider/engine_yard.rb
+- lib/dpl/provider/hackage.rb
 - lib/dpl/provider/heroku.rb
 - lib/dpl/provider/heroku/anvil.rb
 - lib/dpl/provider/heroku/git.rb
@@ -119,6 +120,7 @@ files:
 - spec/provider/cloudfoundry_spec.rb
 - spec/provider/divshot_spec.rb
 - spec/provider/dotcloud_spec.rb
+- spec/provider/hackage_spec.rb
 - spec/provider/heroku_anvil_spec.rb
 - spec/provider/heroku_git_deploy_key_spec.rb
 - spec/provider/heroku_git_spec.rb