#!/bin/sh # # aegis - project change supervisor # Copyright (C) 2001 Peter Miller; # All rights reserved. # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. # # MANIFEST: Test patch -send functionality # unset AEGIS_PROJECT unset AEGIS_CHANGE unset AEGIS_PATH unset AEGIS unset LINES unset COLS umask 022 USER=${USER:-${LOGNAME:-`whoami`}} work=${AEGIS_TMP:-/tmp}/$$ here=`pwd` if test $? -ne 0 ; then exit 2; fi if test "$1" != "" ; then bin="$here/$1/bin"; else bin="$here/bin"; fi # # set the path, so that the aegis command that aepath invokes # is from the same test set as the aepatch command itself. # PATH=${bin}:$PATH export PATH no_result() { set +x echo "NO RESULT for test of aepatch -send functionality ($activity)" 1>&2 cd $here find $work -type d -user $USER -exec chmod u+w {} \; rm -rf $work exit 2 } fail() { set +x echo "FAILED test of aepatch -send functionality ($activity)" 1>&2 cd $here find $work -type d -user $USER -exec chmod u+w {} \; rm -rf $work exit 1 } pass() { set +x echo PASSED 1>&2 cd $here find $work -type d -user $USER -exec chmod u+w {} \; rm -rf $work exit 0 } trap "no_result" 1 2 3 15 # # some variable to make things earier to read # PAGER=cat export PAGER AEGIS_FLAGS="delete_file_preference = no_keep; \ lock_wait_preference = always; \ diff_preference = automatic_merge; \ pager_preference = never; \ persevere_preference = all; \ log_file_preference = never;" export AEGIS_FLAGS AEGIS_THROTTLE=2 export AEGIS_THROTTLE worklib=$work/lib workproj=$work/foo.proj workchan=$work/foo.chan tmp=$work/tmp AEGIS_PATH=$worklib ; export AEGIS_PATH AEGIS_PROJECT=foo ; export AEGIS_PROJECT # # make the directories # activity="working directory 104" mkdir $work $work/lib if test $? -ne 0 ; then no_result; fi chmod 777 $work/lib if test $? -ne 0 ; then no_result; fi cd $work if test $? -ne 0 ; then no_result; fi # # use the built-in error messages # AEGIS_MESSAGE_LIBRARY=$work/no-such-dir export AEGIS_MESSAGE_LIBRARY unset LANG unset LANGUAGE # # make a new project # activity="new project 123" $bin/aegis -npr foo -vers "" -dir $workproj > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # change project attributes # activity="project attributes 130" cat > $tmp << 'end' description = "A bogus project created to test the aepatch -send functionality."; developer_may_review = true; developer_may_integrate = true; reviewer_may_integrate = true; end if test $? -ne 0 ; then no_result; fi $bin/aegis -pa -f $tmp > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # create a new change # activity="new change 144" cat > $tmp << 'end' brief_description = "The first change"; cause = internal_bug; end if test $? -ne 0 ; then no_result; fi $bin/aegis -nc 1 -f $tmp -p foo > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # add the staff # activity="staff 156" $bin/aegis -nd $USER > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi $bin/aegis -nrv $USER > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi $bin/aegis -ni $USER > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # begin development of a change # $bin/aegis -db 1 -dir $workchan > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # add a new files to the change # activity="new file 173" $bin/aegis -nf $workchan/main.c $workchan/test.c $workchan/Makefile \ $workchan/config -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi cat > $workchan/main.c << 'end' int main(argc, argv) int argc; char **argv; { test(); exit(0); return 0; } end if test $? -ne 0 ; then no_result; fi cat > $workchan/test.c << 'end' void test() { } end if test $? -ne 0 ; then no_result; fi cat > $workchan/Makefile << 'end' .c.o: date > $@ foo: main.o test.o date > $@ end if test $? -ne 0 ; then no_result; fi cat > $workchan/config << 'end' build_command = "exit 0"; link_integration_directory = true; history_get_command = "co -u'$e' -p $h,v > $o"; history_create_command = "ci -f -u -m/dev/null -t/dev/null $i $h,v; rcs -U $h,v"; history_put_command = "ci -f -u -m/dev/null -t/dev/null $i $h,v; rcs -U $h,v"; history_query_command = "rlog -r $h,v | awk '/^head:/ {print $$2}'"; diff_command = "set +e; diff $orig $i > $out; test $$? -le 1"; diff3_command = "(diff3 -e $mr $orig $i | sed -e '/^w$$/d' -e '/^q$$/d'; \ echo '1,$$p' ) | ed - $mr > $out"; end if test $? -ne 0 ; then no_result; fi # # create a new test # activity="new test 221" $bin/aegis -nt > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi cat > $workchan/test/00/t0001a.sh << 'end' #!/bin/sh exit 0 end if test $? -ne 0 ; then no_result; fi # # build the change # activity="build 233" $bin/aegis -build -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # difference the change # activity="diff 240" $bin/aegis -diff > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # test the change # activity="test 247" $bin/aegis -t -v > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # finish development of the change # activity="develop end 254" $bin/aegis -de > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # pass the review # activity="review pass 261" $bin/aegis -rpass -c 1 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # start integrating # activity="integrate begin 268" $bin/aegis -ib 1 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # integrate build # activity="build 275" $bin/aegis -b -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # integrate test # activity="test 282" $bin/aegis -t -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # pass the integration # activity="integrate pass 289" $bin/aegis -intpass -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # Here is the patch we are going to receive. # cat > test.in << 'end' + diff -u /tmp/9229/foo.proj/baseline/main.c test.ok --- main.c.old Tue Jul 31 19:00:26 2001 +++ bl/main.c Tue Jul 31 19:00:29 2001 @@ -1,8 +1,15 @@ +#include + int main(argc, argv) int argc; char **argv; { + if (argc != 1) + { + fprintf(stderr, "usage: %s\n", argv[0]); + exit(1); + } test(); exit(0); return 0; end if test $? -ne 0 ; then no_result; fi # # receive the patch # activity="aepatch receive 321" $bin/aepatch -receive -dir $workchan -f test.in -trojan > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # this is what we're looking for # activity="verify 328" cat > test.ok << 'end' #include int main(argc, argv) int argc; char **argv; { if (argc != 1) { fprintf(stderr, "usage: %s\n", argv[0]); exit(1); } test(); exit(0); return 0; } end if test $? -ne 0 ; then no_result; fi diff test.ok $workchan/main.c if test $? -ne 0 ; then fail; fi # # the things tested in this test, worked # pass