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

src/test-harness/tests/chpass.pm

@@ -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;