Eskil

Check-in [61241f2aa7]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Added a troublesome case.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 61241f2aa73196604f7f660be16f3caa85b3fd09
User & Date: peter 2004-06-17 16:45:11.000
Context
2004-06-17
16:58
Rewrote compareBlocks a bit to handle some typical cases better. check-in: cce3ad8ef4 user: peter tags: trunk
16:45
Added a troublesome case. check-in: 61241f2aa7 user: peter tags: trunk
2004-06-16
17:32
Mark alignment row with underline. Remove alignment in the row's popup menu. Added bullet format for tutorial text. check-in: ca37297fd6 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/blocks.test. 

1
2
3
4
5
6
7


#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------

test blocks-1.1 {
    Change-block parsing
} -body {

>








1
2
3
4
5
6
7
8

# Tests for comparing blocks.                               -*- tcl -*-
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------

test blocks-1.1 {
    Change-block parsing
} -body {
︙︙
68
69
70
71
72
73
74



























test blocks-1.8 {
    Change-block parsing, complex case
} -body {
    set b1 [list a 4              10    0 14 6 0 4 13 16 11]
    set b2 [list   3 1 7 12 11 17 10 15 0             16 a]
    compareBlocks $b1 $b2
} -result  [list d C a a a  a  a  c  a  c d  d d d d  c  C]


































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

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

test blocks-1.8 {
    Change-block parsing, complex case
} -body {
    set b1 [list a 4              10    0 14 6 0 4 13 16 11]
    set b2 [list   3 1 7 12 11 17 10 15 0             16 a]
    compareBlocks $b1 $b2
} -result  [list d C a a a  a  a  c  a  c d  d d d d  c  C]


test blocks-2.1 {
    Troublesome real life example
} -body {
    set b1 [list \
            "   /* Reaction wheel motor currents and thermistors (not used in Pqwert)*/" \
            "   IrgIdRwlMotorCurr1," \
            "   IrgIdRwlTh1," \
            "   IrgIdRwlMotorCurr2," \
            "   IrgIdRwlTh2," \
            "   IrgIdRwlMotorCurr3," \
            "   IrgIdRwlTh3," \
            "   IrgIdRwlMotorCurr4," \
            "   IrgIdRwlTh4,"]
    set b2 [list \
            "   {0x00400908},   /* IrgIdRwlMotorCurr1 */  /* (not used in Pqwert) */" \
            "   {0x00400909},   /* IrgIdRwlTh1        */  /* (not used in Pqwert) */" \
            "   {0x00400D28},   /* IrgIdRwlMotorCurr2 */  /* (not used in Pqwert) */" \
            "   {0x00400D29},   /* IrgIdRwlTh2        */  /* (not used in Pqwert) */" \
            "   {0x00480908},   /* IrgIdRwlMotorCurr3 */  /* (not used in Pqwert) */" \
            "   {0x00480909},   /* IrgIdRwlTh3        */  /* (not used in Pqwert) */" \
            "   {0x00480D28},   /* IrgIdRwlMotorCurr4 */  /* (not used in Pqwert) */" \
            "   {0x00480D29},   /* IrgIdRwlTh4        */  /* (not used in Pqwert) */"]
    compareBlocks $b1 $b2
} -result [list d c c c c c c c c]