[64986] trunk/base/src/registry2.0/tests/depends.tcl
raimue at macports.org
raimue at macports.org
Thu Mar 18 16:37:16 PDT 2010
Revision: 64986
http://trac.macports.org/changeset/64986
Author: raimue at macports.org
Date: 2010-03-18 16:37:15 -0700 (Thu, 18 Mar 2010)
Log Message:
-----------
registry2.0/tests:
After r64627, there is no difference between imaged and installed anymore for
dependents.
Revision Links:
--------------
http://trac.macports.org/changeset/64627
Modified Paths:
--------------
trunk/base/src/registry2.0/tests/depends.tcl
Modified: trunk/base/src/registry2.0/tests/depends.tcl
===================================================================
--- trunk/base/src/registry2.0/tests/depends.tcl 2010-03-18 23:32:45 UTC (rev 64985)
+++ trunk/base/src/registry2.0/tests/depends.tcl 2010-03-18 23:37:15 UTC (rev 64986)
@@ -22,29 +22,29 @@
# e
registry::write {
- set a1 [registry::entry create a 1 0 0 {}]
- set a2 [registry::entry create a 2 0 0 {}]
- set a3 [registry::entry create a 3 0 0 {}]
+ set a1 [registry::entry create a 1 0 {} 0]
+ set a2 [registry::entry create a 2 0 {} 0]
+ set a3 [registry::entry create a 3 0 {} 0]
$a1 depends b
$a2 depends b
$a3 depends c
- set b1 [registry::entry create b 1 0 0 {}]
- set b2 [registry::entry create b 2 0 0 {}]
+ set b1 [registry::entry create b 1 0 {} 0]
+ set b2 [registry::entry create b 2 0 {} 0]
$b1 depends d
$b1 depends f
$b2 depends d
$b2 depends g
- set c [registry::entry create c 1 0 0 {}]
+ set c [registry::entry create c 1 0 {} 0]
$c depends e
- set d [registry::entry create d 1 0 0 {}]
+ set d [registry::entry create d 1 0 {} 0]
$d depends e
- set e [registry::entry create e 1 0 0 {}]
- set f [registry::entry create f 1 0 0 {}]
- set g [registry::entry create g 1 0 0 {}]
+ set e [registry::entry create e 1 0 {} 0]
+ set f [registry::entry create f 1 0 {} 0]
+ set g [registry::entry create g 1 0 {} 0]
$a1 state installed
$a2 state imaged
@@ -62,16 +62,19 @@
test_set {[$a1 dependents]} {}
test_set {[$a2 dependents]} {}
test_set {[$a3 dependents]} {}
- test_set {[$b1 dependents]} {$a1}
- test_set {[$b2 dependents]} {}
- test_set {[$c dependents]} {}
- test_set {[$d dependents]} {$b1}
+ test_set {[$b1 dependents]} {$a1 $a2}
+ test_set {[$b2 dependents]} {$a1 $a2}
+ test_set {[$c dependents]} {$a3}
+ test_set {[$d dependents]} {$b1 $b2}
test_set {[$e dependents]} {$c $d}
test_set {[$f dependents]} {$b1}
- test_set {[$g dependents]} {}
+ test_set {[$g dependents]} {$b2}
- test_set {[$a1 dependencies]} {$b1}
+ test_set {[$a1 dependencies]} {$b1 $b2}
+ test_set {[$a2 dependencies]} {$b1 $b2}
+ test_set {[$a3 dependencies]} {$c}
test_set {[$b1 dependencies]} {$d $f}
+ test_set {[$b2 dependencies]} {$d $g}
test_set {[$c dependencies]} {$e}
test_set {[$d dependencies]} {$e}
test_set {[$e dependencies]} {}
@@ -79,83 +82,6 @@
test_set {[$g dependencies]} {}
}
- registry::write {
- $b1 state imaged
- $b2 state installed
- $g state installed
- }
-
- registry::read {
- test_set {[$b1 dependents]} {}
- test_set {[$b2 dependents]} {$a1}
- test_set {[$c dependents]} {}
- test_set {[$d dependents]} {$b2}
- test_set {[$e dependents]} {$c $d}
- test_set {[$f dependents]} {}
- test_set {[$g dependents]} {$b2}
-
- test_set {[$a1 dependencies]} {$b2}
- test_set {[$b2 dependencies]} {$d $g}
- test_set {[$c dependencies]} {$e}
- test_set {[$d dependencies]} {$e}
- }
-
- registry::write {
- $a1 state imaged
- $a2 state installed
- $f state imaged
- }
-
- registry::read {
- test_set {[$b1 dependents]} {}
- test_set {[$b2 dependents]} {$a2}
- test_set {[$c dependents]} {}
- test_set {[$d dependents]} {$b2}
- test_set {[$e dependents]} {$c $d}
- test_set {[$f dependents]} {}
- test_set {[$g dependents]} {$b2}
-
- test_set {[$a2 dependencies]} {$b2}
- test_set {[$b2 dependencies]} {$d $g}
- test_set {[$c dependencies]} {$e}
- test_set {[$d dependencies]} {$e}
- }
-
- registry::write {
- $a2 state imaged
- $a3 state installed
- }
-
- registry::read {
- test_set {[$b1 dependents]} {}
- test_set {[$b2 dependents]} {}
- test_set {[$c dependents]} {$a3}
- test_set {[$d dependents]} {$b2}
- test_set {[$e dependents]} {$c $d}
- test_set {[$f dependents]} {}
- test_set {[$g dependents]} {$b2}
-
- test_set {[$a3 dependencies]} {$c}
- test_set {[$b2 dependencies]} {$d $g}
- test_set {[$c dependencies]} {$e}
- test_set {[$d dependencies]} {$e}
- }
-
- registry::write {
- $b2 state imaged
- $d state imaged
- }
-
- registry::read {
- test_set {[$c dependents]} {$a3}
- test_set {[$d dependents]} {}
- test_set {[$e dependents]} {$c}
- test_set {[$g dependents]} {}
-
- test_set {[$a3 dependencies]} {$c}
- test_set {[$d dependencies]} {$e}
- }
-
file delete test.db
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100318/f4aedb95/attachment.html>
More information about the macports-changes
mailing list