Codebase list ruby-debian / mia/main t / testdep.rb
mia/main

Tree @mia/main (Download .tar.gz)

testdep.rb @mia/main — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
require 'test/unit'

require 'debian'

class TestDebian__Dep < Test::Unit::TestCase

  def setup
    @dep = [Debian::Dep.new("w3m", 'Depends'),
      	    Debian::Dep.new("w3m | w3m-ssl", 'Depends'),
            Debian::Dep.new("w3m (>= 0.2.1-2) | w3m-ssl (>= 0.2.1-2)", 
			    'Recommends'),
      	    Debian::Dep.new("www-browser", "Suggests")]
  end

  def test_satisfy?
    deb = [Debian::Deb.new(IO.readlines("t/d/w3m_0.2.1-1.f").join("")),
           Debian::Deb.new(IO.readlines("t/d/w3m_0.2.1-2.f").join("")),
      	   Debian::Deb.new(IO.readlines("t/d/w3m-ssl_0.2.1-1.f").join("")),
      	   Debian::Deb.new(IO.readlines("t/d/w3m-ssl_0.2.1-2.f").join(""))]
    assert(@dep[0].satisfy?(deb[0]))
    assert(@dep[0].satisfy?(deb[1]))
    assert(!(@dep[0].satisfy?(deb[2])))
    assert(!(@dep[0].satisfy?(deb[3])))

    assert(@dep[1].satisfy?(deb[0]))
    assert(@dep[1].satisfy?(deb[1]))
    assert(@dep[1].satisfy?(deb[2]))
    assert(@dep[1].satisfy?(deb[3]))

    assert(!(@dep[2].satisfy?(deb[0])))
    assert(@dep[2].satisfy?(deb[1]))
    assert(!(@dep[2].satisfy?(deb[2])))
    assert(@dep[2].satisfy?(deb[3]))
  end

  def test_to_s
    assert_equal("Depends w3m", @dep[0].to_s)
    assert_equal("Depends w3m | w3m-ssl", @dep[1].to_s)
    assert_equal("Recommends w3m (>= 0.2.1-2) | w3m-ssl (>= 0.2.1-2)",
		  @dep[2].to_s)
  end

  def test_unmet
    p = Debian::Packages.new("t/d/w3m_met_list")
    assert_equal([], @dep[0].unmet(p)) # w3m
    assert_equal([], @dep[1].unmet(p)) # w3m | w3m-ssl
    assert_equal([], @dep[2].unmet(p)) 
    			# w3m (>= 0.2.1-2) | w3m-ssl (>= 0.2.1-2)
    assert_equal([], @dep[3].unmet(p)) # www-browser
  end

#  def test_s_new
#    
#  end

end