ruby-debian 0.3.8

data/t/testdepunmet.rb

@@ -0,0 +1,71 @@
+require 'runit/testcase'
+require 'runit/cui/testrunner'
+
+$:.unshift("../lib")
+require '../lib/debian.rb'
+
+class TestDebian__Dep__Unmet < RUNIT::TestCase
+
+  def setup
+    dep = Debian::Dep::Term.new('w3m')
+    assert_not_nil(dep)
+    deb = Debian::Deb.new(IO.readlines("d/w3m-ssl_0.2.1-1.f").join(""))
+    assert_not_nil(deb)
+    @unmet = Debian::Dep::Unmet.new(dep, deb)
+  end
+  def test_deb
+    deb = Debian::Deb.new(IO.readlines("d/w3m-ssl_0.2.1-1.f").join(""))
+    assert_equals(deb, @unmet.deb)
+  end
+
+  def test_dep
+    assert_equals(Debian::Dep::Term.new('w3m'), @unmet.dep)
+  end
+
+  def test_package
+    assert_nil(@unmet.package)
+  end
+
+  def test_package=
+    @unmet.package = 'w3m-el'
+    assert_equals('w3m-el', @unmet.package)
+    assert_exception(Debian::DepError) { @unmet.package = 'w3m' }
+  end
+
+  def test_relation
+    assert_nil(@unmet.relation)
+  end
+  
+  def test_relation=
+    @unmet.relation = 'depends'
+    assert_equals('depends', @unmet.relation)
+    assert_exception(Debian::DepError) { @unmet.relation = 'recommends' }
+  end
+
+  def test_to_s
+    assert_equals('w3m unmet w3m-ssl 0.2.1-1 (provides w3m)', @unmet.to_s)
+    @unmet.package = 'w3m-ssl'
+    assert_equals('w3m-ssl w3m unmet w3m-ssl 0.2.1-1 (provides w3m)', 
+		  @unmet.to_s)
+    @unmet.relation = 'depends'
+    assert_equals('w3m-ssl depends w3m unmet w3m-ssl 0.2.1-1 (provides w3m)', 
+		  @unmet.to_s)
+  end
+
+#  def test_s_new
+#	???
+#  end
+
+end
+
+if $0 == __FILE__
+  if ARGV.size == 0
+    suite = TestDebian__Dep__Unmet.suite
+  else
+    suite = RUNIT::TestSuite.new
+    ARGV.each do |testmethod|
+      suite.add_test(TestDebian__Dep__Unmet.new(testmethod))
+    end
+  end
+  RUNIT::CUI::TestRunner.run(suite)
+end

data/t/testdpkg.rb

@@ -0,0 +1,197 @@
+# c2t.rb -na Debian::Dpkg ../lib/debian.rb > testdpkg.rb
+#
+require 'runit/testcase'
+require 'runit/cui/testrunner'
+
+$:.unshift("../lib")
+require '../lib/debian.rb'
+
+class TestDebian__Dpkg < RUNIT::TestCase
+
+  def test_s_architecture
+    arch = %x{dpkg --print-architecture}.chomp!
+    assert_equals(arch, Debian::Dpkg.architecture())
+  end
+  def test_s_gnu_build_architecture
+    arch = %x{dpkg --print-gnu-build-architecture}.chomp!
+    assert_equals(arch, Debian::Dpkg.gnu_build_architecture())
+  end
+
+  def test_s_installation_architecture
+    arch = %x{dpkg --print-installation-architecture}.chomp!
+    assert_equals(arch, Debian::Dpkg.installation_architecture())
+  end
+
+  def test_s_compare_versions
+    assert(Debian::Dpkg.compare_versions('1.0','<','1.1'))
+    assert(Debian::Dpkg.compare_versions('1.0','<=','1.1'))
+    assert(Debian::Dpkg.compare_versions('1.0','<=','1.0'))
+    assert(Debian::Dpkg.compare_versions('1.0','=','1.0'))
+    assert(Debian::Dpkg.compare_versions('1.0','>=','1.0'))
+    assert(Debian::Dpkg.compare_versions('1.1','>','1.0'))
+  end
+
+  def test_s_field
+    ruby = Dir["/var/cache/apt/archives/ruby_1.6*.deb"]
+    if ruby.empty?
+      assert_fail("no ruby package in /var/cache/apt/archives")
+    end
+    ruby.each {|deb|
+      d = Debian::Dpkg.field(deb)
+      assert_equals("ruby", d.package)
+      assert_matches(d.version, /1.6/)
+      assert_equals("akira yamada <akira@debian.org>", d['maintainer'])
+      assert_equals("interpreters", d['section'])
+      assert_equals("optional", d['priority'])
+      # request field only
+      assert_equals(["ruby"], Debian::Dpkg.field(deb, ["package"]))
+      assert_equals(["akira yamada <akira@debian.org>"], 
+		    Debian::Dpkg.field(deb, ["maintainer"]))
+      assert_equals(["interpreters"], Debian::Dpkg.field(deb, ["section"]))
+      assert_equals(["optional"], Debian::Dpkg.field(deb, ["priority"]))
+      assert_equals(["ruby","interpreters","optional"],
+		    Debian::Dpkg.field(deb, ["package","section","priority"]))
+    }
+  end
+
+  LIST_SELECTION = Debian::Deb::SELECTION_ID.invert
+  LIST_STATUS = Debian::Deb::STATUS_ID.invert
+  
+  def dpkg_l_parse(line)
+    if /^(.)(.)(.)\s+(\S+)\s+(\S+)\s+(.*)/ =~ line
+      {'selection' => $1,
+	'status' => $2,
+	'err?' => $3,
+	'package' => $4,
+	'version' => $5,
+	'description' => $6
+      }
+    else
+      assert_fail("parse failed dpkg -l #{line}")
+    end
+  end
+  def test_s_status
+    dpkg_l = ''
+    ENV['COLUMNS']="256"
+    IO.popen("dpkg --list dpkg") {|f|
+      f.each {|line|
+	break if /^\+/ =~ line
+      }
+      dpkg_l = dpkg_l_parse(f.readlines[0])
+    }
+    dpkg_tl = Debian::Dpkg.status(['dpkg'])
+    assert_not_nil(dpkg_tl['dpkg'])
+    assert_equals('dpkg', dpkg_tl['dpkg'].package)
+    assert_equals(LIST_SELECTION[dpkg_l['selection']], 
+		  dpkg_tl['dpkg'].selection)
+    assert_equals(LIST_STATUS[dpkg_l['status']], 
+		  dpkg_tl['dpkg'].status)
+    assert_equals(dpkg_l['version'], 
+		  dpkg_tl['dpkg'].version.slice(0,dpkg_l['version'].length))
+    assert_equals('Package maintenance system for Debian',
+		  dpkg_tl['dpkg'].description.slice(0,'Package maintenance system for Debian'.length))
+
+    ol = {}
+    IO.popen("dpkg --list") {|f|
+      f.each {|line|
+	break if /^\+/ =~ line
+
+      }
+      f.each {|line|
+	l = dpkg_l_parse(line)
+	next if ol.include?(l['package'])
+	ol[l['package']] = l
+      }
+    }
+    tl = Debian::Dpkg.status
+    ol.each {|op,ol|
+      tp = nil
+      dupped = false
+      tl.each_key {|t|
+	if t == op
+	  tp = tl[t]
+	  break
+	end
+	if t.slice(0,14) == op
+	  if tp
+	    dupped = true
+	    break
+	  end
+	  tp = tl[t]
+	end
+      }
+      next if dupped
+      assert_not_nil(tp, "#{op}")
+      assert_equals(op, tp.package.slice(0,op.length),
+		    "#{op}/#{tp.package}")
+      assert_equals(ol['package'], tp.package.slice(0,ol['package'].length),
+		    "#{ol['pacakge']}/#{tp.package}")
+      assert_equals(LIST_SELECTION[ol['selection']], tp.selection, tp.package)
+      assert_equals(LIST_STATUS[ol['status']], tp.status, tp.package)
+      assert_equals(ol['version'], tp.version.gsub(/^\d+:/,"").slice(0,ol['version'].length), tp.package)
+      assert_equals(ol['description'], tp.description.slice(0,ol['description'].length), tp.package)
+    }
+  end
+
+  def test_s_selections
+    # dpkg --get-selections ...
+    sl = {}
+    IO.popen("dpkg --get-selections") {|f|
+      f.each {|line|
+	p,sel = line.split
+	sl[p] = sel
+      }
+    }
+    tsl = Debian::Dpkg.selections
+    sl.each {|p,sel|
+      assert_equals(sel, tsl[p].selection)
+    }
+  end
+#  def test_s_selections=
+#    # dpkg --set-selections
+#  end
+  def test_s_avail
+    # dpkg --print-avail ...
+    a = IO.popen("dpkg --print-avail w3m") {|f|
+      Debian::Deb.new(f.readlines.join(""))
+    }
+    ta = Debian::Dpkg.avail(['w3m'])
+    assert_equals(a, ta['w3m'])
+  end
+  def test_s_listfiles
+    # dpkg --listfiles ...
+    l = IO.popen("dpkg --listfiles dpkg gzip").readlines("\n\n").collect {|l| 
+      l.split("\n")
+    }
+    tl = Debian::Dpkg.listfiles(['dpkg', 'gzip'])
+    assert_equals(l, tl)
+  end
+  def test_s_search
+    # dpkg --search
+    s = IO.popen("dpkg --search dpkg-deb").readlines.collect {|l|
+      l.chomp!
+      /^(\S+):\s*(\S+)/ =~ l
+      [$1, $2]
+    }.sort {|a,b| (a[0] + a[1]) <=> (b[0] + b[1]) }
+    ts = Debian::Dpkg.search(['dpkg-deb']).sort {|a,b| 
+      (a[0] + a[1]) <=> (b[0] + b[1])
+    }
+    assert_equals(s, ts)
+  end
+#  def test_s_audit
+#    # dpkg --audit
+#  end
+
+end
+
+if $0 == __FILE__
+  if ARGV.size == 0
+    suite = TestDebian__Dpkg.suite
+  else
+    suite = RUNIT::TestSuite.new
+    ARGV.each do |testmethod|
+      suite.add_test(TestDebian__Dpkg.new(testmethod))
+    end
+  end
+  RUNIT::CUI::TestRunner.run(suite)
+end

data/t/testdpkgdeb.rb

@@ -0,0 +1,83 @@
+require 'runit/testcase'
+require 'runit/cui/testrunner'
+
+$:.unshift("../lib")
+require '../lib/debian.rb'
+
+class TestDebian__DpkgDeb < RUNIT::TestCase
+
+  def setup
+    @ruby = Dir["/var/cache/apt/archives/ruby_1.6*.deb"]
+    if @ruby.empty?
+      assert_fail("no ruby package in /var/cache/apt/archives")
+    end
+    @libs = Dir["/usr/lib/libc.*"]
+    if @libs.empty?
+      assert_fail("no libc in /usr/lib")
+    end
+  end
+  def test_deb?
+    @ruby.each {|deb|
+      assert(Debian::DpkgDeb.deb?(deb))
+    }
+    @libs.each {|lib|
+      assert(! Debian::DpkgDeb.deb?(lib))
+    }
+  end
+  def test_assert_deb?
+    @ruby.each {|deb|
+      assert_no_exception(Debian::Error) {Debian::DpkgDeb.assert_deb?(deb)}
+    }
+    @libs.each {|lib|
+      assert_exception(Debian::Error) {! Debian::DpkgDeb.assert_deb?(lib)}
+    }
+  end
+
+  def test_control
+    ENV["LANG"] = 'C'
+    @ruby.each {|deb|
+      c = []
+      IO.popen("dpkg -I #{deb}") {|fp|
+	fp.each {|line|
+	  line.chomp!
+	  if /^\s+\d+\sbytes,\s+\d+\s+lines\s+\*?\s*(\S+).*/ =~ line
+	    c.push($1)
+	  end
+	}
+      }
+      assert_equals(c.sort, Debian::DpkgDeb.control(deb).sort)
+    }
+  end
+  def test_data
+    @ruby.each {|deb|
+      d = []
+      IO.popen("dpkg --fsys-tarfile #{deb}|tar tf -") {|fp|
+	fp.each {|line|
+	  line.chomp!
+	  d.push(line)
+	}
+      }
+      assert_equals(d, Debian::DpkgDeb.data(deb))
+    }
+  end
+
+  def test_load
+    @ruby.each {|deb|
+      de = Debian::DpkgDeb.load(deb)
+      assert_equals(deb, de.filename)
+    }
+  end
+
+end
+
+if $0 == __FILE__
+  if ARGV.size == 0
+    suite = TestDebian__DpkgDeb.suite
+  else
+    suite = RUNIT::TestSuite.new
+    ARGV.each do |testmethod|
+      suite.add_test(TestDebian__DpkgDeb.new(testmethod))
+    end
+  end
+  RUNIT::CUI::TestRunner.run(suite)
+end

data/t/testdsc.rb

@@ -0,0 +1,49 @@
+require 'runit/testcase'
+require 'runit/cui/testrunner'
+
+$:.unshift("../lib")
+require '../lib/debian.rb'
+
+class TestDebian__Dsc < RUNIT::TestCase
+
+  def setup
+    @dsc = [Debian::Dsc.new(IO.readlines("d/w3m_0.2.1-1.dsc").join("")),
+            Debian::Dsc.new(IO.readlines("d/w3m_0.2.1-2.dsc").join("")),
+            Debian::Dsc.new(IO.readlines("d/w3m-ssl_0.2.1-2.dsc").join(""))]
+  end
+
+  def test_binary
+    assert_equals(["w3m"], @dsc[0].binary)
+    assert_equals(["w3m"], @dsc[1].binary)
+    assert_equals(["w3m-ssl"], @dsc[2].binary)
+  end
+
+  def test_package
+    assert_equals("w3m", @dsc[0].package)
+    assert_equals("w3m", @dsc[1].package)
+    assert_equals("w3m-ssl", @dsc[2].package)
+  end
+
+  def test_version
+    assert_equals("0.2.1-1", @dsc[0].version)
+    assert_equals("0.2.1-2", @dsc[1].version)
+    assert_equals("0.2.1-2", @dsc[2].version)
+  end
+
+#  def test_s_new
+#    
+#  end
+
+end
+
+if $0 == __FILE__
+  if ARGV.size == 0
+    suite = TestDebian__Dsc.suite
+  else
+    suite = RUNIT::TestSuite.new
+    ARGV.each do |testmethod|
+      suite.add_test(TestDebian__Dsc.new(testmethod))
+    end
+  end
+  RUNIT::CUI::TestRunner.run(suite)
+end

data/t/testfield.rb

@@ -0,0 +1,155 @@
+require 'runit/testcase'
+require 'runit/cui/testrunner'
+
+$:.unshift("../lib")
+require '../lib/debian.rb'
+
+class ClassDebianField
+  include Debian::Field
+  def initialize(c, rf=[])
+    parseFields(c, rf)
+  end
+end
+
+class TestDebian__Field < RUNIT::TestCase
+
+  def setup
+    @ff = {}
+    Dir["d/*.f"].each {|ff|
+      dc = ClassDebianField.new(IO.readlines(ff).join(""), [])
+      @ff["#{dc['package']}_#{dc['version']}"] = dc
+    }
+  end
+
+  def test_AREF # '[]'
+    assert_equals("w3m", @ff['w3m_0.2.1-1']['package'])
+    assert_equals("w3m-ssl", @ff['w3m-ssl_0.2.1-1']['package'])
+    assert_equals("0.2.1-1", @ff['w3m_0.2.1-1']['version'])
+  end
+
+  def test_EQUAL # '=='
+    dc2 = ClassDebianField.new(IO.readlines("d/w3m_0.2.1-1.f").join(""), [])
+    assert(dc2 == @ff['w3m_0.2.1-1'])
+    assert(!(dc2 == @ff['w3m_0.2.1-2']))
+    assert(!(dc2 == @ff['w3m-ssl_0.2.1-1']))
+  end
+
+  def test_GE # '>='
+    assert(@ff['w3m_0.2.1-2'] >= @ff['w3m_0.2.1-1'])
+    assert(@ff['w3m_0.2.1-1'] >= @ff['w3m_0.2.1-1'])
+    assert(!(@ff['w3m_0.2.1-1'] >= @ff['w3m_0.2.1-2']))
+    assert(!(@ff['w3m-ssl_0.2.1-2'] >= @ff['w3m_0.2.1-1']))
+    assert(!(@ff['w3m-ssl_0.2.1-1'] >= @ff['w3m_0.2.1-1']))
+    assert(!(@ff['w3m-ssl_0.2.1-1'] >= @ff['w3m_0.2.1-2']))
+  end
+
+  def test_GT # '>'
+    assert(@ff['w3m_0.2.1-2'] > @ff['w3m_0.2.1-1'])
+    assert(!(@ff['w3m_0.2.1-1'] > @ff['w3m_0.2.1-1']))
+    assert(!(@ff['w3m_0.2.1-1'] > @ff['w3m_0.2.1-2']))
+    assert(!(@ff['w3m-ssl_0.2.1-2'] > @ff['w3m_0.2.1-1']))
+    assert(!(@ff['w3m-ssl_0.2.1-1'] > @ff['w3m_0.2.1-1']))
+    assert(!(@ff['w3m-ssl_0.2.1-1'] > @ff['w3m_0.2.1-2']))
+  end
+
+  def test_LE # '<='
+    assert(@ff['w3m_0.2.1-1'] <= @ff['w3m_0.2.1-1'])
+    assert(@ff['w3m_0.2.1-1'] <= @ff['w3m_0.2.1-2'])
+    assert(!(@ff['w3m_0.2.1-2'] <= @ff['w3m_0.2.1-1']))
+    assert(!(@ff['w3m-ssl_0.2.1-2'] <= @ff['w3m_0.2.1-1']))
+    assert(!(@ff['w3m-ssl_0.2.1-1'] <= @ff['w3m_0.2.1-1']))
+    assert(!(@ff['w3m-ssl_0.2.1-1'] <= @ff['w3m_0.2.1-2']))
+  end
+
+  def test_LT # '<'
+    assert(@ff['w3m_0.2.1-1'] < @ff['w3m_0.2.1-2'])
+    assert(!(@ff['w3m_0.2.1-1'] < @ff['w3m_0.2.1-1']))
+    assert(!(@ff['w3m_0.2.1-2'] < @ff['w3m_0.2.1-1']))
+    assert(!(@ff['w3m-ssl_0.2.1-2'] > @ff['w3m_0.2.1-1']))
+    assert(!(@ff['w3m-ssl_0.2.1-1'] > @ff['w3m_0.2.1-1']))
+    assert(!(@ff['w3m-ssl_0.2.1-1'] > @ff['w3m_0.2.1-2']))
+  end
+
+  def test_VERY_EQUAL # '==='
+    assert(@ff['w3m_0.2.1-1'] === @ff['w3m_0.2.1-1'])
+    assert(@ff['w3m_0.2.1-1'] === @ff['w3m_0.2.1-2'])
+    assert(@ff['w3m_0.2.1-2'] === @ff['w3m_0.2.1-1'])
+    assert(!(@ff['w3m_0.2.1-1'] === @ff['w3m-ssl_0.2.1-1']))
+    assert(!(@ff['w3m_0.2.1-1'] === @ff['w3m-ssl_0.2.1-2']))
+  end
+
+  def test_info_s
+    c = IO.readlines("d/w3m_0.2.1-1.f").join("")
+    assert_equals(c, @ff['w3m_0.2.1-1'].info_s)
+  end
+
+  def test_fields
+    assert_equals(['Package', 'Version', 'Section', 'Priority',
+		    'Architecture', 'Depends', 'Suggests',
+		    'Provides', 'Installed-size', 'Maintainer',
+		    'Description'], @ff['w3m_0.2.1-1'].fields)
+  end
+
+  def test_info
+    assert_equals({'Package' => 'w3m',
+		    'Version' => '0.2.1-1',
+		    'Section' => 'text',
+		    'Priority' => 'optional',
+		    'Architecture' => 'i386',
+		    'Depends' => 'libc6 (>= 2.2.1-2), libgc5, libgpmg1 (>= 1.14-16), libncurses5 (>= 5.2.20010310-1)',
+		    'Suggests' => 'w3m-ssl (>= 0.2.1-1), mime-support, menu (>> 1.5), w3m-el',
+		    'Provides' => 'www-browser',
+		    'Installed-size' => '1300',
+		    'Maintainer' => 'Fumitoshi UKAI <ukai@debian.or.jp>',
+		    'Description' => 'WWW browsable pager with excellent tables/frames support
+ w3m is a text-based World Wide Web browser with IPv6 support.
+ It features excellent support for tables and frames. It can be used
+ as a standalone file pager, too.
+ .
+  * You can follow links and/or view images in HTML.
+  * Internet message prewview mode, you can browse HTML mail.
+  * You can follow links in plain text if it includes URL forms.
+ .
+ For more information,
+ see http://ei5nazha.yz.yamagata-u.ac.jp/~aito/w3m/eng/index.html'},
+		  @ff['w3m_0.2.1-1'].info)
+  end
+
+  def test_package
+    assert_equals('w3m', @ff['w3m_0.2.1-1'].package)
+    assert_equals('w3m-ssl', @ff['w3m-ssl_0.2.1-2'].package)
+  end
+
+  def test_version
+    assert_equals('0.2.1-1', @ff['w3m_0.2.1-1'].version)
+    assert_equals('0.2.1-2', @ff['w3m-ssl_0.2.1-2'].version)
+  end
+
+  def test_maintainer
+    assert_equals('Fumitoshi UKAI <ukai@debian.or.jp>', @ff['w3m_0.2.1-1'].maintainer)
+  end
+
+#  def test_parseFields
+#	how to test?    
+#  end
+
+  def test_to_s
+    assert_equals("w3m 0.2.1-1", @ff['w3m_0.2.1-1'].to_s)
+    assert_equals("w3m 0.2.1-2", @ff['w3m_0.2.1-2'].to_s)
+    assert_equals("w3m-ssl 0.2.1-1", @ff['w3m-ssl_0.2.1-1'].to_s)
+    assert_equals("w3m-ssl 0.2.1-2", @ff['w3m-ssl_0.2.1-2'].to_s)
+  end
+
+end
+
+if $0 == __FILE__
+  if ARGV.size == 0
+    suite = TestDebian__Field.suite
+  else
+    suite = RUNIT::TestSuite.new
+    ARGV.each do |testmethod|
+      suite.add_test(TestDebian__Control.new(testmethod))
+    end
+  end
+  RUNIT::CUI::TestRunner.run(suite)
+end