Changeset 38 for trunk/t

Timestamp:

04/03/06 02:06:57 (4 years ago)

Author:

bradfitz

Message:

refactoring for readability

Location:

trunk/t

Files:

• 01-backup.t (modified) (1 diff)
• 02-gpg.t (modified) (1 diff)

trunk/t/01-backup.t

@@ -15 +15 @@
 ok(-d $root_dir, "test data to backup exists");
 
-my $backup_file = do_backup(sub {
-    my $conf = shift;
-    $conf->add("path",       $root_dir);
-    $conf->add("chunk_size", "2k");
-    $conf->add("digestdb_file", $digdb_fn);
-});
+my $backup_file = do_backup(
+                            with_confsec => sub {
+                                my $csec = shift;
+                                $csec->add("path",          $root_dir);
+                                $csec->add("chunk_size",    "2k");
+                                $csec->add("digestdb_file", $digdb_fn);
+                            },
+                            );
 
 ############### Restore

trunk/t/02-gpg.t

@@ -15 +15 @@
 ok(-d $root_dir, "test data to backup exists");
 
-my $backup_file = do_backup(sub {
-    my $csec = shift;
-    $csec->add("path",          $root_dir);
-    $csec->add("chunk_size",    "2k");
-    $csec->add("digestdb_file", $digdb_fn);
-    $csec->add("gpg_recipient",      "2149C469");
-});
+my $backup_file = do_backup(
+                            with_confsec => sub {
+                                my $csec = shift;
+                                $csec->add("path",          $root_dir);
+                                $csec->add("chunk_size",    "2k");
+                                $csec->add("digestdb_file", $digdb_fn);
+                                $csec->add("gpg_recipient",      "2149C469");
+                            },
+                            with_root => sub {
+                                my $root = shift;
+                                $root->{gpg_args} = ["--no-default-keyring",
+                                                     "--keyring=$Bin/data/pubring-test.gpg",
+                                                     "--secret-keyring=$Bin/data/secring-test.gpg"];
+                            },
+                            );
 
 ############### Restore