#!/bin/sh # # aegis - project change supervisor # Copyright (C) 1996-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 the aenpr branch 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}/$$ 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 here=`pwd` if test $? -ne 0 ; then exit 2; fi bin=$here/${1-.}/bin 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 aenpr branch 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 for test of the aenpr branch 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 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 $1 $work/sed.out if test $? -ne 0; then fail; fi } activity="working directory 84" 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 # # test the aenpr branch functionality # activity="new project 117" $bin/aegis -npr foo -lib $work/lib -v -dir $work/proj > test.out 2>&1 if test $? -ne 0 ; then cat test.out; fail; fi activity="check project state file 121" cat > ok << 'fubar' brief_description = "The \"foo\" program."; description = "The \"foo\" program."; cause = internal_enhancement; test_exempt = false; test_baseline_exempt = false; regression_test_exempt = true; architecture = [ "unspecified", ]; state = being_developed; development_directory = "."; history = [ { when = TIME; what = new_change; who = "USER"; }, { when = TIME; what = develop_begin; who = "USER"; }, ]; branch = { umask = 022; developer_may_review = false; developer_may_integrate = false; reviewer_may_integrate = false; developers_may_create_changes = false; default_test_exemption = false; skip_unlucky = false; compress_database = false; develop_end_action = goto_being_reviewed; change = [ 1, ]; sub_branch = [ 1, ]; administrator = [ "USER", ]; developer = [ ]; reviewer = [ ]; integrator = [ ]; minimum_change_number = 10; reuse_change_numbers = true; minimum_branch_number = 1; }; fubar if test $? -ne 0 ; then no_result; fi check_it ok $work/proj/info/trunk activity="check branch 1 state file 183" cat > ok << 'fubar' brief_description = "The \"foo\" program, branch 1."; description = "The \"foo\" program, branch 1."; cause = internal_enhancement; test_exempt = true; test_baseline_exempt = true; regression_test_exempt = true; architecture = [ "unspecified", ]; state = being_developed; development_directory = "branch.1"; history = [ { when = TIME; what = new_change; who = "USER"; }, { when = TIME; what = develop_begin; who = "USER"; }, ]; branch = { umask = 022; developer_may_review = false; developer_may_integrate = false; reviewer_may_integrate = false; developers_may_create_changes = false; default_test_exemption = false; skip_unlucky = false; compress_database = false; develop_end_action = goto_being_reviewed; change = [ ZERO, ]; sub_branch = [ ZERO, ]; administrator = [ "USER", ]; developer = [ ]; reviewer = [ ]; integrator = [ ]; minimum_change_number = 10; reuse_change_numbers = true; minimum_branch_number = 1; }; fubar if test $? -ne 0 ; then no_result; fi check_it ok $work/proj/info/change/0/001 activity="check branch 1.0 state file 245" cat > ok << 'fubar' brief_description = "The \"foo\" program, branch 1.0."; description = "The \"foo\" program, branch 1.0."; cause = internal_enhancement; test_exempt = true; test_baseline_exempt = true; regression_test_exempt = true; architecture = [ "unspecified", ]; state = being_developed; development_directory = "branch.1/branch.0"; history = [ { when = TIME; what = new_change; who = "USER"; }, { when = TIME; what = develop_begin; who = "USER"; }, ]; branch = { umask = 022; developer_may_review = false; developer_may_integrate = false; reviewer_may_integrate = false; developers_may_create_changes = false; default_test_exemption = false; skip_unlucky = false; compress_database = false; develop_end_action = goto_being_reviewed; change = [ ]; administrator = [ "USER", ]; minimum_change_number = 10; reuse_change_numbers = true; minimum_branch_number = 1; }; fubar if test $? -ne 0 ; then no_result; fi check_it ok $work/proj/info/change/0/001.branch/0/000 # # Only definite negatives are possible. # The functionality exercised by this test appears to work, # no other guarantees are made. # pass