Add a new test-harness test to exercise twadmin change-passphrases mode
This commit is contained in:
parent
73a8f0e59b
commit
4176c1db12
|
@ -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;
|
Loading…
Reference in New Issue