# Make sure that `svms get' will not overwrite an open file:
rm -rf get_no_open
svms new -R get_no_open get_no_open
echo Hello > get_no_open/hello.txt
cd get_no_open ; svms create hello.txt
cd get_no_open ; svms open get_no_open/hello.txt
echo Goodbye >> get_no_open/hello.txt
# Remember the state of the files:
ls -l get_no_open/hello.txt > get_no_open/root.ls1
ls -l get_no_open/SVMS > get_no_open/svms.ls1
cp get_no_open/hello.txt get_no_open/hello.txt.save
cp get_no_open/SVMS/h.hello.txt get_no_open/h.hello.txt.save
cp get_no_open/SVMS/p.listing get_no_open/p.listing.save
cd get_no_open; if svms get hello.txt ;		\
   then	echo "Command succeeded (incorrect)" ;	\
   else echo "Command failed (correct)" ;	\
   fi
get_no_open/hello.txt is open!
Command failed (correct)
# Verify that no files changed:
ls -l get_no_open/hello.txt > get_no_open/root.ls2
ls -l get_no_open/SVMS > get_no_open/svms.ls2
cmp get_no_open/root.ls1 get_no_open/root.ls2
cmp get_no_open/svms.ls1 get_no_open/svms.ls2
cmp get_no_open/hello.txt get_no_open/hello.txt.save
cmp get_no_open/SVMS/h.hello.txt get_no_open/h.hello.txt.save
cmp get_no_open/SVMS/p.listing get_no_open/p.listing.save
rm -rf get_no_open
