Eskil

Check-in [f8fccdbf52]
Login

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

Overview
Comment:Adapted to newer detecting, including HG and SVN
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f8fccdbf5205390fba551452fe5d2ae23d386b02
User & Date: peter 2008-02-21 06:35:16.000
Context
2008-02-21
06:38
Updated email address check-in: 803932a2c1 user: peter tags: trunk
06:35
Adapted to newer detecting, including HG and SVN check-in: f8fccdbf52 user: peter tags: trunk
06:31
Adapt to new dirdiff internals. check-in: 358ad77351 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/rev.test.
︙︙
99
100
101
102
103
104
105

106


107
108
109
110
111
112

113


114
115
116
117
118

119
120
121
122

123


124
125
126
127
128

129
130
131

132
133
134
135
136
137

138
139
140


141
142
143
144
145

146
147
148


149
150
151
152
153

154
155
156


157
158
159
160
161

162
163
164
165
166
167
168
169
170
171


172





































    set ::ct_ls @@/Apa/Cepa/7
    eskil::rev::CT::ParseRevs filename -5
} -result {/Apa/Cepa/0}

test rev-2.1 {
    Detecting, CVS
} -body {

    detectRevSystem apa


} -result {CVS}

test rev-2.2 {
    Detecting, CVS
} -body {
    set ::auto_execs(cvs) ""

    detectRevSystem apa


} -result {}

test rev-2.3 {
    Detecting, RCS
} -body {

    file mkdir RCS
    set ch [open RCS/apa,v w]
    puts $ch x
    close $ch

    detectRevSystem apa


} -result {RCS}

test rev-2.4 {
    Detecting, RCS
} -body {

    set ::auto_execs(rcs) ""
    detectRevSystem apa
} -cleanup {

    file delete -force RCS
} -result {}

test rev-2.5 {
    Detecting, CT
} -body {

    set ::auto_execs(cleartool) "x"
    unset -nocomplain ::ct_pwv
    detectRevSystem apa


} -result {}

test rev-2.6 {
    Detecting, CT
} -body {

    set ::auto_execs(cleartool) "x"
    set ::ct_pwv "** NONE **"
    detectRevSystem apa


} -result {}

test rev-2.7 {
    Detecting, CT
} -body {

    set ::auto_execs(cleartool) "x"
    set ::ct_pwv "gurka"
    detectRevSystem apa


} -result {CT}

test rev-2.8 {
    Detecting, GIT
} -body {

    set ::auto_execs(git) "x"
    set apa [file isdirectory .git]
    if {!$apa} {
        file mkdir .git
    }
    set res [detectRevSystem apa]
    if {!$apa} {
        file delete .git
    }
    set res


} -result {GIT}












































>
|
>
>






>
|
>
>





>

|


>
|
>
>





>

|

>






>


|
>
>





>


|
>
>





>


|
>
>





>





|




>
>

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

99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232

    set ::ct_ls @@/Apa/Cepa/7
    eskil::rev::CT::ParseRevs filename -5
} -result {/Apa/Cepa/0}

test rev-2.1 {
    Detecting, CVS
} -body {
    set f [tcltest::makeFile {} _rev2_1]
    detectRevSystem $f
} -cleanup {
    tcltest::removeFile {} _rev2_1
} -result {CVS}

test rev-2.2 {
    Detecting, CVS
} -body {
    set ::auto_execs(cvs) ""
    set f [tcltest::makeFile {} _rev2_2]
    detectRevSystem $f
} -cleanup {
    tcltest::removeFile {} _rev2_2
} -result {}

test rev-2.3 {
    Detecting, RCS
} -body {
    set f [tcltest::makeFile {} _rev2_3]
    file mkdir RCS
    set ch [open RCS/_rev2_3,v w]
    puts $ch x
    close $ch
    set ::auto_execs(rcs) "x"
    detectRevSystem $f
} -cleanup {
    tcltest::removeFile {} _rev2_3
} -result {RCS}

test rev-2.4 {
    Detecting, RCS
} -body {
    set f [tcltest::makeFile {} _rev2_4]
    set ::auto_execs(rcs) ""
    detectRevSystem $f
} -cleanup {
    tcltest::removeFile {} _rev2_4
    file delete -force RCS
} -result {}

test rev-2.5 {
    Detecting, CT
} -body {
    set f [tcltest::makeFile {} _rev2_5]
    set ::auto_execs(cleartool) "x"
    unset -nocomplain ::ct_pwv
    detectRevSystem $f
} -cleanup {
    tcltest::removeFile {} _rev2_5
} -result {}

test rev-2.6 {
    Detecting, CT
} -body {
    set f [tcltest::makeFile {} _rev2_6]
    set ::auto_execs(cleartool) "x"
    set ::ct_pwv "** NONE **"
    detectRevSystem $f
} -cleanup {
    tcltest::removeFile {} _rev2_6
} -result {}

test rev-2.7 {
    Detecting, CT
} -body {
    set f [tcltest::makeFile {} _rev2_7]
    set ::auto_execs(cleartool) "x"
    set ::ct_pwv "gurka"
    detectRevSystem $f
} -cleanup {
    tcltest::removeFile {} _rev2_7
} -result {CT}

test rev-2.8 {
    Detecting, GIT
} -body {
    set f [tcltest::makeFile {} _rev2_8]
    set ::auto_execs(git) "x"
    set apa [file isdirectory .git]
    if {!$apa} {
        file mkdir .git
    }
    set res [detectRevSystem $f]
    if {!$apa} {
        file delete .git
    }
    set res
} -cleanup {
    tcltest::removeFile {} _rev2_8
} -result {GIT}

test rev-2.9 {
    Detecting, HG
} -body {
    set f [tcltest::makeFile {} _rev2_9]
    set ::auto_execs(hg) "x"
    set apa [file isdirectory .hg]
    if {!$apa} {
        file mkdir .hg
    }
    set res [detectRevSystem $f]
    if {!$apa} {
        file delete .hg
    }
    set res
} -cleanup {
    tcltest::removeFile {} _rev2_9
} -result {HG}

test rev-2.10 {
    Detecting, SVN
} -body {
    set f [tcltest::makeFile {} _rev2_10]
    set ::auto_execs(svn) "x"
    set apa [file isdirectory .svn]
    if {!$apa} {
        file mkdir .svn
    }
    set res [detectRevSystem $f]
    if {!$apa} {
        file delete .svn
    }
    set res
} -cleanup {
    tcltest::removeFile {} _rev2_10
} -result {SVN}