#!/bin/sh # # aegis - project change supervisor # Copyright (C) 2003-2008, 2012 Peter Miller # Copyright (C) 2008, 2010 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 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 check_it() { sed -e "s|$work|...|g" \ -e 's|= 0; /.*|= TIME_NOT_SET;|' \ -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"/' \ -e 's/uuid = ".*"/uuid = "UUID"/' \ < $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 } no_result() { set +x echo "NO RESULT for test of aemt 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 aemt 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 127" 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 146" $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 153" cat > $tmp << 'end' description = "A bogus project created to test the aemt 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 168" $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 181" 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 199" $bin/aegis -nf $workchan/aegis.conf $workchan/bogus -nl > 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 = "echo no build required"; 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 232" $bin/aegis -build -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # difference the change # activity="diff 239" $bin/aegis -diff > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # finish development of the change # activity="develop end 246" $bin/aegis -de > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # pass the review # activity="review pass 253" $bin/aegis -rpass -c 1 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # start integrating # activity="integrate begin 260" $bin/aegis -ib 1 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # integrate build # activity="build 267" $bin/aegis -b -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # pass the integration # activity="integrate pass 274" $bin/aegis -intpass -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # -------------------------------------------------------------------------- # # create a branch # activity="new branch 283" $bin/aegis -nbr -p foo 2 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi AEGIS_PROJECT=foo.2 export AEGIS_PROJECT # -------------------------------------------------------------------------- # # create a new change # activity="new change 295" cat > $tmp << 'end' brief_description = "The second change"; cause = internal_bug; end if test $? -ne 0 ; then no_result; fi $bin/aegis -nc 3 -f $tmp -p foo.2 > 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 # # add files to the change # activity="copy file 313" $bin/aegis -cp $workchan/bogus -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi cat > $workchan/bogus << 'end' the branch version end if test $? -ne 0 ; then no_result; fi # # build the change # activity="build 325" $bin/aegis -build -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # difference the change # activity="diff 332" $bin/aegis -diff > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # finish development of the change # activity="develop end 339" $bin/aegis -de > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # pass the review # activity="review pass 346" $bin/aegis -rpass -c 3 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # start integrating # activity="integrate begin 353" $bin/aegis -ib 3 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # integrate build # activity="build 360" $bin/aegis -b -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # integrate diff # activity="diff 367" $bin/aegis -diff -nl -v > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # pass the integration # activity="integrate pass 374" $bin/aegis -intpass -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # -------------------------------------------------------------------------- # # create a new change # activity="new change 383" cat > $tmp << 'end' brief_description = "The third change"; cause = internal_bug; end if test $? -ne 0 ; then no_result; fi $bin/aegis -nc 4 -f $tmp -p foo.2 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # begin development of a change # $bin/aegis -db 4 -dir $workchan > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi # # add files to the change # activity="make transparent 401" $bin/aegis -mt $workchan/bogus -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi activity="check file contents 405" cat > ok << 'end' the trunk version end if test $? -ne 0 ; then no_result; fi diff ok $workchan/bogus if test $? -ne 0 ; then fail; fi activity="check change file state 414" cat > ok << 'end' src = [ { file_name = "bogus"; uuid = "UUID"; action = transparent; edit_origin = { revision = "2"; encoding = none; uuid = "UUID"; }; usage = source; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002.branch/0/004.fs # # remove the bogus file before the build, # and a symlink to the correct place should be constructed # during the build # rm -f $workchan/bogus if test $? -ne 0 ; then no_result; fi # # build # activity="build 447" $bin/aegis -build -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # now chek the bogus file again # the symlink should point to the right place. # activity="check symlinks 455" cat > ok << 'end' the trunk version end if test $? -ne 0 ; then no_result; fi diff ok $workchan/bogus if test $? -ne 0 ; then fail; fi activity="check change state 464" cat > ok << 'end' brief_description = "The third change"; description = "The third change"; cause = internal_bug; test_exempt = true; test_baseline_exempt = true; regression_test_exempt = true; architecture = [ "unspecified", ]; state = being_developed; given_test_exemption = true; given_regression_test_exemption = true; project_file_command_sync = 88; build_time = TIME; architecture_times = [ { variant = "unspecified"; node = "NODE"; build_time = TIME; }, ]; development_directory = ".../foo.chan"; history = [ { when = TIME; what = new_change; who = "USER"; }, { when = TIME; what = develop_begin; who = "USER"; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002.branch/0/004 # # diff # activity="diff 511" $bin/aegis -diff -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi activity="check change state 515" cat > ok << 'end' brief_description = "The third change"; description = "The third change"; cause = internal_bug; test_exempt = true; test_baseline_exempt = true; regression_test_exempt = true; architecture = [ "unspecified", ]; state = being_developed; given_test_exemption = true; given_regression_test_exemption = true; project_file_command_sync = 88; build_time = TIME; architecture_times = [ { variant = "unspecified"; node = "NODE"; build_time = TIME; }, ]; development_directory = ".../foo.chan"; history = [ { when = TIME; what = new_change; who = "USER"; }, { when = TIME; what = develop_begin; who = "USER"; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002.branch/0/004 activity="check change file state 559" cat > ok << 'end' src = [ { file_name = "bogus"; uuid = "UUID"; action = transparent; edit_origin = { revision = "2"; encoding = none; uuid = "UUID"; }; usage = source; file_fp = { youngest = TIME; oldest = TIME; crypto = "GUNK"; }; diff_file_fp = { youngest = TIME; oldest = TIME; crypto = "GUNK"; }; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002.branch/0/004.fs # # develop end # activity="develop end 596" $bin/aegis -de > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi activity="check change file state 600" cat > ok << 'end' src = [ { file_name = "bogus"; uuid = "UUID"; action = transparent; edit_origin = { revision = "2"; encoding = none; uuid = "UUID"; }; usage = source; file_fp = { youngest = TIME; oldest = TIME; crypto = "GUNK"; }; diff_file_fp = { youngest = TIME; oldest = TIME; crypto = "GUNK"; }; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002.branch/0/004.fs activity="check change state 634" cat > ok << 'end' brief_description = "The third change"; description = "The third change"; cause = internal_bug; test_exempt = true; test_baseline_exempt = true; regression_test_exempt = true; architecture = [ "unspecified", ]; state = being_reviewed; given_test_exemption = true; given_regression_test_exemption = true; project_file_command_sync = 88; build_time = TIME; architecture_times = [ { variant = "unspecified"; node = "NODE"; build_time = TIME; }, ]; development_directory = ".../foo.chan"; history = [ { when = TIME; what = new_change; who = "USER"; }, { when = TIME; what = develop_begin; who = "USER"; }, { when = TIME; what = develop_end; who = "USER"; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002.branch/0/004 activity="check branch file state 683" cat > ok << 'end' src = [ { file_name = "bogus"; uuid = "UUID"; action = modify; edit = { revision = "2"; encoding = none; uuid = "UUID"; }; edit_origin = { revision = "1"; encoding = none; uuid = "UUID"; }; usage = source; file_fp = { youngest = TIME; oldest = TIME; crypto = "GUNK"; }; diff_file_fp = { youngest = TIME; oldest = TIME; crypto = "GUNK"; }; locked_by = 4; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002.fs # # review pass # activity="review pass 727" $bin/aegis --review-pass 4 > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # integrate begin # activity="integrate begin 734" $bin/aegis --integrate-begin 4 > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # build # activity="build 741" $bin/aegis -build -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # diff # activity="diff 748" $bin/aegis -diff -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # pass the integration # activity="integrate pass 755" $bin/aegis -intpass -nl > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi activity="check change file state 759" cat > ok << 'end' src = [ { file_name = "bogus"; uuid = "UUID"; action = transparent; edit_origin = { revision = "2"; encoding = none; uuid = "UUID"; }; usage = source; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002.branch/0/004.fs activity="check change state 781" cat > ok << 'end' brief_description = "The third change"; description = "The third change"; cause = internal_bug; test_exempt = true; test_baseline_exempt = true; regression_test_exempt = true; architecture = [ "unspecified", ]; copyright_years = [ YYYY, ]; attribute = [ { name = "aegis:history_get_command"; value = "aesvt -check-out -edit ${quote $edit} -history ${quote $history} -f ${quote $output}"; }, ]; state = completed; given_test_exemption = true; given_regression_test_exemption = true; delta_number = 2; delta_uuid = "UUID"; minimum_integration = true; project_file_command_sync = 88; history = [ { when = TIME; what = new_change; who = "USER"; }, { when = TIME; what = develop_begin; who = "USER"; }, { when = TIME; what = develop_end; who = "USER"; }, { when = TIME; what = review_pass; who = "USER"; }, { when = TIME; what = integrate_begin; who = "USER"; }, { when = TIME; what = integrate_pass; who = "USER"; }, ]; uuid = "UUID"; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002.branch/0/004 activity="check branch file state 850" cat > ok << 'end' src = [ { file_name = "bogus"; uuid = "UUID"; action = transparent; edit = { revision = "2"; encoding = none; uuid = "UUID"; }; edit_origin = { revision = "1"; encoding = none; uuid = "UUID"; }; usage = source; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002.fs # ========================================================================== # # Now the tricky part: ending the branch. # AEGIS_PROJECT=foo export AEGIS_PROJECT # # develop end # activity="develop end 888" $bin/aegis -de 2 > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi activity="check change file state 892" cat > ok << 'end' src = [ { file_name = "bogus"; uuid = "UUID"; action = transparent; edit = { revision = "2"; encoding = none; uuid = "UUID"; }; edit_origin = { revision = "1"; encoding = none; uuid = "UUID"; }; usage = source; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002.fs activity="check change state 920" cat > ok << 'end' brief_description = "A bogus project created to test the aemt functionality, branch 2."; description = "A bogus project created to test the aemt functionality, branch 2."; cause = internal_enhancement; test_exempt = true; test_baseline_exempt = true; regression_test_exempt = true; architecture = [ "unspecified", ]; copyright_years = [ YYYY, ]; state = being_reviewed; build_time = TIME; architecture_times = [ { variant = "unspecified"; node = "NODE"; build_time = TIME; }, ]; development_directory = "branch.2"; history = [ { when = TIME; what = new_change; who = "USER"; }, { when = TIME; what = develop_begin; who = "USER"; }, { when = TIME; what = develop_end; who = "USER"; }, ]; branch = { umask = 022; developer_may_review = true; developer_may_integrate = true; reviewer_may_integrate = true; developers_may_create_changes = false; default_test_exemption = true; default_test_regression_exemption = true; skip_unlucky = false; compress_database = false; develop_end_action = goto_being_reviewed; history = [ { delta_number = 1; change_number = 3; uuid = "UUID"; when = TIME; is_a_branch = no; }, { delta_number = 2; change_number = 4; uuid = "UUID"; when = TIME; is_a_branch = no; }, ]; change = [ 3, 4, ]; administrator = [ "USER", ]; developer = [ "USER", ]; reviewer = [ "USER", ]; integrator = [ "USER", ]; minimum_change_number = 10; reuse_change_numbers = true; minimum_branch_number = 1; protect_development_directory = false; }; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002 # The transparent file should NOT be locked # when its coming from a branch that it was transparent in. activity="check trunk file state 1027" cat > ok << 'end' src = [ { file_name = "aegis.conf"; uuid = "UUID"; action = create; edit = { revision = "1"; encoding = none; uuid = "UUID"; }; edit_origin = { revision = "1"; encoding = none; uuid = "UUID"; }; usage = config; file_fp = { youngest = TIME; oldest = TIME; crypto = "GUNK"; }; }, { file_name = "bogus"; uuid = "UUID"; action = create; edit = { revision = "1"; encoding = none; uuid = "UUID"; }; edit_origin = { revision = "1"; encoding = none; uuid = "UUID"; }; usage = source; file_fp = { youngest = TIME; oldest = TIME; crypto = "GUNK"; }; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/trunk.fs # # review pass # activity="review pass 1088" $bin/aegis --review-pass 2 > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # integrate begin # activity="integrate begin 1095" $bin/aegis --integrate-begin 2 > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # build # activity="build 1102" $bin/aegis -build -nl > log 2>&1 if test $? -ne 0 ; then cat log; fail; fi # # pass the integration # activity="integrate pass 1109" $bin/aegis -intpass -nl 2 > log 2>&1 if test $? -ne 0 ; then cat log; no_result; fi activity="check change file state 1113" cat > ok << 'end' src = [ { file_name = "bogus"; uuid = "UUID"; action = transparent; edit = { revision = "2"; encoding = none; uuid = "UUID"; }; edit_origin = { revision = "1"; encoding = none; uuid = "UUID"; }; usage = source; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002.fs activity="check change state 1141" cat > ok << 'end' brief_description = "A bogus project created to test the aemt functionality, branch 2."; description = "A bogus project created to test the aemt functionality, branch 2."; cause = internal_enhancement; test_exempt = true; test_baseline_exempt = true; regression_test_exempt = true; architecture = [ "unspecified", ]; copyright_years = [ YYYY, ]; attribute = [ { name = "aegis:history_get_command"; value = "aesvt -check-out -edit ${quote $edit} -history ${quote $history} -f ${quote $output}"; }, ]; state = completed; delta_number = 2; delta_uuid = "UUID"; minimum_integration = true; history = [ { when = TIME; what = new_change; who = "USER"; }, { when = TIME; what = develop_begin; who = "USER"; }, { when = TIME; what = develop_end; who = "USER"; }, { when = TIME; what = review_pass; who = "USER"; }, { when = TIME; what = integrate_begin; who = "USER"; }, { when = TIME; what = integrate_pass; who = "USER"; }, ]; uuid = "UUID"; branch = { umask = 022; developer_may_review = true; developer_may_integrate = true; reviewer_may_integrate = true; developers_may_create_changes = false; default_test_exemption = true; default_test_regression_exemption = true; skip_unlucky = false; compress_database = false; develop_end_action = goto_being_reviewed; history = [ { delta_number = 1; change_number = 3; uuid = "UUID"; when = TIME; is_a_branch = no; }, { delta_number = 2; change_number = 4; uuid = "UUID"; when = TIME; is_a_branch = no; }, ]; change = [ 3, 4, ]; administrator = [ "USER", ]; developer = [ "USER", ]; reviewer = [ "USER", ]; integrator = [ "USER", ]; minimum_change_number = 10; reuse_change_numbers = true; minimum_branch_number = 1; protect_development_directory = false; }; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/change/0/002 activity="check trunk file state 1262" cat > ok << 'end' src = [ { file_name = "aegis.conf"; uuid = "UUID"; action = create; edit = { revision = "1"; encoding = none; uuid = "UUID"; }; edit_origin = { revision = "1"; encoding = none; uuid = "UUID"; }; usage = config; file_fp = { youngest = TIME; oldest = TIME; crypto = "GUNK"; }; }, { file_name = "bogus"; uuid = "UUID"; action = create; edit = { revision = "1"; encoding = none; uuid = "UUID"; }; edit_origin = { revision = "1"; encoding = none; uuid = "UUID"; }; usage = source; }, ]; end if test $? -ne 0 ; then no_result; fi check_it ok $workproj/info/trunk.fs # # the things tested in this test, worked # can't speak for the rest of the code # pass # vim: set ts=8 sw=4 et :