gpgme-loongson 2.0.18

data/test/data_test.rb

@@ -0,0 +1,142 @@
+# -*- encoding: utf-8 -*-
+require 'test_helper'
+
+describe GPGME::Data do
+  describe :new do
+    it "smartly creates an empty buffer if nothing passed" do
+      data = GPGME::Data.new
+      assert_instance_of GPGME::Data, data
+      assert_respond_to data, :read
+      assert_respond_to data, :write
+    end
+
+    it "doesn't create a new object if the object passed is a Data already" do
+      data = GPGME::Data.new
+      new_data = GPGME::Data.new(data)
+
+      assert_equal data, new_data
+    end
+
+    it "creates a data from strings" do
+      data = GPGME::Data.new("wadus")
+      assert_equal "wadus", data.read
+    end
+
+    it "creates a data from a file" do
+      # magic fromfile
+      data = GPGME::Data.new(File.open(__FILE__))
+      assert_match /magic fromfile/, data.read
+    end
+
+    it "creates a data from file descriptor" do
+      # magic filedescriptor
+      File.open(__FILE__) do |f|
+        data = GPGME::Data.new(f.fileno)
+        assert_match /magic filedescriptor/, data.read
+      end
+    end
+  end
+
+  describe :read do
+    it "allows to read only a length of the object" do
+      data = GPGME::Data.new("wadus")
+      assert_equal "wad", data.read(3)
+    end
+
+    it "returns nil if reading 0 length" do
+      data = GPGME::Data.new("wadus")
+      assert_nil data.read(0)
+    end
+
+    it "returns the full thing if reading without parameter" do
+      data = GPGME::Data.new("wadus")
+      assert_equal "wadus", data.read
+    end
+  end
+
+  ##
+  # We consider seek tested by these ones, since we have to seek(0) before
+  # reading.
+  describe :write do
+    it "writes data to it" do
+      data = GPGME::Data.new
+      data.write("wadus")
+      data.seek(0)
+      assert_equal "wadus", data.read
+    end
+
+    it "writes data to it, specifying the length of the things to write" do
+      data = GPGME::Data.new
+      data.write("wadus", 5)
+      data.seek(0)
+      assert_equal "wadus", data.read
+    end
+
+    it "writes only a limited part if specified a small number" do
+      data = GPGME::Data.new
+      data.write("wadus", 3)
+      data.seek(0)
+      assert_equal "wad", data.read
+    end
+
+    # TODO: test doesn't pass, I believe there might be a security issue here,
+    # random crap is written to the buffer if a longer size is passed.
+    #
+    # it "writes only the full data passed even if the length is bigger" do
+    #   data = GPGME::Data.new
+    #   data.write("wadus", 100)
+    #   data.seek(0)
+    #   assert_equal "wadus", data.read
+    # end
+  end
+
+  describe :encoding do
+    it "has encoding 0 by default (DATA_ENCODING_NONE)" do
+      data = GPGME::Data.new("wadus")
+      assert_equal GPGME::DATA_ENCODING_NONE, data.encoding
+    end
+
+    it "can set encodings" do
+      data = GPGME::Data.new("wadus")
+      [ GPGME::DATA_ENCODING_ARMOR, GPGME::DATA_ENCODING_BASE64,
+        GPGME::DATA_ENCODING_BINARY,GPGME::DATA_ENCODING_NONE ].each do |encoding|
+        data.encoding = encoding
+        assert_equal encoding, data.encoding
+      end
+    end
+
+    it "breaks if not set a proper encoding value" do
+      data = GPGME::Data.new("wadus")
+      assert_raises GPGME::Error::InvalidValue do
+        data.encoding = 64
+      end
+    end
+  end
+
+  describe :file_name do
+    it "has no name by default" do
+      data = GPGME::Data.new("wadus")
+      assert_nil data.file_name
+    end
+
+    it "can set file_name" do
+      data = GPGME::Data.new("wadus")
+      [ "foo.bar", nil ].each do |file_name|
+        data.file_name = file_name
+        assert_equal file_name, data.file_name
+      end
+    end
+  end
+
+  describe :to_s do
+    it "returns the entire content of data" do
+      data = GPGME::Data.new("wadus")
+      data.read
+      old_pos = data.seek(0, IO::SEEK_CUR)
+      assert_equal "wadus", data.to_s
+      new_pos = data.seek(0, IO::SEEK_CUR)
+      assert_equal old_pos, new_pos
+    end
+  end
+end
+

data/test/files/testkey_pub.gpg

@@ -0,0 +1,52 @@
+-----BEGIN PGP PUBLIC KEY BLOCK-----
+Version: GnuPG v1.4.11 (Darwin)
+
+mQSuBE1tOWYRDAC0MiL/mUsW1I18H9TZzurEXM0HMxFcQ5LlGm+0Zk+tSI/AVk4G
+mZRppURYAFPyOQLOT6sm4vPXJ29uRJ8WSHtryg1HqPvIPauZVB9tSW10K7gmpdSd
+pty2/QGa8dNEnlMIJN8Kti0qaU72jfBH1r3mdpZ+P4KNFIKgYTbavzJ3GOtrypBz
+K52nH/baQM3wBQ31JKsM8qJy3Vf5jmc1vD3bim3QMarjKRPeE3e6T3iwrtc9MG8N
+ayD/taUUeunkEIMO6B1iRykSF+7i8RlOVv9ubJEi92VfMGw5QEnmjKJf/v/GRsFt
+82Y7zQ7x4MmZgUITubePKRrYnF1BSBAwk4Mn6r8lXjmEN+xNQlR7T69WiSbEi3NM
+dcSP+kBNZIqY20szsjb+0MrA1A9/H7cS7ITZ3eQmCw5b77lzA2n588D6cw/EBgvf
+jiepPhh5az/La1OFVeSKXUJeLrWbJQyxZ312INWe0IctmMy8Y8jmdtsZSQ7oKbDR
+zF1+Rx9DCYD+vIsBAPp4UUg+SMV4KKgco36G69hXOY0smR8MUD0VnwUNyWE9C/9k
+tzK6s6z7MDd1uruGemxPRCHnxs520IFPcgStTNpc6KpmncZEL1/GWZeXYcs+Syn/
+c0GhB4wkvvXNP9zKEmXRE+qVX2ogxcuC4Ckfor9qvYcCc2ANRn6YhTlebftLf5F/
+G/fg1oLE0OU7nDha5773LptXomchK11yeDXlMWfS5LOV/KlqNoLJrOlcvvQmnVhT
+tIBNuRYAF86cfI2hegRvshGOEEEzeq0UvNy6487jC9y6lSR5vLa6IfT63EeqJ0mP
+5WOrE4NW2CYoDlsQhq37WNaeYTDXhqVDlgMhrbvNCL2L6XYp8qeat1KAx8lwiiay
+KGa9/2AEJy4/WBB2n14y/g4/cQCHgcT+jQuLwD5iI52+jWo97a3+EUUYyUbYLPAc
+qWybT2qKMB6i4DlnBFsCgaCkASEYGtcslRo1m+LABosiz/CyNyeo4QkyH+zWEPfj
+uANKuKK6HFHFhef3YWknPsRM3TA/GkMhQ2t5Tvow1VyOMaRRKiiCyGXt+WZoG3YL
+/2+v3W/le6SJ0cQYXxwp1KDOniWh7it8Ao7F+Iwyj9qxTTGWcPM0pISZnvj37H0k
+n6xpHLOnGed8jbI4UwFgNOvxSR2RFfRepkbxijq9U0sHsf1HQr/vH8knlaP4ABR+
+g8aKgh6wUmUJx0Mv9pUHZGPpp5KK4258p13mih5aNv5qsItmKB7Aeyz10G8K/9dk
+jTK3FOrY322+jdqbsFUnxtGPdfERHw7J2x5b0nPoZfJY+OhP14s6M3lt2QJzdckH
+y5+Y7xu57xZcNzsfdnIAguLNOf++eWF9YLcJaISnUnHPLa33VWxydtqGoOkAyEsK
+MqrPUpjifKjp7qXW1PDK5nAt7TjlB2azvvU7ufNgUsuBMa+dVlQAqVlLdpelLJmO
+iIP/kbrvNPZyhNN9cAF5fPf6hgDKeDntClZRamm8eYsCsXVfDp2DS7mtaMz+JJix
+U1FbEqeZ4J0mVaVVjhTK0Jxf/h350vhtpI3BYBoZV2bKKDo5AU3lIi/ddqs5w0XW
+DrQeQWxiZXJ0IExsb3AgPG1yc2ltb0BnbWFpbC5jb20+iHoEExEIACIFAk1tOWYC
+GwMGCwkIBwMCBhUIAgkKCwQWAgMBAh4BAheAAAoJEMtSkEI32/chiKgA/187q1bG
+FdtPf0olhUhK1CUqBqVMjZe11zMhDpdCXZq3AP9rtghGL4D7ns5l7bGRYUJsM9Yf
+3JMcyjoGF+JMtUm9HLkDDQRNbTlmEAwAg4yYYYb3COMNMyL2y+czsPn8Cq4OsaLy
+s5P5e5hM4c7StjwebJS2PjRyv2Iez7d2ZPDgNE/zvTOFv9XVALGMjZlXlEssYrDu
+/CNgboeSdU1ZmPO9WCHp1ig3UB8ySS/KayW1N6FXCDazp1WGXke7YIO8H+VeLHaA
+E7XDluJa8Cw9Wwz2i0BlUSHQLuMw0k1wHIV/t0XBBOONeGg3aJB97th0ifg6Pd1P
+IEDhmzpGyPwlg+HZEobqNdLfIQd34HIuXa5UeHaXAFhUFD2mIaIl6CiXRRf9EDcu
+QmPUs4IXZJDsWC4mS5T9PHgyHRP5geml6IAtN2627eaKDPx5VeC8DSG/6oMrFzNB
+VxCd5t3Exzi+3ZOOTJnECMABZc6lK7rIOiQHHLW6vHIy5MggT/Dz6NuQuT9ID2uO
+wzx6w9XMdRXJ0uuEJlhTZtcjlKu+B8i9hHgj1zqNT67Zkkz0/YTVHtNYDpOzjc7A
+c+m/Qok/ERUjVcYS6dIJnJU+3V4L5APTAAMFC/sHCYUR5oa/uCktq//r09xRc/bu
+4uuzNJvsLzHcUA4udFSq2AneqrH/HCkrE0G4U79GMVpSddb+IamNWgJwfk4YHfNV
+Vx2NhAWoCAIve0q+ueXGTGKkHyb0QobT/AmM/4Mtuln7cUfrkEmI8N8YIwPDqCGz
+rWxvoPaOSUSxNfkyrV6IX8vjotx3NKm9n/6f5l/ncDrNSNruSywMq0fiLYS1+bCb
+jsrTfWJKcM284ZwazKgcuhcCkXombkNQtQv7uD8FveWNVhC+LXtsyLGrzFNJVbNr
+khKYfUFyoMY50PdvF4Ai1uJ0IYXQvIPnHbxPXMWa5PezrTWzlIXaVvVfgypC/tCY
+p1QgiS+ln60NoK1m2ZFrUO3rklM44L1BNO9qjrUjYFVlmRd+qEBoXWGJLFp1g7Nh
+1mijiKdrwmCzWsnRSmPRYtOujeojP8bH4ca9RekwqLbRVeX/dLi02GD0pOp6SI6B
+Bk3J0Wzp2Ko47Vj8v03hdBozKZT93a4NeyrNZdiIYQQYEQgACQUCTW05ZgIbDAAK
+CRDLUpBCN9v3ISGmAP0VXwY7BH81NRpwAYp/eeSGP1vxBCdqVAHMc4o3TUoWHAEA
+vioivJ/Qvnb7nlHwagl5rLNXhiz/H71jmFS9x0x7FLg=
+=T/Ce
+-----END PGP PUBLIC KEY BLOCK-----

data/test/files/testkey_sec.gpg

@@ -0,0 +1,54 @@
+-----BEGIN PGP PRIVATE KEY BLOCK-----
+Version: GnuPG v1.4.11 (Darwin)
+
+lQTTBE1tOWYRDAC0MiL/mUsW1I18H9TZzurEXM0HMxFcQ5LlGm+0Zk+tSI/AVk4G
+mZRppURYAFPyOQLOT6sm4vPXJ29uRJ8WSHtryg1HqPvIPauZVB9tSW10K7gmpdSd
+pty2/QGa8dNEnlMIJN8Kti0qaU72jfBH1r3mdpZ+P4KNFIKgYTbavzJ3GOtrypBz
+K52nH/baQM3wBQ31JKsM8qJy3Vf5jmc1vD3bim3QMarjKRPeE3e6T3iwrtc9MG8N
+ayD/taUUeunkEIMO6B1iRykSF+7i8RlOVv9ubJEi92VfMGw5QEnmjKJf/v/GRsFt
+82Y7zQ7x4MmZgUITubePKRrYnF1BSBAwk4Mn6r8lXjmEN+xNQlR7T69WiSbEi3NM
+dcSP+kBNZIqY20szsjb+0MrA1A9/H7cS7ITZ3eQmCw5b77lzA2n588D6cw/EBgvf
+jiepPhh5az/La1OFVeSKXUJeLrWbJQyxZ312INWe0IctmMy8Y8jmdtsZSQ7oKbDR
+zF1+Rx9DCYD+vIsBAPp4UUg+SMV4KKgco36G69hXOY0smR8MUD0VnwUNyWE9C/9k
+tzK6s6z7MDd1uruGemxPRCHnxs520IFPcgStTNpc6KpmncZEL1/GWZeXYcs+Syn/
+c0GhB4wkvvXNP9zKEmXRE+qVX2ogxcuC4Ckfor9qvYcCc2ANRn6YhTlebftLf5F/
+G/fg1oLE0OU7nDha5773LptXomchK11yeDXlMWfS5LOV/KlqNoLJrOlcvvQmnVhT
+tIBNuRYAF86cfI2hegRvshGOEEEzeq0UvNy6487jC9y6lSR5vLa6IfT63EeqJ0mP
+5WOrE4NW2CYoDlsQhq37WNaeYTDXhqVDlgMhrbvNCL2L6XYp8qeat1KAx8lwiiay
+KGa9/2AEJy4/WBB2n14y/g4/cQCHgcT+jQuLwD5iI52+jWo97a3+EUUYyUbYLPAc
+qWybT2qKMB6i4DlnBFsCgaCkASEYGtcslRo1m+LABosiz/CyNyeo4QkyH+zWEPfj
+uANKuKK6HFHFhef3YWknPsRM3TA/GkMhQ2t5Tvow1VyOMaRRKiiCyGXt+WZoG3YL
+/2+v3W/le6SJ0cQYXxwp1KDOniWh7it8Ao7F+Iwyj9qxTTGWcPM0pISZnvj37H0k
+n6xpHLOnGed8jbI4UwFgNOvxSR2RFfRepkbxijq9U0sHsf1HQr/vH8knlaP4ABR+
+g8aKgh6wUmUJx0Mv9pUHZGPpp5KK4258p13mih5aNv5qsItmKB7Aeyz10G8K/9dk
+jTK3FOrY322+jdqbsFUnxtGPdfERHw7J2x5b0nPoZfJY+OhP14s6M3lt2QJzdckH
+y5+Y7xu57xZcNzsfdnIAguLNOf++eWF9YLcJaISnUnHPLa33VWxydtqGoOkAyEsK
+MqrPUpjifKjp7qXW1PDK5nAt7TjlB2azvvU7ufNgUsuBMa+dVlQAqVlLdpelLJmO
+iIP/kbrvNPZyhNN9cAF5fPf6hgDKeDntClZRamm8eYsCsXVfDp2DS7mtaMz+JJix
+U1FbEqeZ4J0mVaVVjhTK0Jxf/h350vhtpI3BYBoZV2bKKDo5AU3lIi/ddqs5w0XW
+DgAA/i3mPJMe0TdsVQ82E/2Zst+vSo363zstyWn8nBjnBlCsENi0HkFsYmVydCBM
+bG9wIDxtcnNpbW9AZ21haWwuY29tPoh6BBMRCAAiBQJNbTlmAhsDBgsJCAcDAgYV
+CAIJCgsEFgIDAQIeAQIXgAAKCRDLUpBCN9v3IYioAP9fO6tWxhXbT39KJYVIStQl
+KgalTI2XtdczIQ6XQl2atwD/a7YIRi+A+57OZe2xkWFCbDPWH9yTHMo6BhfiTLVJ
+vRydA0UETW05ZhAMAIOMmGGG9wjjDTMi9svnM7D5/AquDrGi8rOT+XuYTOHO0rY8
+HmyUtj40cr9iHs+3dmTw4DRP870zhb/V1QCxjI2ZV5RLLGKw7vwjYG6HknVNWZjz
+vVgh6dYoN1AfMkkvymsltTehVwg2s6dVhl5Hu2CDvB/lXix2gBO1w5biWvAsPVsM
+9otAZVEh0C7jMNJNcByFf7dFwQTjjXhoN2iQfe7YdIn4Oj3dTyBA4Zs6Rsj8JYPh
+2RKG6jXS3yEHd+ByLl2uVHh2lwBYVBQ9piGiJegol0UX/RA3LkJj1LOCF2SQ7Fgu
+JkuU/Tx4Mh0T+YHppeiALTdutu3migz8eVXgvA0hv+qDKxczQVcQnebdxMc4vt2T
+jkyZxAjAAWXOpSu6yDokBxy1urxyMuTIIE/w8+jbkLk/SA9rjsM8esPVzHUVydLr
+hCZYU2bXI5SrvgfIvYR4I9c6jU+u2ZJM9P2E1R7TWA6Ts43OwHPpv0KJPxEVI1XG
+EunSCZyVPt1eC+QD0wADBQv7BwmFEeaGv7gpLav/69PcUXP27uLrszSb7C8x3FAO
+LnRUqtgJ3qqx/xwpKxNBuFO/RjFaUnXW/iGpjVoCcH5OGB3zVVcdjYQFqAgCL3tK
+vrnlxkxipB8m9EKG0/wJjP+DLbpZ+3FH65BJiPDfGCMDw6ghs61sb6D2jklEsTX5
+Mq1eiF/L46LcdzSpvZ/+n+Zf53A6zUja7kssDKtH4i2Etfmwm47K031iSnDNvOGc
+GsyoHLoXApF6Jm5DULUL+7g/Bb3ljVYQvi17bMixq8xTSVWza5ISmH1BcqDGOdD3
+bxeAItbidCGF0LyD5x28T1zFmuT3s601s5SF2lb1X4MqQv7QmKdUIIkvpZ+tDaCt
+ZtmRa1Dt65JTOOC9QTTvao61I2BVZZkXfqhAaF1hiSxadYOzYdZoo4ina8Jgs1rJ
+0Upj0WLTro3qIz/Gx+HGvUXpMKi20VXl/3S4tNhg9KTqekiOgQZNydFs6diqOO1Y
+/L9N4XQaMymU/d2uDXsqzWXYAAGWMtPh+QeeZiK67syZ9j0YEC2ITKvyvTegnGA8
+p4nSDtdSUSz2uS/dALByczZjsOu+cmtpGrOIYQQYEQgACQUCTW05ZgIbDAAKCRDL
+UpBCN9v3ISGmAP9C4OCtttrQdxCc+Xh8CnuOs4VaEQLIYX29wZGxGU5PigEAjsWj
+u+DMAdQjSwNi0/7uqGbnAyZuRpBaKWJu9s4YRdU=
+=kQA4
+-----END PGP PRIVATE KEY BLOCK-----

data/test/gpgme_test.rb

@@ -0,0 +1,12 @@
+# -*- encoding: utf-8 -*-
+require 'test_helper'
+
+describe GPGME do
+  it "should pass" do
+    assert true
+  end
+
+  it "should also pass" do
+    assert true
+  end
+end

data/test/key_test.rb

@@ -0,0 +1,209 @@
+# -*- encoding: utf-8 -*-
+require 'test_helper'
+
+describe GPGME::Key do
+  before do
+    skip unless ensure_keys GPGME::PROTOCOL_OpenPGP
+  end
+
+  it "has certain attributes" do
+    key = GPGME::Key.find(:secret).first
+    [:keylist_mode, :protocol, :owner_trust, :issuer_serial,
+      :issuer_name, :chain_id, :subkeys, :uids].each do |attrib|
+      assert key.respond_to?(attrib), "Key doesn't respond to #{attrib}"
+    end
+  end
+
+  it "won't allow the creation of GPGME::Key's without the C API" do
+    assert_raises NoMethodError do
+      GPGME::Key.new
+    end
+  end
+
+  it "can compare one with another even though if they're not the same object" do
+    key1 = GPGME::Key.find(:secret).first
+    key2 = GPGME::Key.find(:secret).first
+    refute_equal key1.object_id, key2.object_id
+    assert_equal key1, key2
+  end
+
+  it "can compare a key with any other object" do
+    key1 = GPGME::Key.find(:secret).first
+    refute_equal key1, nil
+  end
+
+  describe :find do
+    it "should return all by default" do
+      keys = GPGME::Key.find :secret
+      assert_instance_of GPGME::Key, keys.first
+      assert 0 < keys.size
+    end
+
+    it "returns an array even if you pass only one descriptor" do
+      keys_one   = GPGME::Key.find(:secret, KEYS.first[:sha]).map{|key| key.subkeys.map(&:keyid)}
+      keys_array = GPGME::Key.find(:secret, [KEYS.first[:sha]]).map{|key| key.subkeys.map(&:keyid)}
+      assert_equal keys_one, keys_array
+    end
+
+    it "returns only secret keys if told to do so" do
+      keys = GPGME::Key.find :secret
+      assert keys.all?(&:secret?)
+    end
+
+    it "returns only public keys if told to do so" do
+      keys = GPGME::Key.find :public
+      assert keys.none?(&:secret?)
+    end
+
+    it "filters by capabilities" do
+      GPGME::Key.any_instance.stubs(:usable_for?).returns(false)
+      keys = GPGME::Key.find :public, "", :wadusing
+      assert keys.empty?
+    end
+  end
+
+  describe :export do
+    # Testing the lazy way with expectations. I think tests in
+    # the Ctx class are enough.
+    it "exports any key that matches the pattern" do
+      GPGME::Ctx.any_instance.expects(:export_keys).with("", anything)
+      GPGME::Key.export("")
+    end
+
+    it "exports any key that matches the pattern, can specify output" do
+      data = GPGME::Data.new
+      GPGME::Ctx.any_instance.expects(:export_keys).with("wadus", data)
+      ret = GPGME::Key.export("wadus", :output => data)
+      assert_equal data, ret
+    end
+
+    it "can specify options for Ctx" do
+      GPGME::Ctx.expects(:new).with(:armor => true).yields(mock(:export_keys => true))
+      GPGME::Key.export("wadus", :armor => true)
+    end
+  end
+
+  describe "#export" do
+    it "can export from the key instance" do
+      key = GPGME::Key.find(:public).first
+      GPGME::Key.expects(:export).with(key.sha, {})
+
+      key.export
+    end
+
+    it "can export from the key instance passing variables" do
+      key = GPGME::Key.find(:public).first
+      GPGME::Key.expects(:export).with(key.sha, {:armor => true})
+
+      key.export :armor => true
+    end
+  end
+
+  describe :import do
+    it "can import keys" do
+      data = GPGME::Data.new
+      GPGME::Ctx.any_instance.expects(:import_keys).with(data)
+      GPGME::Ctx.any_instance.expects(:import_result).returns("wadus")
+
+      assert_equal "wadus", GPGME::Key.import(data)
+    end
+
+    it "can specify options for Ctx" do
+      GPGME::Ctx.expects(:new).with(:armor => true).yields(mock(:import_keys => true, :import_result => true))
+      GPGME::Key.import("wadus", :armor => true)
+    end
+  end
+
+  # describe :trust do
+  #   it "returns :revoked if it is so"
+  #   it "returns :expired if it is expired"
+  #   it "returns :disabled if it is so"
+  #   it "returns :invalid if it is so"
+  #   it "returns nil otherwise"
+  # end
+
+  # describe :capability do
+  #   it "returns an array of possible capabilities"
+  # end
+
+  # describe :secret? do
+  #   "returns true/false depending on the instance variable"
+  # end
+
+  describe :usable_for? do
+    it "checks for the capabilities of the key and returns true if it matches all" do
+      key = GPGME::Key.find(:secret).first
+
+      key.stubs(:capability).returns([:encrypt, :sign])
+      assert key.usable_for?([])
+
+      key.stubs(:capability).returns([:encrypt, :sign])
+      assert key.usable_for?([:encrypt])
+
+      key.stubs(:capability).returns([:encrypt, :sign])
+      refute key.usable_for?([:certify])
+    end
+
+    it "returns false if the key is expired or revoked or disabled or disabled" do
+      key = GPGME::Key.find(:secret).first
+      key.stubs(:trust).returns(:revoked)
+      key.stubs(:capability).returns([:encrypt, :sign])
+      refute key.usable_for?([:encrypt])
+    end
+  end
+
+  describe :delete! do
+    it "deletes the key itself and its secret one if called with true" do
+      begin
+        key = KEYS.first
+        GPGME::Key.find(:public, key[:sha]).first.delete!(true)
+
+        assert_empty GPGME::Key.find(:public, key[:sha])
+        assert_empty GPGME::Key.find(:secret, key[:sha])
+      ensure
+        import_key key
+      end
+    end
+
+    it "raises GPGME::Error::Conflict if we're deleting a key that is secret" do
+      key = KEYS.first
+      assert_raises GPGME::Error::Conflict do
+        GPGME::Key.find(:secret, key[:sha]).first.delete!
+      end
+      refute_empty GPGME::Key.find(:secret, key[:sha])
+    end
+  end
+
+  it "knows if the key is expired" do
+    key = GPGME::Key.find(:secret).first
+    refute key.expired
+
+    with_key EXPIRED_KEY do
+      key = GPGME::Key.find(:secret, EXPIRED_KEY[:sha]).first
+      assert key.expired
+    end
+  end
+
+  it "returns the expiry date of the first subkey" do
+    key = GPGME::Key.find(:secret).first
+    subkey = key.primary_subkey
+    subkey.expects(:expired).returns(true)
+
+    assert key.expired
+  end
+
+  describe :inspect do
+    it "can be inspected" do
+      key = GPGME::Key.find(:secret).first
+      key.inspect
+    end
+  end
+
+  describe :to_s do
+    it "can be coerced into a String" do
+      key = GPGME::Key.find(:secret).first
+      key.to_s
+    end
+  end
+end
+