1
2
3
4
5
6
7
8
9
10
|
# Tests for revision control functions -*- tcl -*-
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------
# Overload exec during these tests
stub exec {args} {
set cmd [lindex $args 0]
switch -- $cmd {
cleartool {
|
<
|
|
|
1
2
3
4
5
6
7
8
9
|
#------------------------------------------------------------*- tcl -*-
# Tests for revision control functions
#----------------------------------------------------------------------
# Overload exec during these tests
stub exec {args} {
set cmd [lindex $args 0]
switch -- $cmd {
cleartool {
|