$package_config_base = File::Spec->catdir($base, 'packages');
- our $Inbox_dir = File::Spec->catdir($base, 'incoming');
+ our $Inbox_dir = File::Spec->catdir($base, 'inbox');
our $Scratch_dir = File::Spec->catdir($base, 'in-stage');
our $Stage_dir = File::Spec->catdir($base, 'stage');
our $Public_dir = File::Spec->catdir($base, 'pub');
my $triplet = [$stem.'.directive.asc', $stem.'.sig', $stem];
foreach my $file (@$triplet) {
- # If the file exists in the scratchpad, but not in the incoming
+ # If the file exists in the scratchpad, but not in the inbox
# directory, we may have already moved it to the scratchpad
# directory as part of another packet. We submit both packets for
# processing; it is near-certain that one of them is fake and will
{
our $Inbox_dir; our $Scratch_dir;
- # Clean up the incoming directory and the incoming tmp directory - remove files older than a day
+ # Clean up the inbox directory and the scratch directory by removing
+ # files older than a day
cleanup_dir($Inbox_dir);
cleanup_dir($Scratch_dir);
}
stop_test_services
analyze_file_tree $tenv "idle processing: no files" {
- incoming in-stage stage pub archive
+ inbox in-stage stage pub archive
} empty
analyze_log $tenv "idle processing: no files" {
set tenv [new_test_environment]
# files which are to be found in the scan but not processed
-put_file [file join $tenv incoming bogus1] "bogus file 1\n"
-put_file [file join $tenv incoming bogus2] "bogus file 2\n"
-put_file [file join $tenv incoming bogus3] "bogus file 3\n"
+put_file [file join $tenv inbox bogus1] "bogus file 1\n"
+put_file [file join $tenv inbox bogus2] "bogus file 2\n"
+put_file [file join $tenv inbox bogus3] "bogus file 3\n"
-age_file [file join $tenv incoming bogus1] "3 minutes ago"
-age_file [file join $tenv incoming bogus2] "2 minutes 15 seconds ago"
-age_file [file join $tenv incoming bogus3] "1 minute ago"
+age_file [file join $tenv inbox bogus1] "3 minutes ago"
+age_file [file join $tenv inbox bogus2] "2 minutes 15 seconds ago"
+age_file [file join $tenv inbox bogus3] "1 minute ago"
foreach file {
bo_gus bo+gus bo-gus bo~gus bo.gus
} {
- put_file [file join $tenv incoming ${file}] "bogus file $file\n"
- age_file [file join $tenv incoming ${file}] "3 minutes ago"
+ put_file [file join $tenv inbox ${file}] "bogus file $file\n"
+ age_file [file join $tenv inbox ${file}] "3 minutes ago"
}
# files which are to be rejected, ignored, and removed
foreach file {
x=x .abcfoobar ..abcfoobar -abcfoobar x;x \\~xax x*x x:x x?x ;xax _x +x
} {
- put_file [file join $tenv incoming ${file}] "bogus input $file\n"
- age_file [file join $tenv incoming ${file}] "3 minutes ago"
+ put_file [file join $tenv inbox ${file}] "bogus input $file\n"
+ age_file [file join $tenv inbox ${file}] "3 minutes ago"
}
# ... except for .abcfoobar, which cleanup would produce when removing a
# file named "abcfoobar", which is an acceptable name
stop_test_services
analyze_file_tree $tenv "idle processing: bogus files" {
- incoming
+ inbox
} files {
bogus1 bogus2 bogus3 .abcfoobar
bo_gus bo+gus bo-gus bo~gus bo.gus
\[${has_directive}${has_main}${has_signature}\]"
analyze_file_tree $tenv $Name {
- incoming
+ inbox
} files $filelist
analyze_file_tree $tenv $Name {
in-stage stage pub archive
set mockfile [open [file join $tenv mocks] w]
puts $mockfile {:^ lsof -Fn .*}
- set lsofstem [file normalize [file join $tenv incoming]]
+ set lsofstem [file normalize [file join $tenv inbox]]
if { $open_directive } {
puts $mockfile "> n${lsofstem}/partial.bin.directive.asc"
lappend msglist \
\[${open_directive}${open_main}${open_signature}\]"
analyze_file_tree $tenv $Name {
- incoming
+ inbox
} files {
partial.bin partial.bin.sig partial.bin.directive.asc
}
\[${recent_directive}${recent_main}${recent_signature}\]"
analyze_file_tree $tenv $Name {
- incoming
+ inbox
} files { recent.bin recent.bin.sig recent.bin.directive.asc }
analyze_file_tree $tenv $Name {
in-stage stage pub archive
}
}
if { $oversize_directive } {
- set chan [open [file join $tenv incoming oversize.bin.directive.asc] a]
+ set chan [open [file join $tenv inbox oversize.bin.directive.asc] a]
puts $chan [string repeat \
"[string repeat { bogon } 11]\n" 1024]
close $chan
- age_file [file join $tenv incoming oversize.bin.directive.asc] \
+ age_file [file join $tenv inbox oversize.bin.directive.asc] \
"3 minutes ago"
lappend msglist oversize-directive,oversize.bin.directive.asc \
"detected oversize directive file"
"scan found directive file"
}
if { $oversize_signature } {
- set chan [open [file join $tenv incoming oversize.bin.sig] a]
+ set chan [open [file join $tenv inbox oversize.bin.sig] a]
puts $chan [string repeat \
"[string repeat { bogon } 11]\n" 1024]
close $chan
- age_file [file join $tenv incoming oversize.bin.sig] \
+ age_file [file join $tenv inbox oversize.bin.sig] \
"3 minutes ago"
lappend msglist oversize-signature,oversize.bin.sig \
"detected oversize signature file"
\[${oversize_directive}${oversize_signature}\]"
analyze_file_tree $tenv $Name {
- incoming
+ inbox
} files $filelist
analyze_file_tree $tenv $Name {
in-stage stage pub archive
set tenv [new_test_environment]
switch -- $which {
- incoming { set other in-stage }
- in-stage { set other incoming }
+ inbox { set other in-stage }
+ in-stage { set other inbox }
}
set test_file [file join $tenv $which test-old-file]
close_test_environment $tenv
}
-check_cleanup incoming
+check_cleanup inbox
check_cleanup in-stage
# ----------------------------------------
comment "do nothing"
}
} file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files { .foo.directive.asc }
} log {
unsigned-directive,foo.directive.asc "unsigned directive"
comment "do nothing"
}
} file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files { .foo.directive.asc }
} log {
unsigned-directive,foo.directive.asc "unsigned directive"
comment "do nothing"
}
} file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files { .foo.directive.asc }
} log {
unsigned-directive,foo.directive.asc "unsigned directive"
comment "do nothing"
}
} file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files { .foo.directive.asc }
} log {
unsigned-directive,foo.directive.asc "unsigned directive"
comment "do nothing"
} dsig { good 00 1000 }
} file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files { .foo.directive.asc }
} log {
validate,no-directory-given "directive rejected: no directory specified"
comment "do nothing"
} dsig { good 01 1000 }
} file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files { .foo.directive.asc }
} log {
gpgv,directive-verify-failed "incorrect signature rejected"
comment "do nothing"
} dsig { good 01 1000 }
} file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files { .foo.directive.asc }
} log {
validate,bad-directory-repeat "duplicate directory rejected"
comment "do nothing"
} dsig { good 01 1000 }
} file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files { .foo.directive.asc }
} log {
validate,bad-directory-repeat "ambiguous directory rejected"
comment "do nothing"
} dsig { good 01 1001 }
} file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files { .foo.directive.asc }
} log {
validate,bad-directory-depth "excessively deep directory rejected"
comment "do nothing"
} dsig { good 02 1000 }
} file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files { .foo.directive.asc }
} log {
unknown-package "unknown package from directive"
comment "do nothing"
} dsig { good 03 1001 }
} file-tree {
- { incoming in-stage stage pub archive } empty {}
+ { inbox in-stage stage pub archive } empty {}
} email-to {
ftp-upload-script@gnu.org ftp-upload-report@gnu.org
}
comment "no actual command here"
} dsig { good 04 1000 }
} file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files { .foo.directive.asc }
} log {
validate,no-op "null directive rejected"
comment "replace does not count as a command"
} dsig { good 05 1000 }
} file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files { .foo.directive.asc }
} log {
validate,no-op "null directive rejected"
} initial-files {
pub { foo/foo-1.2.bin { good 06 1000 } }
} file-tree {
- { incoming in-stage stage archive } empty {}
+ { inbox in-stage stage archive } empty {}
{ pub } files { foo/foo-1.2.bin foo/foo-latest.bin }
{ pub } symlink-targets { foo-1.2.bin foo/foo-latest.bin }
} log {
} initial-files {
pub { foo/foo-1.0.bin { good 05 1000 } }
} file-tree {
- { incoming in-stage stage archive } empty {}
+ { inbox in-stage stage archive } empty {}
{ pub } files { foo/foo-1.0.bin foo/foo-latest.bin }
{ pub } symlink-targets { foo-1.2.bin foo/foo-latest.bin }
} log {
foo/bar/README { good 10 1000 }
}
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin foo/bar/README }
} log {
} initial-files {
pub { foo/foo-1.0.bin { good 05 1000 } }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin }
} log {
} initial-files {
pub { foo/foo-1.0.bin { good 05 1000 } }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin }
} log {
} initial-files {
pub { foo/foo-1.0.bin { good 05 1000 } }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin }
} log {
} initial-files {
pub { foo/foo-1.0.bin { good 05 1000 } }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin }
} log {
} initial-files {
pub { foo/foo-1.0.bin { good 05 1000 } }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin }
} log {
} initial-files {
pub { foo/foo-1.0.bin { good 05 1000 } }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin }
} log {
} initial-files {
pub { foo/foo-1.0.bin { good 05 1000 } }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin }
} log {
} initial-symlinks {
pub { foo-1.0.bin foo/foo-latest.bin }
} file-tree {
- { incoming in-stage stage archive } empty {}
+ { inbox in-stage stage archive } empty {}
{ pub } files { foo/foo-1.0.bin foo/foo-1.2.bin foo/foo-latest.bin }
{ pub } symlink-targets { foo-1.2.bin foo/foo-latest.bin }
} log {
} initial-symlinks {
pub { foo-1.2.bin foo/foo-latest.bin }
} file-tree {
- { incoming in-stage stage archive } empty {}
+ { inbox in-stage stage archive } empty {}
{ pub } files { foo/foo-1.2.bin }
} log {
action,rm-symlink "recorded removal of symlink"
} initial-symlinks {
pub { foo-1.2.bin foo/foo-latest.bin }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.2.bin foo/foo-latest.bin }
{ pub } symlink-targets { foo-1.2.bin foo/foo-latest.bin }
} initial-files {
pub { foo/foo-1.0.bin { good 05 1000 } }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin }
} log {
} initial-symlinks {
pub { foo-1.0.bin foo/foo-latest.bin }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin foo/foo-latest.bin }
{ pub } symlink-targets { foo-1.0.bin foo/foo-latest.bin }
} initial-files {
pub { foo/foo-1.0.bin { good 05 1000 } }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin }
} log {
} initial-files {
pub { foo/foo-1.0.bin { good 05 1000 } }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin }
} log {
} initial-files {
pub { foo/foo-1.0.bin { good 05 1000 } }
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin }
} log {
foo/foo-1.2.bin { good 06 1000 }
}
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin foo/foo-1.2.bin }
} log {
foo/foo-1.2.bin { good 06 1000 }
}
} file-tree {
- { incoming in-stage stage } empty {}
+ { inbox in-stage stage } empty {}
{ pub } files { foo/foo-1.2.bin }
{ archive } archived-files { foo/foo-1.0.bin }
} log {
foo/bar/bar-2.bin { good 08 1000 }
}
} file-tree {
- { incoming in-stage stage } empty {}
+ { inbox in-stage stage } empty {}
{ pub } files { foo/foo-1.0.bin foo/foo-1.2.bin }
{ archive } archived-files { foo/bar/bar-1.bin foo/bar/bar-2.bin }
} log {
foo-1.2.bin.sig foo/foo-latest.bin.sig
}
} file-tree {
- { incoming in-stage stage } empty {}
+ { inbox in-stage stage } empty {}
{ pub } files { foo/foo-1.0.bin foo/foo-1.2.bin }
{ archive } archived-files { foo/foo-latest.bin }
} log {
foo/foo-1.2.bin { good 06 1000 }
}
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.2.bin }
} log {
foo/foo-1.2.bin { good 06 1000 }
}
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin foo/foo-1.2.bin }
} log {
foo/foo-1.2.bin { good 06 1000 }
}
} file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files { .foo.directive.asc }
{ pub } files { foo/foo-1.0.bin foo/foo-1.2.bin }
} log {
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.tar.gz.directive.asc .foo.tar.gz.sig .foo.tar.gz
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.tar.gz.directive.asc .foo.tar.gz.sig .foo.tar.gz
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.tar.gz.directive.asc .foo.tar.gz.sig .foo.tar.gz
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.tar.gz.directive.asc .foo.tar.gz.sig .foo.tar.gz
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin .foo.bin.sig .foo.bin.directive.asc
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin .foo.bin.sig .foo.bin.directive.asc
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.bar.tar.gz.directive.asc .bar.tar.gz.sig .bar.tar.gz
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.bar.tar.gz.directive.asc .bar.tar.gz.sig .bar.tar.gz
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.bar.tar.gz.directive.asc .bar.tar.gz.sig .bar.tar.gz
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.bar.tar.gz.directive.asc .bar.tar.gz.sig .bar.tar.gz
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.bar.tar.gz.directive.asc .bar.tar.gz.sig .bar.tar.gz
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.bar.tar.gz.directive.asc .bar.tar.gz.sig .bar.tar.gz
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
} check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check [subst {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check [subst {
file-tree {
- { incoming in-stage stage archive } empty {}
+ { inbox in-stage stage archive } empty {}
{ pub } files {
foo/v$FVER/foo.bin.sig foo/v$FVER/foo.bin
}
}
}] check [subst {
file-tree {
- { incoming in-stage stage archive } empty {}
+ { inbox in-stage stage archive } empty {}
{ pub } files {
foo/bar/v$FVER/foo.bin.sig foo/bar/v$FVER/foo.bin
}
}
}] check [subst {
file-tree {
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check [subst {
file-tree {
- { incoming in-stage stage archive } empty {}
+ { inbox in-stage stage archive } empty {}
{ pub } files {
foo/bar/v$FVER/foo.bin.sig foo/bar/v$FVER/foo.bin
}
}
}] check {
file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
}] check {
file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
} check {
file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
} check {
file-tree {
- { incoming in-stage stage } empty {}
+ { inbox in-stage stage } empty {}
{ pub } files {
foo/foo.bin foo/foo.bin.sig
}
}
} check {
file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
ftp-upload-report@gnu.org foo@example.org foo@example.net
}
analyze_file_tree $tenv "am_cve: $desc" \
- { incoming stage pub archive } empty {}
+ { inbox stage pub archive } empty {}
analyze_file_tree $tenv "am_cve: $desc" \
{ in-stage } files {
.foo.tar.gz.directive.asc .foo.tar.gz.sig .foo.tar.gz
analyze_mail $tenv "email: $desc" to $data(email-to)
analyze_file_tree $tenv "email: $desc" \
- { incoming in-stage stage archive } empty {}
+ { inbox in-stage stage archive } empty {}
analyze_file_tree $tenv "email: $desc" \
{ pub } files { foo/foo.bin.sig foo/foo.bin }
}
} check {
file-tree {
- { incoming in-stage stage archive } empty {}
+ { inbox in-stage stage archive } empty {}
{ pub } files {
foo/foo.bin.sig foo/foo.bin
}
}
} check {
file-tree {
- { incoming stage archive } empty {}
+ { inbox stage archive } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
}
} check {
file-tree {
- { incoming in-stage stage archive } empty {}
+ { inbox in-stage stage archive } empty {}
{ pub } files {
foo/foo.bin.sig foo/foo.bin
}
}
} check {
file-tree {
- { incoming in-stage stage } empty {}
+ { inbox in-stage stage } empty {}
{ archive } archived-files {
foo/foo.bin
}
}
} check {
file-tree {
- { incoming in-stage stage archive } empty {}
+ { inbox in-stage stage archive } empty {}
{ pub } files {
foo/foo.bin.sig foo/foo.bin
}
}
} check {
file-tree {
- { incoming in-stage stage } empty {}
+ { inbox in-stage stage } empty {}
{ archive } archived-files {
foo/foo.bin
}
}
} check {
file-tree {
- { incoming stage } empty {}
+ { inbox stage } empty {}
{ in-stage } files {
.foo.bin.directive.asc .foo.bin.sig .foo.bin
}
proc make_test_environment { base_dir } {
file mkdir $base_dir
file mkdir [file join $base_dir packages]
- file mkdir [file join $base_dir incoming]
+ file mkdir [file join $base_dir inbox]
file mkdir [file join $base_dir in-stage]
file mkdir [file join $base_dir stage]
file mkdir [file join $base_dir pub]
[sign_test_message $directive \
[eval make_test_signature $parts(dsig)]]
}
- put_file [file join $base_dir incoming "${stem}.directive.asc"] \
+ put_file [file join $base_dir inbox "${stem}.directive.asc"] \
$directive
- age_file [file join $base_dir incoming "${stem}.directive.asc"] \
+ age_file [file join $base_dir inbox "${stem}.directive.asc"] \
$parts(directive-mtime)
}
if { [info exists parts(fsig)] } { # write detached signature
- put_file [file join $base_dir incoming "${stem}.sig"] \
+ put_file [file join $base_dir inbox "${stem}.sig"] \
[sign_test_file $stem \
[eval make_test_signature $parts(fsig)]]
- age_file [file join $base_dir incoming "${stem}.sig"] \
+ age_file [file join $base_dir inbox "${stem}.sig"] \
$parts(fsig-mtime)
}
if { [info exists parts(file)] } { # write file
- put_file [file join $base_dir incoming "${stem}"] \
+ put_file [file join $base_dir inbox "${stem}"] \
[string trimleft $parts(file)]
- age_file [file join $base_dir incoming "${stem}"] \
+ age_file [file join $base_dir inbox "${stem}"] \
$parts(file-mtime)
}
regexp -indices {[.]tar(?:[.]|$)} $stem metastem_offsets
set metastem [string range $stem \
0 [expr {[lindex $metastem_offsets 0] - 1}]]
- set tar_file [file join $base_dir incoming "${metastem}.tar"]
+ set tar_file [file join $base_dir inbox "${metastem}.tar"]
set tar_base [new_work_area [file join $base_dir tarpad]]
file mkdir [file join $tar_base $metastem]
foreach { name contents } $parts(tar-file) {
projects / gatekeeper.git / commitdiff