[24756] branches/dp2mp-move/base/src/macports1.0

[source_changes at macosforge.org]

Revision: 24756
          http://trac.macosforge.org/projects/macports/changeset/24756
Author:   jmpp at macports.org
Date:     2007-05-02 23:30:58 -0700 (Wed, 02 May 2007)

Log Message:
-----------
Moving the test_dlist.tcl file into a tests/ dedicated dir for macports1.0 (appropriately renaming the file), while updating the URL to the bug orginial bug report (#354) the test was written for (NOTE: I think the bug reported in #354 is still an issue, ticketed in #10827 but with many duplicates all around).

Added Paths:
-----------
    branches/dp2mp-move/base/src/macports1.0/tests/
    branches/dp2mp-move/base/src/macports1.0/tests/macports_dlist.tcl

Removed Paths:
-------------
    branches/dp2mp-move/base/src/macports1.0/test_dlist.tcl

Deleted: branches/dp2mp-move/base/src/macports1.0/test_dlist.tcl
===================================================================
--- branches/dp2mp-move/base/src/macports1.0/test_dlist.tcl	2007-05-03 05:41:44 UTC (rev 24755)
+++ branches/dp2mp-move/base/src/macports1.0/test_dlist.tcl	2007-05-03 06:30:58 UTC (rev 24756)
@@ -1,113 +0,0 @@
-#!/usr/bin/env tclsh
-# macports1.0/test_dlist.tcl
-# $Id$
-#
-# Copyright (c) 2003 Kevin Van Vechten <kevin at opendarwin.org>
-
-# Test suite for macports_dlist package.
-
-#lappend auto_path .
-#package require macports_dlist 1.0
-source macports_dlist.tcl
-
-puts ""
-puts "Testing ditem"
-
-puts -nonewline "Checking ditem_create... "
-if {[catch {ditem_create} ditem] || $ditem == ""} {
-	puts "failed: $ditem"
-} else {
-	puts "ok"
-}
-
-puts -nonewline "Checking ditem_key... "
-if {[catch {ditem_key $ditem provides "foo"} value] || $value != "foo"} {
-	puts "failed: $value"
-} else {
-	puts "ok"
-}
-
-puts -nonewline "Checking ditem_append... "
-if {[catch {ditem_append $ditem provides "bar"} value] || $value != {foo bar}} {
-	puts "failed: $value"
-} else {
-	puts "ok"
-}
-
-puts -nonewline "Checking ditem_contains... "
-set value2 ""
-if {[catch {ditem_contains $ditem provides "foo"} value] || $value != 1 ||
-	[catch {ditem_contains $ditem provides "zzz"} value2] || $value2 != 0} {
-	puts "failed: ${value}\n${value2}"
-} else {
-	puts "ok"
-}
-
-puts ""
-puts "Testing dlist"
-
-puts -nonewline "Checking dlist_search... "
-if {[catch {dlist_search [list $ditem] provides "bar"} value] || $value != $ditem} {
-	puts "failed: $value"
-} else {
-	puts "ok"
-}
-
-puts -nonewline "Checking dlist_has_pending... "
-if {[catch {dlist_has_pending [list $ditem] "foo"} value] || $value != 1} {
-	puts "failed: $value"
-} else {
-	puts "ok"
-}
-
-puts -nonewline "Checking dlist_count_unmet... "
-array set status [list foo 1 bar 0]
-if {[catch {dlist_count_unmet [list] status "foo"} value] || $value != 0 ||
-	[catch {dlist_count_unmet [list] status "bar"} value2] || $value2 != 1} {
-	puts "failed: ${value}\n${value2}"
-} else {
-	puts "ok"
-}
-
-# Replicate Shantonu's Bug #354 to test dlist functionality.
-# <http://www.opendarwin.org/bugzilla/show_bug.cgi?id=354>
-# A depends on B, C.
-# B depends on C.
-# C has no dependencies.
-
-set A [ditem_create]
-ditem_key $A provides A
-ditem_append $A requires B
-ditem_append $A requires C
-
-set B [ditem_create]
-ditem_key $B provides B
-ditem_append $B requires C
-
-set C [ditem_create]
-ditem_key $C provides C
-
-array set status [list]
-puts -nonewline "Checking dlist_get_next... "
-if {[catch {dlist_get_next [list $A $B $C] status} value] || $value != $C} {
-	puts "failed: ${value}"
-} else {
-	puts "ok"
-}
-
-puts -nonewline "Checking dlist_eval... "
-proc handler {ditem} { puts -nonewline "[ditem_key $ditem provides] " }
-if {[catch {dlist_eval [list $A $B $C] handler} value] || $value != {}} {
-	puts "failed: ${value}"
-} else {
-	puts "ok"
-}
-
-puts -nonewline "Checking dlist_append_dependents... "
-if {[catch {dlist_append_dependents [list $A $B $C] $B {}} value] || $value != [list $B $C]} {
-	puts "failed: ${value}"
-} else {
-	puts "ok"
-}
-
-

Copied: branches/dp2mp-move/base/src/macports1.0/tests/macports_dlist.tcl (from rev 24532, branches/dp2mp-move/base/src/macports1.0/test_dlist.tcl)
===================================================================
--- branches/dp2mp-move/base/src/macports1.0/tests/macports_dlist.tcl	                        (rev 0)
+++ branches/dp2mp-move/base/src/macports1.0/tests/macports_dlist.tcl	2007-05-03 06:30:58 UTC (rev 24756)
@@ -0,0 +1,113 @@
+#!/usr/bin/env tclsh
+# macports1.0/test_dlist.tcl
+# $Id$
+#
+# Copyright (c) 2003 Kevin Van Vechten <kevin at opendarwin.org>
+
+# Test suite for macports_dlist package.
+
+#lappend auto_path .
+#package require macports_dlist 1.0
+source macports_dlist.tcl
+
+puts ""
+puts "Testing ditem"
+
+puts -nonewline "Checking ditem_create... "
+if {[catch {ditem_create} ditem] || $ditem == ""} {
+	puts "failed: $ditem"
+} else {
+	puts "ok"
+}
+
+puts -nonewline "Checking ditem_key... "
+if {[catch {ditem_key $ditem provides "foo"} value] || $value != "foo"} {
+	puts "failed: $value"
+} else {
+	puts "ok"
+}
+
+puts -nonewline "Checking ditem_append... "
+if {[catch {ditem_append $ditem provides "bar"} value] || $value != {foo bar}} {
+	puts "failed: $value"
+} else {
+	puts "ok"
+}
+
+puts -nonewline "Checking ditem_contains... "
+set value2 ""
+if {[catch {ditem_contains $ditem provides "foo"} value] || $value != 1 ||
+	[catch {ditem_contains $ditem provides "zzz"} value2] || $value2 != 0} {
+	puts "failed: ${value}\n${value2}"
+} else {
+	puts "ok"
+}
+
+puts ""
+puts "Testing dlist"
+
+puts -nonewline "Checking dlist_search... "
+if {[catch {dlist_search [list $ditem] provides "bar"} value] || $value != $ditem} {
+	puts "failed: $value"
+} else {
+	puts "ok"
+}
+
+puts -nonewline "Checking dlist_has_pending... "
+if {[catch {dlist_has_pending [list $ditem] "foo"} value] || $value != 1} {
+	puts "failed: $value"
+} else {
+	puts "ok"
+}
+
+puts -nonewline "Checking dlist_count_unmet... "
+array set status [list foo 1 bar 0]
+if {[catch {dlist_count_unmet [list] status "foo"} value] || $value != 0 ||
+	[catch {dlist_count_unmet [list] status "bar"} value2] || $value2 != 1} {
+	puts "failed: ${value}\n${value2}"
+} else {
+	puts "ok"
+}
+
+# Replicate Shantonu's Bug #354 to test dlist functionality.
+# http://trac.macports.org/projects/macports/ticket/354
+# A depends on B, C.
+# B depends on C.
+# C has no dependencies.
+
+set A [ditem_create]
+ditem_key $A provides A
+ditem_append $A requires B
+ditem_append $A requires C
+
+set B [ditem_create]
+ditem_key $B provides B
+ditem_append $B requires C
+
+set C [ditem_create]
+ditem_key $C provides C
+
+array set status [list]
+puts -nonewline "Checking dlist_get_next... "
+if {[catch {dlist_get_next [list $A $B $C] status} value] || $value != $C} {
+	puts "failed: ${value}"
+} else {
+	puts "ok"
+}
+
+puts -nonewline "Checking dlist_eval... "
+proc handler {ditem} { puts -nonewline "[ditem_key $ditem provides] " }
+if {[catch {dlist_eval [list $A $B $C] handler} value] || $value != {}} {
+	puts "failed: ${value}"
+} else {
+	puts "ok"
+}
+
+puts -nonewline "Checking dlist_append_dependents... "
+if {[catch {dlist_append_dependents [list $A $B $C] $B {}} value] || $value != [list $B $C]} {
+	puts "failed: ${value}"
+} else {
+	puts "ok"
+}
+
+

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070502/9e16d960/attachment.html