1
2
3
4
5
6
7
8
9
10
|
# Tests for comparing blocks. -*- tcl -*-
#----------------------------------------------------------------------
# $Revision$
|
<
|
|
|
1
2
3
4
5
6
7
8
9
|
#------------------------------------------------------------*- tcl -*-
# Tests for comparing blocks.
#----------------------------------------------------------------------
test blocks-1.1 {
Change-block parsing
} -body {
set b1 [list "Apa 1" "Bepa 1" "Cepa 1"]
set b2 [list "Apa 2" "Bepa 2" "Cepa 2"]
|