Changeset 308

Timestamp:

08/31/08 15:44:04 (3 months ago)

Author:

mbr

Message:

added tests for --sign and --verify modes

Files:

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

gpgdir/trunk/test/gpgdir_test.pl

@@ -119 +119 @@
-    \&md5sum_validation);
-
+### sign/verify cycle
+&test_driver('(Sign/verify dir) gpgdir directory signing', \&sign);
+&test_driver('(Sign/verify dir) Files recursively signed',
+    \&recursively_signed);
+&test_driver('(Sign/verify dir) Excluded hidden files/dirs',
+    \&skipped_hidden_files_dirs);
+&test_driver('(Sign/verify dir) gpgdir directory verification', \&verify);
+&test_driver('(Sign/verify dir) Files recursively verified',
+    \&recursively_verified);
+### remove all .asc files now
+
-&logr("\n");
-if ($successful_tests) {
@@ -173 +184 @@
-}
-
+sub sign() {
+    if (&run_cmd("$gpgdirCmd --gnupg-dir $gpg_dir " .
+            " --pw-file $pw_file --Key-id $key_id --sign $data_dir")) {
+        return 1;
+    }
+    return &print_errors("fail ($test_num)\n[*] " .
+        "Directory signing");
+}
+
-sub decrypt() {
-    if (&run_cmd("$gpgdirCmd --gnupg-dir $gpg_dir " .
@@ -191 +211 @@
-}
-
+sub verify() {
+    if (&run_cmd("$gpgdirCmd --gnupg-dir $gpg_dir " .
+            " --pw-file $pw_file --Key-id $key_id --verify $data_dir")) {
+        return 1;
+    }
+    return &print_errors("fail ($test_num)\n[*] " .
+        "Directory verification");
+}
+
-sub recursively_encrypted() {
-    @data_dir_files = ();
@@ -205 +234 @@
-}
-
+sub recursively_signed() {
+    @data_dir_files = ();
+    find(\&find_files, $data_dir);
+    for my $file (@data_dir_files) {
+        if (-f $file and not ($file =~ m|^\.| or $file =~ m|/\.|)) {
+            if ($file !~ m|\.asc$|) {
+                unless (-e "$file.asc") {
+                    return &print_errors("fail ($test_num)\n[*] " .
+                        "File $file not signed");
+                }
+            }
+        }
+    }
+    return 1;
+}
+
-sub recursively_decrypted() {
-    @data_dir_files = ();
@@ -214 +259 @@
-                    "File $file not encrypted");
-            }
+        }
+    }
+    return 1;
+}
+
+sub recursively_verified() {
+    @data_dir_files = ();
+    find(\&find_files, $data_dir);
+    for my $file (@data_dir_files) {
+        if (-f $file and not ($file =~ m|^\.| or $file =~ m|/\.|)) {
+#            if ($file =~ m|\.gpg$|) {
+#                return &print_errors("fail ($test_num)\n[*] " .
+#                    "File $file not encrypted");
+#            }
-        }
-    }