Changeset 254

Timestamp:

02/18/08 19:00:21 (9 months ago)

Author:

mbr

Message:

added basic --test mode, added test stats display

Files:

• gpgdir/trunk/test/gpgdir_test.pl (modified) (6 diffs)

gpgdir/trunk/test/gpgdir_test.pl

@@ -40 +40 @@
-my $logfile    = 'test.log';
-my $tarfile    = 'gpgdir_test.tar.gz';
+
+my $gpg_dir = "$conf_dir/test-gpg";
+my $pw_file = "$conf_dir/test.pw";
+my $key_id  = '375D7DB9';
-
-my $cmd_stdout = "$output_dir/cmd.stdout";
@@ -52 +56 @@
-my $successful_tests = 0;
-
-exit 1
+die "[*] Use --help"
-    'Prepare-results' => \$prepare_results,
-    'help'            => \$help
@@ -59 +63 @@
-exit &prepare_results() if $prepare_results;
-
+&logr("\n[+] ==> Running gpgdir test suite <==\n\n");
+
-### execute the tests
-&test_driver('(Setup) gpgdir program compilation', \&perl_compilation);
-&test_driver('(Setup) Command line argument processing', \&getopt_test);
+&test_driver('(Test mode) gpgdir basic test mode', \&test_mode);
+
+&logr("\n");
+if ($successful_tests) {
+    &logr("[+] ==> Passed $successful_tests/$test_num tests " .
+        "against gpgdir. <==\n");
+}
+if ($failed_tests) {
+    &logr("[+] ==> Failed $failed_tests/$test_num tests " .
+        "against gpgdir. <==\n");
+}
+&logr("[+] This console output has been stored in: $logfile\n\n");
-
-exit 0;
@@ -77 +95 @@
-    $test_num++;
-    return;
+}
+
+sub test_mode() {
+    if (&run_cmd("$gpgdirCmd --test --gnupg-dir $gpg_dir " .
+            " --pw-file $pw_file --Key-id $key_id")) {
+        my $found = 0;
+        open F, "< ${cmd_stdout}.$test_num"
+            or die "[*] Could not open ${cmd_stderr}.$test_num: $!";
+        while (<F>) {
+            if (/Decrypted\s+content\s+matches\s+original/i) {
+                $found = 1;
+                last;
+            }
+        }
+        close F;
+        return 1 if $found;
+    }
+    return &print_errors("fail ($test_num)\n[*] " .
+        "Encrypt/decrypt basic --test mode");
-}
-
@@ -106 +143 @@
-}
-
+sub print_errors() {
+    my $msg = shift;
+    &logr("$msg\n");
+    if (-e "${cmd_stderr}.$test_num") {
+        &logr("    STDOUT available in: " .
+            "${cmd_stdout}.$test_num file.\n");
+    }
+    if (-e "${cmd_stderr}.$test_num") {
+        &logr("    STDERR available in: " .
+            "${cmd_stderr}.$test_num file.\n");
+    }
+    return 0;
+}
+
-sub run_cmd() {
-    my $cmd = shift;
@@ -119 +170 @@
-    my $rv = 0;
-    die "[*] $output_dir does not exist" unless -d $output_dir;
-fwknop
+gpgdir
-        unless -e $logfile;
-    if (-e $tarfile) {