#!/bin/sh # # aegis - project change supervisor # Copyright (C) 2003-2008, 2012 Peter Miller # Copyright (C) 2008 Walter Franzini # # 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 umask 022 LINES=24 export LINES COLS=80 export COLS USER=${USER:-${LOGNAME:-`whoami`}} work=${AEGIS_TMP:-/tmp}/$$ 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 here=`pwd` if test $? -ne 0 ; then exit 2; fi bin=$here/${1-.}/bin 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 check_it() { sed -e "s|$work|...|g" \ -e 's|= [0-9][0-9]*; /.*|= TIME;|' \ -e "s/\"$USER\"/\"USER\"/g" \ -e 's/19[0-9][0-9]/YYYY/' \ -e 's/20[0-9][0-9]/YYYY/' \ -e 's/node = ".*"/node = "NODE"/' \ -e 's/crypto = ".*"/crypto = "GUNK"/' \ < $2 > $work/sed.out if test $? -ne 0; then no_result; fi diff -b $1 $work/sed.out if test $? -ne 0; then fail; fi } pass() { set +x echo PASSED 1>&2 cd $here find $work -type d -user $USER -exec chmod u+w {} \; rm -rf $work exit 0 } fail() { set +x echo 'FAILED test of the aedist (mv) functionality' \ "($activity)" 1>&2 cd $here find $work -type d -user $USER -exec chmod u+w {} \; rm -rf $work exit 1 } no_result() { set +x echo 'NO RESULT when testing the aedist (mv) functionality' \ "($activity)" 1>&2 cd $here find $work -type d -user $USER -exec chmod u+w {} \; rm -rf $work exit 2 } trap \"no_result\" 1 2 3 15 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 workproj=$work/proj workchan=$work/chan AEGIS_PATH=$work/lib ; export AEGIS_PATH AEGIS_PROJECT=foo ; export AEGIS_PROJECT # # make a new project # activity="new project 128" $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 135" cat > tmp << 'end' description = "A bogus project created to test the aedist -send 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 150" $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 163" 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 181" $bin/aegis -nf $workchan/bogus -nl \ -uuid "aaaaaaaa-bbbb-4bbb-8ccc-ccccddddddd1" > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi $bin/aegis -nf $workchan/aegis.conf -nl \ -uuid "aaaaaaaa-bbbb-4bbb-8ccc-ccccddddddd2" > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi 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"; create_symlinks_before_build = true; remove_symlinks_after_build = false; 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"; diff3_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"; end if test $? -ne 0 ; then no_result; fi # # build the change # activity="build 218" $bin/aegis -build -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # difference the change # activity="diff 225" $bin/aegis -diff > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi activity="set the change UUID 239" $bin/aegis -ca --uuid aaaaaaaa-bbbb-4bbb-8ccc-ccccddddddd3 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # finish development of the change # activity="develop end 232" $bin/aegis -de > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # pass the review # activity="review pass 239" $bin/aegis -rpass -c 1 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # start integrating # activity="integrate begin 246" $bin/aegis -ib 1 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # integrate build # activity="build 253" $bin/aegis -b -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # pass the integration # activity="integrate pass 260" $bin/aegis -intpass -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # -------------------------------------------------------------------------- # # create a new change # activity="new change 269" 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 # # add files to the change # activity="copy file 287" $bin/aegis -mv $workchan/bogus $workchan/bogus13 -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi echo "hello" > $workchan/bogus13 if test $? -ne 0 ; then cat log; no_result; fi # -------------------------------------------------------------------------- # # aedist -send the change. # activity="aedist -send 299" $bin/aedist -send -c 2 -o $work/c2.ae > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # aedist -receive the change. # activity="aedist -rec 306" $bin/aedist -rec -f $work/c2.ae -c 3 -dir ${workchan}.3 > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi activity="check change state 310" cat > ok << 'end' src = [ { file_name = "bogus"; uuid = "aaaaaaaa-bbbb-4bbb-8ccc-ccccddddddd1"; action = remove; edit_origin = { revision = "1"; encoding = none; uuid = "aaaaaaaa-bbbb-4bbb-8ccc-ccccddddddd3"; }; usage = source; move = "bogus13"; }, { file_name = "bogus13"; uuid = "aaaaaaaa-bbbb-4bbb-8ccc-ccccddddddd1"; action = create; edit_origin = { revision = "1"; encoding = none; uuid = "aaaaaaaa-bbbb-4bbb-8ccc-ccccddddddd3"; }; usage = source; file_fp = { youngest = TIME; oldest = TIME; crypto = "GUNK"; }; diff_file_fp = { youngest = TIME; oldest = TIME; crypto = "GUNK"; }; move = "bogus"; }, ]; end if test $? -ne 0 ; then cat log; no_result; fi check_it ok $workproj/info/change/0/003.fs # # Only definite negatives are possible. # The functionality exercised by this test appears to work, # no other guarantees are made. # pass # vim: set ts=8 sw=4 et :