colin
/
tripwire-open-source
mirror of https://github.com/Tripwire/tripwire-open-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add a new test-harness test to exercise twadmin change-passphrases mode

This commit is contained in:
Brian Cox 2017-06-28 20:05:52 -07:00
parent 73a8f0e59b
commit 4176c1db12
1 changed files with 84 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
src/test-harness/tests/chpass.pm Normal file
View File

@ -0,0 +1,84 @@
use twtools;
package chpass;
######################################################################
# One time module initialization goes in here...
#
BEGIN {
$description = "change passphrases test";
}
######################################################################
#
# Initialize, get ready to run this test...
#
sub initialize() {
}
######################################################################
#
# Run the test.
#
sub run() {
my $twpassed = 1;
my $newpass = "password";
twtools::logStatus("*** Beginning $description\n");
printf("%-30s", "-- $description");
twtools::logStatus(`$twtools::twrootdir/bin/twadmin --change-passphrases -S $twtools::twrootdir/$twtools::twsitekeyloc --site-passphrase $newpass --site-passphrase-old $twtools::twsitepass`);
if ( $? != 0 ) {
twtools::logStatus("first change site passphrase failed\n");
$twpassed = 0;
}
twtools::logStatus(`$twtools::twrootdir/bin/twadmin --change-passphrases -S $twtools::twrootdir/$twtools::twsitekeyloc --site-passphrase $twtools::twsitepass --site-passphrase-old $newpass`);
if ( $? != 0 ) {
twtools::logStatus("second change site passphrase failed\n");
$twpassed = 0;
}
twtools::logStatus(`$twtools::twrootdir/bin/twadmin --change-passphrases -L $twtools::twrootdir/$twtools::twlocalkeyloc --local-passphrase $newpass --local-passphrase-old $twtools::twlocalpass`);
if ( $? != 0 ) {
twtools::logStatus("first change local passphrase failed\n");
$twpassed = 0;
}
twtools::logStatus(`$twtools::twrootdir/bin/twadmin --change-passphrases -L $twtools::twrootdir/$twtools::twlocalkeyloc --local-passphrase $twtools::twlocalpass --local-passphrase-old $newpass`);
if ( $? != 0 ) {
twtools::logStatus("second change local passphrase failed\n");
$twpassed = 0;
}
#########################################################
#
# See if the tests all succeeded...
#
if ($twpassed) {
++$twtools::twpassedtests;
print "PASSED\n";
return 1;
}
else {
++$twtools::twfailedtests;
print "*FAILED*\n";
return 0;
}
}
######################################################################
# One time module cleanup goes in here...
#
END {
}
1;