1#! /bin/sh 2 3test -f check..sccs || exit 77 4 5. $srcdir/check_lib 6check_start 24 "put (WRQ) create access check of SCCS file" 7 8# setup configuration file 9wd=`pwd` 10cat >$CHECKDIR/check.conf <<EOF 11127.0.0.1:create($CHECKDIR/s/1:$CHECKDIR/s/2:$CHECKDIR/s/5) 12default:sccs-get($SCCS_GET)sccs-delta($SCCS_DELTA)sccs-clean($SCCS_CLEAN)sccs-unget($SCCS_UNGET) 13EOF 14./utftpd_make <$CHECKDIR/check.conf $CHECKDIR/check.cdb $CHECKDIR/check.tmp 15 16cd $CHECKDIR/s 17cp $wd/Makefile ./1 18cp $wd/Makefile ./2 19cp $wd/Makefile ./3 20cp $wd/Makefile ./4 21sccs_create 1 2 3 4 22$SCCS_GET -s -e SCCS/s.2 23$SCCS_GET -s -e SCCS/s.4 24cd $wd 25do_test FAIL ./utftp --put 127.0.0.1:$CHECKPORT $CHECKDIR/s/1 config.log 26do_test FAIL ./utftp --put 127.0.0.1:$CHECKPORT $CHECKDIR/s/2 config.log 27do_test FAIL ./utftp --put 127.0.0.1:$CHECKPORT $CHECKDIR/s/3 config.log 28do_test FAIL ./utftp --put 127.0.0.1:$CHECKPORT $CHECKDIR/s/4 config.log 29do_test OK ./utftp --put 127.0.0.1:$CHECKPORT $CHECKDIR/s/5 config.log 30check_end 31