1
2
3
4
5
6
7
8
9
 
 
set cmd [puts "I am Outside"]
puts $cmd
eval $cmd
 
if {[string [info procs newproc] match ""]} {
concat $cmd "proc newproc {} {\n"
concat $cmd [puts "I am Inside"]
 ...

1
2
3
4
5
6
7
8
9
proc Server {startTime channel clientaddr clientport} {
    puts "Connection from $clientaddr registered"
    set now [clock seconds]
    puts $channel [clock format $now]
    puts $channel "[expr {$now - $startTime}] since start"
    close $channel
}
 
socket -server [list Server [clock seconds]] 9900
 ...

1
2
3
4
5
6
7
8
9
set cmd [puts "I am Outside"]
puts $cmd
eval $cmd
 
if {[string [info procs newproc] match ""]} {
concat $cmd "proc newproc {} {\n"
concat $cmd [puts "I am Inside"]
concat $cmd "\n}"
}
 ...

1
2
3
4
5
6
7
8
9
set cmd [puts "I am Outside"]
puts $cmd
eval $cmd
 
if {[string [info procs newproc] match ""]} {
concat $cmd "proc newproc {} {\n"
concat $cmd [puts "I am Inside"]
concat $cmd "\n}"
}
 ...

1
2
3
4
5
6
7
8
9
set cmd {puts "Evaluating a puts"}
puts "CMD IS: $cmd"
eval $cmd
 
if {[string match [info procs newProcA] ""] } {
    puts "\nDefining newProcA for this invocation"
    set num 0;
    set cmd "proc newProcA "
    set cmd [concat $cmd "{} {\n"]
 ...

1
2
3
4
5
6
7
8
9
set cmd {puts "Evaluating a puts"}
puts "CMD IS: $cmd"
eval $cmd
 
if {[string match [info procs newProcA] ""] } {
    puts "\nDefining newProcA for this invocation"
    set num 0;
    set cmd "proc newProcA "
    set cmd [concat $cmd "{} {\n"]
 ...

1
2
3
4
5
6
7
8
9
set cmd {puts "Evaluating a puts"}
puts "CMD IS: $cmd"
eval $cmd
 
if {[string match [info procs newProcA] ""] } {
    puts "\nDefining newProcA for this invocation"
    set num 0;
    set cmd "proc newProcA "
    set cmd [concat $cmd "{} {\n"]
 ...

1
2
3
4
5
6
7
8
9
set cmd {puts "Evaluating a puts"}
puts "CMD IS: $cmd"
eval $cmd
 
if {[string match [info procs newProcA] ""] } {
    puts "\nDefining newProcA for this invocation"
    set num 0;
    set cmd "proc newProcA "
    set cmd [concat $cmd "{} {\n"]
 ...

1
2
3
4
5
6
7
8
9
set cmd {puts "Evaluating a puts"}
puts "CMD IS: $cmd"
eval $cmd
 
if {[string match [info procs newProcA] ""] } {
    puts "\nDefining newProcA for this invocation"
    set num 0;
    set cmd "proc newProcA "
    set cmd [concat $cmd "{} {\n"]
 ...

1
2
3
4
5
6
7
8
9
set cmd {puts "evaluating a proc"}
puts $cmd
eval $cmd
if {[string match [info procs newproc] ""] } {
puts "defining proc here: "
set cmd [concat $cmd "proc newproc {} {\n"]
#set cmd [concat $cmd "puts {we are in newproc}"]
set cmd [concat $cmd "\n}"]
eval $cmd
 ...

1
2
3
4
5
6
7
8
9
set cmd {puts "evaluating a proc"}
puts $cmd
eval $cmd
if {[string match [info procs newproc] ""] } {
puts "defining proc here: "
set cmd [concat $cmd "proc newproc {} {\n"]
set cmd [concat $cmd "puts {we are in newproc}"]
set cmd [concat $cmd "\n}"]
eval $cmd
 ...

1
2
3
4
5
6
7
8
9
set cmd {puts "evaluating a proc"}
puts $cmd
eval $cmd
if {[string match [info procs newproc] ""] } {
puts "defining proc here: "
set cmd [concat $cmd "proc newproc {} {\n"]
set cmd [concat $cmd "puts {we are in newproc}"]
set cmd [concat $cmd "\n"]
eval $cmd
 ...

1
2
3
4
5
6
7
8
9
set cmd {puts "evaluating a proc"}
puts $cmd
eval $cmd
if {[string match [info procs newproc] ""] } {
puts "defining proc here: "
set cmd [concat $cmd "proc newproc {} {\n"]
set cmd [concat $cmd "puts {we are in newproc}"]
set cmd [concat $cmd "\n"]
eval $cmd
 ...

1
2
set cmd {puts "evaluating a proc"}
puts $cmd

1
2
set cmd "puts {evaluating a proc}"
puts $cmd

1
2
3
4
5
6
7
8
9
set test_script {
    title "MCT VPLS Basic configuration test case"
    mct_topo "LocalRemoteMCT"
    single_ppcr_only "1"
    dut_index "dut,1 dut,2 dut,3 dut,4 dut,5 dut,6 dut,7 dut,8"
    lassign $dut_index dut1 dut2 dut3 dut4 dut5 dut6 dut7 dut8
    single_ppcr_available 0
    mct_proto "vpls"
    l2vpnRevertTmr 10
 ...

1
2
3
4
5
6
7
8
9
set test_script {
    title "MCT VPLS Basic configuration test case"
    mct_topo "LocalRemoteMCT"
    single_ppcr_only "1"
    dut_index "dut,1 dut,2 dut,3 dut,4 dut,5 dut,6 dut,7 dut,8"
    lassign $dut_index dut1 dut2 dut3 dut4 dut5 dut6 dut7 dut8
    single_ppcr_available 0
    mct_proto "vpls"
    l2vpnRevertTmr 10
 ...

1
2
3
4
5
6
7
8
9
set test_script {
    title "MCT VPLS Basic configuration test case"
    mct_topo "LocalRemoteMCT"
    single_ppcr_only "1"
    dut_index "dut,1 dut,2 dut,3 dut,4 dut,5 dut,6 dut,7 dut,8"
    lassign $dut_index dut1 dut2 dut3 dut4 dut5 dut6 dut7 dut8
    single_ppcr_available 0
    mct_proto "vpls"
    l2vpnRevertTmr 10
 ...

1
2
3
4
5
6
7
8
9
set test_script {
    title "MCT VPLS Basic configuration test case"
    mct_topo "LocalRemoteMCT"
    single_ppcr_only "1"
    dut_index "dut,1 dut,2 dut,3 dut,4 dut,5 dut,6 dut,7 dut,8"
    lassign $dut_index dut1 dut2 dut3 dut4 dut5 dut6 dut7 dut8
    single_ppcr_available 0
    mct_proto "vpls"
    l2vpnRevertTmr 10
 ...

1
2
3
4
5
6
7
8
9
set test_script {
    title "MCT VPLS Basic configuration test case"
    mct_topo "LocalRemoteMCT"
    single_ppcr_only "1"
    dut_index "dut,1 dut,2 dut,3 dut,4 dut,5 dut,6 dut,7 dut,8"
    lassign $dut_index dut1 dut2 dut3 dut4 dut5 dut6 dut7 dut8
    single_ppcr_available 0
    mct_proto "vpls"
    l2vpnRevertTmr 10
 ...

1
2
3
4
5
6
7
8
9
set test_script {
    title "MCT VPLS Basic configuration test case"
    mct_topo "LocalRemoteMCT"
    single_ppcr_only "1"
    dut_index "dut,1 dut,2 dut,3 dut,4 dut,5 dut,6 dut,7 dut,8"
    lassign $dut_index dut1 dut2 dut3 dut4 dut5 dut6 dut7 dut8
    single_ppcr_available 0
    mct_proto "vpls"
    l2vpnRevertTmr 10
 ...

1
2
3
4
5
6
7
8
9
set test_script {
    title "MCT VPLS Basic configuration test case"
    mct_topo "LocalRemoteMCT"
    single_ppcr_only "1"
    dut_index "dut,1 dut,2 dut,3 dut,4 dut,5 dut,6 dut,7 dut,8"
    lassign $dut_index dut1 dut2 dut3 dut4 dut5 dut6 dut7 dut8
    single_ppcr_available 0
    mct_proto "vpls"
    l2vpnRevertTmr 10
 ...

1
2
3
4
5
6
7
8
9
set test_script {
    title "MCT VPLS Basic configuration test case"
    mct_topo "LocalRemoteMCT"
    single_ppcr_only "1"
    dut_index "dut,1 dut,2 dut,3 dut,4 dut,5 dut,6 dut,7 dut,8"
    lassign $dut_index dut1 dut2 dut3 dut4 dut5 dut6 dut7 dut8
    single_ppcr_available 0
    mct_proto "vpls"
    l2vpnRevertTmr 10
 ...

1
2
3
4
5
6
7
8
9
set test_script {
    title "MCT VPLS Basic configuration test case"
    mct_topo "LocalRemoteMCT"
    single_ppcr_only "1"
    dut_index "dut,1 dut,2 dut,3 dut,4 dut,5 dut,6 dut,7 dut,8"
    lassign $dut_index dut1 dut2 dut3 dut4 dut5 dut6 dut7 dut8
    single_ppcr_available 0
    mct_proto "vpls"
    l2vpnRevertTmr 10
 ...

1
2
3
4
5
6
7
8
9
proc A {} {
puts "its in A"
B
}
proc B {} {
puts "Its in B"
}
 
proc main {} {
 ...

1
2
3
4
5
6
7
8
9
set test_script {
    title "MCT VPLS Basic configuration test case"
    mct_topo "LocalRemoteMCT"
    single_ppcr_only "1"
    dut_index "dut,1 dut,2 dut,3 dut,4 dut,5 dut,6 dut,7 dut,8"
    lassign $dut_index dut1 dut2 dut3 dut4 dut5 dut6 dut7 dut8
    single_ppcr_available 0
    mct_proto "vpls"
    l2vpnRevertTmr 10
 ...

1
2
3
4
5
6
7
8
9
set test_script {
    title "MCT VPLS Basic configuration test case"
    mct_topo "LocalRemoteMCT"
    single_ppcr_only "1"
    dut_index "dut,1 dut,2 dut,3 dut,4 dut,5 dut,6 dut,7 dut,8"
    lassign $dut_index dut1 dut2 dut3 dut4 dut5 dut6 dut7 dut8
    single_ppcr_available 0
    mct_proto "vpls"
    l2vpnRevertTmr 10
 ...

1
2
3
4
5
6
7
8
9
set test_script {
    title "MCT VPLS Basic configuration test case"
    mct_topo "LocalRemoteMCT"
    single_ppcr_only "1"
    dut_index "dut,1 dut,2 dut,3 dut,4 dut,5 dut,6 dut,7 dut,8"
    lassign $dut_index dut1 dut2 dut3 dut4 dut5 dut6 dut7 dut8
    single_ppcr_available 0
    mct_proto "vpls"
    l2vpnRevertTmr 10
 ...

1
2
3
4
5
6
array set arr {1 HCL 2 BROCADE}
parray arr
set arr(3) CISCO
parray arr
set arr(1) JUNIPER
parray arr

1
2
3
4
array set arr {1 HCL 2 BROCADE}
parray arr
set arr(3) CISCO
parray arr