#!/bin/sh # # aegis - project change supervisor # Copyright (C) 2003, 2005-2008 Peter Miller # # 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 3 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, see # . # 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 if test "$EXEC_SEARCH_PATH" != "" then tpath= hold="$IFS" IFS=":$IFS" for tpath2 in $EXEC_SEARCH_PATH do tpath=${tpath}${tpath2}/${1-.}/bin: done IFS="$hold" PATH=${tpath}${PATH} else PATH=${bin}:${PATH} fi export PATH no_result() { set +x echo "NO RESULT for test of change_file_command 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 change_file_command 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=-1 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 103" 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 122" $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 129" cat > $tmp << 'end' description = "A bogus project created to test the change_file_command functionality."; developer_may_review = true; developer_may_integrate = true; reviewer_may_integrate = true; default_test_exemption = 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 # # add the staff # activity="staff 144" $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 # -------------------------------------------------------------------------- # # create a new change # activity="new change 157" 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 # # 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 175" $bin/aegis -nf $workchan/aegis.conf -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi cat > $workchan/aegis.conf << 'end' build_command = "exit 0"; link_integration_directory = true; history_get_command = "aesvt -check-out -edit ${quote $edit} " "-history ${quote $history} -f ${quote $output}"; history_put_command = "aesvt -check-in -history ${quote $history} " "-f ${quote $input}"; history_query_command = "aesvt -query -history ${quote $history}"; history_content_limitation = binary_capable; diff_command = "set +e; diff $orig $i > $out; test $$? -le 1"; merge_command = "(diff3 -e $mr $orig $i | sed -e '/^w$$/d' -e '/^q$$/d'; \ echo '1,$$p' ) | ed - $mr > $out"; patch_diff_command = "set +e; diff -C0 -L $index -L $index $orig $i > $out; \ test $$? -le 1"; change_file_command = "echo $fl > change_file_command"; end if test $? -ne 0 ; then no_result; fi activity="change_file_command (nf) 199" $bin/aegis -nf $workchan/bogus -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi test -f $workchan/change_file_command || fail cat > $workchan/bogus << 'end' the trunk version end if test $? -ne 0 ; then no_result; fi cat > $workchan/aegis.conf << 'end' build_command = "exit 0"; link_integration_directory = true; history_get_command = "aesvt -check-out -edit ${quote $edit} " "-history ${quote $history} -f ${quote $output}"; history_put_command = "aesvt -check-in -history ${quote $history} " "-f ${quote $input}"; history_query_command = "aesvt -query -history ${quote $history}"; history_content_limitation = binary_capable; diff_command = "set +e; diff $orig $i > $out; test $$? -le 1"; merge_command = "(diff3 -e $mr $orig $i | sed -e '/^w$$/d' -e '/^q$$/d'; \ echo '1,$$p' ) | ed - $mr > $out"; patch_diff_command = "set +e; diff -C0 -L $index -L $index $orig $i > $out; \ test $$? -le 1"; change_file_command = "echo $fl > change_file_command"; new_file_command = "echo $fl > new_file_command"; end if test $? -ne 0 ; then no_result; fi activity="new_file_command 231" $bin/aegis -nf $workchan/bogus2 -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi test -f $workchan/new_file_command || fail cat > $workchan/bogus2 << 'end' the trunk version 2 end if test $? -ne 0 ; then no_result; fi # # build the change # activity="build 245" $bin/aegis -build -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # difference the change # activity="diff 252" $bin/aegis -diff > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # finish development of the change # activity="develop end 259" $bin/aegis -de > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # pass the review # activity="review pass 266" $bin/aegis -rpass -c 1 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # start integrating # activity="integrate begin 273" $bin/aegis -ib 1 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # integrate build # activity="build 280" $bin/aegis -b -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # pass the integration # activity="integrate pass 287" $bin/aegis -intpass -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # -------------------------------------------------------------------------- # # create a new change # activity="new change 296" cat > $tmp << 'end' brief_description = "The second change"; cause = internal_bug; end if test $? -ne 0 ; then no_result; fi $bin/aegis -nc 2 -f $tmp -p foo > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # begin development of a change # $bin/aegis -db 2 -dir $workchan > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # copy a file into the change # activity="change_file_command (cp) 314" $bin/aegis -cp $workchan/aegis.conf $workchan/bogus2 -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi test $workchan/change_file_command || fail rm $workchan/change_file_command || no_result activity="change_file_command (cpu) 321" $bin/aegis -cpu $workchan/bogus2 -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi test $workchan/change_file_command || fail cat > $workchan/aegis.conf << 'end' build_command = "exit 0"; link_integration_directory = true; history_get_command = "aesvt -check-out -edit ${quote $edit} " "-history ${quote $history} -f ${quote $output}"; history_put_command = "aesvt -check-in -history ${quote $history} " "-f ${quote $input}"; history_query_command = "aesvt -query -history ${quote $history}"; history_content_limitation = binary_capable; diff_command = "set +e; diff $orig $i > $out; test $$? -le 1"; merge_command = "(diff3 -e $mr $orig $i | sed -e '/^w$$/d' -e '/^q$$/d'; \ echo '1,$$p' ) | ed - $mr > $out"; patch_diff_command = "set +e; diff -C0 -L $index -L $index $orig $i > $out; \ test $$? -le 1"; change_file_command = "echo $fl > change_file_command"; new_file_command = "echo $fl > new_file_command"; copy_file_command = "echo $fl > copy_file_command"; copy_file_undo_command = "echo $fl > copy_file_undo_command"; end if test $? -ne 0 ; then no_result; fi activity="copy_file_command 350" $bin/aegis -cp $workchan/bogus -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi test -f $workchan/copy_file_command || fail activity="copy_file_undo_command 356" $bin/aegis -cpu $workchan/bogus -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi test -f $workchan/copy_file_undo_command || fail # # build the change # activity="build 365" $bin/aegis -build -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # difference the change # activity="diff 372" $bin/aegis -diff > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # finish development of the change # activity="develop end 379" $bin/aegis -de > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # pass the review # activity="review pass 386" $bin/aegis -rpass -c 2 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # start integrating # activity="integrate begin 393" $bin/aegis -ib 2 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # integrate build # activity="build 400" $bin/aegis -b -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # pass the integration # activity="integrate pass 407" $bin/aegis -intpass -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # -------------------------------------------------------------------------- # # create a new change # activity="new change 416" cat > $tmp << 'end' brief_description = "The third change"; cause = internal_bug; end if test $? -ne 0 ; then no_result; fi $bin/aegis -nc 3 -f $tmp -p foo > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # begin development of a change # $bin/aegis -db 3 -dir $workchan > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # remove a file # activity="change_file_command (rm) 434" $bin/aegis -rm $workchan/bogus -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi test -f $workchan/change_file_command || fail rm $workchan/change_file_command || no_result # # remove_undo a file # activity="change_file_command (rmu) 444" $bin/aegis -rmu $workchan/bogus -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi test -f $workchan/change_file_command || fail rm $workchan/change_file_command || no_result # # update the project aegis.conf file # activity="copy file 454" $bin/aegis -cp $workchan/aegis.conf -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi cat > $workchan/aegis.conf << 'end' build_command = "exit 0"; link_integration_directory = true; history_get_command = "aesvt -check-out -edit ${quote $edit} " "-history ${quote $history} -f ${quote $output}"; history_put_command = "aesvt -check-in -history ${quote $history} " "-f ${quote $input}"; history_query_command = "aesvt -query -history ${quote $history}"; history_content_limitation = binary_capable; diff_command = "set +e; diff $orig $i > $out; test $$? -le 1"; merge_command = "(diff3 -e $mr $orig $i | sed -e '/^w$$/d' -e '/^q$$/d'; \ echo '1,$$p' ) | ed - $mr > $out"; patch_diff_command = "set +e; diff -C0 -L $index -L $index $orig $i > $out; \ test $$? -le 1"; change_file_command = "echo $fl > change_file_command"; new_file_command = "echo $fl > new_file_command"; copy_file_command = "echo $fl > copy_file_command"; copy_file_undo_command = "echo $fl > copy_file_undo_command"; remove_file_command = "echo $fl > remove_file_command"; remove_file_undo_command = "echo $fl > remove_file_undo_command"; end if test $? -ne 0 ; then no_result; fi activity="remove_file_command 483" $bin/aegis -rm $workchan/bogus2 -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi test -f $workchan/remove_file_command || fail activity="remove_file_undo_command 489" $bin/aegis -rmu $workchan/bogus2 -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi test -f $workchan/remove_file_undo_command || fail # # build the change # activity="build 498" $bin/aegis -build -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # difference the change # activity="diff 505" $bin/aegis -diff > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # finish development of the change # activity="develop end 512" $bin/aegis -de > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # pass the review # activity="review pass 519" $bin/aegis -rpass -c 3 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # start integrating # activity="integrate begin 526" $bin/aegis -ib 3 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # integrate build # activity="build 533" $bin/aegis -b -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # pass the integration # activity="integrate pass 540" $bin/aegis -intpass -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # the things tested in this test, worked # can't speak for the rest of the code # pass