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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
# -*- tcl -*-
# Graph tests - arc deletion
# Copyright (c) 2006 Andreas Kupries <andreas_kupries@users.sourceforge.net>
# All rights reserved.
# RCS: @(#) $Id: delete.test,v 1.2 2007/04/12 03:01:55 andreas_kupries Exp $
# Syntax: graph arc delete ARC ARC...
# -------------------------------------------------------------------------
# Wrong # args: Missing, Too many
test graph-${impl}-${setimpl}-arc-delete-1.0 {arc delete, wrong#args, missing} {
SETUP
catch {mygraph arc delete} msg
mygraph destroy
set msg
} [tmE {wrong # args: should be "::struct::graph::__arc_delete name arc arc..."} \
{wrong # args: should be "mygraph arc delete arc arc..."}]
# Cannot use tmWrong, will be incorrect for the Tcl implementation
# run by a pre-8.4 core.
# [tmWrong {arc delete} {arc arc...} 0]
# Impossible to have too many arguments
# Any number of arcs is acceptable.
# -------------------------------------------------------------------------
# Logical arguments checks and failures
test graph-${impl}-${setimpl}-arc-delete-2.0 {arc delete, missing arc} {
SETUP
catch {mygraph arc delete arc0} msg
mygraph destroy
set msg
} [MissingArc $MY arc0]
test graph-${impl}-${setimpl}-arc-delete-2.1 {arc delete, missing arc} {
SETUP
mygraph node insert node0 node1
mygraph arc insert node0 node1 arc0
catch {mygraph arc delete arc0 arc0} msg
mygraph destroy
set msg
} [MissingArc $MY arc0]
# -------------------------------------------------------------------------
# Ok arguments, single, multiple deletion.
test graph-${impl}-${setimpl}-arc-delete-3.0 {arc delete} {
SETUP
mygraph node insert node0 node1
mygraph arc insert node0 node1 arc0
set res {}
lappend res [mygraph arc exists arc0]
lappend res [mygraph arc delete arc0]
lappend res [mygraph arc exists arc0]
mygraph destroy
set res
} {1 {} 0}
test graph-${impl}-${setimpl}-arc-delete-3.1 {arc delete, multiple at once} {
SETUP
mygraph node insert node0 node1 node2 node3
mygraph arc insert node0 node1 arc0
mygraph arc insert node0 node1 arc1
mygraph arc insert node2 node3 arc2
mygraph arc insert node1 node3 arc3
set res {}
lappend res [mygraph arc exists arc0]
lappend res [mygraph arc exists arc1]
lappend res [mygraph arc exists arc2]
lappend res [mygraph arc exists arc3]
lappend res [mygraph arc delete arc0 arc1 arc2 arc3]
lappend res [mygraph arc exists arc0]
lappend res [mygraph arc exists arc1]
lappend res [mygraph arc exists arc2]
lappend res [mygraph arc exists arc3]
mygraph destroy
set res
} {1 1 1 1 {} 0 0 0 0}
test graph-${impl}-${setimpl}-arc-delete-3.2 {arc delete, keeping adjacent nodes} {
SETUP
mygraph node insert node0 node1
mygraph arc insert node0 node1 arc0
set res {}
lappend res [mygraph arc delete arc0]
lappend res [mygraph node exists node0]
lappend res [mygraph node exists node1]
mygraph destroy
set res
} {{} 1 1}
# -------------------------------------------------------------------------
|
