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
|
# -*- tcl -*-
# Graph tests - assignment (=)
# Copyright (c) 2006 Andreas Kupries <andreas_kupries@users.sourceforge.net>
# All rights reserved.
# RCS: @(#) $Id: assign.test,v 1.2 2007/04/12 03:01:54 andreas_kupries Exp $
# Syntax: graph = GRAPH
# -------------------------------------------------------------------------
# Wrong # args: Missing, Too many
test graph-${impl}-${setimpl}-assign-1.0 {assign, wrong#args, missing} {
SETUP
catch {mygraph =} result
mygraph destroy
set result
} [tmWrong = source 0]
test graph-${impl}-${setimpl}-assign-1.1 {assign, wrong#args, too many} {
SETUP
catch {mygraph = foo bar} result
mygraph destroy
set result
} [tmTooMany = source]
# -------------------------------------------------------------------------
# Logical arguments checks and failures
test graph-${impl}-${setimpl}-assign-2.0 {assign, bad src command} {
SETUP
catch {mygraph = foo} result
mygraph destroy
set result
} {invalid command name "foo"}
# -------------------------------------------------------------------------
# Ok arguments.
test graph-${impl}-${setimpl}-assign-3.0 {assign, direct} {
set serial {%3 {} {{f 6 {}}} %0 {foo bar} {{a 6 {}} {b 9 {bar snarf}} {c 0 {}}} %1 {} {{d 9 {}}} %2 {} {{e 0 {}}} {data foo}}
SETUP
SETUP bgraph
mygraph deserialize $serial
set result [validate_serial bgraph $serial]
bgraph = mygraph
lappend result [validate_serial bgraph $serial]
mygraph destroy
bgraph destroy
set result
} {attr/graph/data-mismatch ok}
test graph-${impl}-${setimpl}-assign-3.1 {assign, deserial/serial} {
set serial {%3 {} {{f 6 {}}} %0 {foo bar} {{a 6 {}} {b 9 {bar snarf}} {c 0 {}}} %1 {} {{d 9 {}}} %2 {} {{e 0 {}}} {data foo}}
SETUP
SETUP bgraph
proc mywrap {args} {uplevel #0 [linsert $args 0 mygraph]}
mygraph deserialize $serial
set result [validate_serial bgraph $serial]
bgraph = mywrap
lappend result [validate_serial bgraph $serial]
mygraph destroy
bgraph destroy
rename mywrap {}
set result
} {attr/graph/data-mismatch ok}
# -------------------------------------------------------------------------
|
