1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
|
#! /bin/sh
# r-option: Testing for the -r option of admin.
# Import common functions & definitions.
. ../common/test-common
# Import function which tells us if we're testing CSSC, or something else.
. ../common/real-thing
g=new.txt
s=s.$g
# Create an empty SCCS file to work on.
remove $g $s
echo "%M%" > $g
docommand R1 "${admin} -i$g $s" 0 "" ""
# Make sure it really is ID 1.1.
docommand R2 "${prs} -d:I: $s" 0 "1.1\n" ""
# Create an empty SCCS file to work on, with initial SID 2.1.
remove $g $s
echo "%M%" > $g
docommand R3 "${admin} -i$g -r2 $s" 0 "" ""
# Make sure it really is ID 2.1.
docommand R4 "${prs} -d:I: $s" 0 "2.1\n" ""
##
## Some implementations of SCCS don't allow (e.g.) -r1.2,
## so if we're not running agains CSSC, we skip the
## tests that deal with that kind of thing.
##
if $TESTING_CSSC
then
# Create an empty SCCS file to work on.
remove $g $s
echo "%M%" > $g
docommand t1 "${admin} -i$g -r1.2 $s" 0 "" IGNORE
# Make sure it really is ID 1.2.
docommand t2 "${prs} -d:I: $s" 0 "1.2\n" ""
# Now try a 4-component SID.
remove $g $s
echo "%M%" > $g
docommand t3 "${admin} -i$g -r1.2.2.1 $s" 0 "" IGNORE
# Make sure it really is ID 1.2.
docommand t4 "${prs} -d:I: $s" 0 "1.2.2.1\n" ""
# The -r option must be accompanied by the -i option.
# Using the -n option just isn't enough.
remove $g $s
echo "%M%" > $g
docommand t5 "${admin} -n -r2 $s" 1 "" IGNORE
else
echo Tests t1-t5 have been skipped
fi
remove $s $g
success
|