Eskil

Check-in [c14b7c8048]
Login

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

Overview
Comment:Added test for GIT detection
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c14b7c8048a2549bc793e1acff3bf8422d61da99
User & Date: peter 2007-09-17 22:03:02.000
Context
2007-09-17
22:21
Moved revision system specific commands into namespaces check-in: e62a20dbd5 user: peter tags: trunk
22:03
Added test for GIT detection check-in: c14b7c8048 user: peter tags: trunk
22:02
Started on GIT support, and structuring file per rev system. check-in: b36561e57f user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/rev.test.
︙︙
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146

147










148


149


test rev-2.6 {
    Detecting, CT
} -body {
    set ::auto_execs(cleartool) "x"
    set ::ct_pwv "** NONE **"
    detectRevSystem apa
} -cleanup {
    file delete -force RCS
} -result {}

test rev-2.7 {
    Detecting, CT
} -body {
    set ::auto_execs(cleartool) "x"
    set ::ct_pwv "gurka"
    detectRevSystem apa

} -cleanup {










    file delete -force RCS


} -result {CT}








<
<








>
|
>
>
>
>
>
>
>
>
>
>
|
>
>
|

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


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}