[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