diff options
author | Eric Wong <e@80x24.org> | 2020-01-01 10:38:54 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2020-01-01 19:10:07 +0000 |
commit | f1d73de7cc202a70e97c31df236e1f23267a5f14 (patch) | |
tree | dc50d6b79e69f4749df359ae821dda4258554045 /xt/git-http-backend.t | |
parent | 0a3ead80bc685fcabed9f7dfaae35c74b72cd830 (diff) | |
download | public-inbox-f1d73de7cc202a70e97c31df236e1f23267a5f14.tar.gz |
We're already serving static files for cgit, and will serve more static files, soon.
Diffstat (limited to 'xt/git-http-backend.t')
-rw-r--r-- | xt/git-http-backend.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/xt/git-http-backend.t b/xt/git-http-backend.t index 421c6316..7f34d452 100644 --- a/xt/git-http-backend.t +++ b/xt/git-http-backend.t @@ -8,6 +8,7 @@ use warnings; use Test::More; use POSIX qw(setsid); use PublicInbox::TestCommon; +use PublicInbox::Spawn qw(which); my $git_dir = $ENV{GIANT_GIT_DIR}; plan 'skip_all' => 'GIANT_GIT_DIR not defined' unless $git_dir; @@ -74,6 +75,25 @@ SKIP: { } } +SKIP: { # make sure Last-Modified + If-Modified-Since works with curl + my $nr = 6; + skip 'no description', $nr unless -f "$git_dir/description"; + my $mtime = (stat(_))[9]; + my $curl = which('curl'); + skip 'curl(1) not found', $nr unless $curl; + my $url = "http://$host:$port/description"; + my $dst = "$tmpdir/desc"; + is(system($curl, qw(-RsSf), '-o', $dst, $url), 0, 'curl -R'); + is((stat($dst))[9], $mtime, 'curl used remote mtime'); + is(system($curl, qw(-sSf), '-z', $dst, '-o', "$dst.2", $url), 0, + 'curl -z noop'); + ok(!-e "$dst.2", 'no modification, nothing retrieved'); + utime(0, 0, $dst) or die "utime failed: $!"; + is(system($curl, qw(-sSfR), '-z', $dst, '-o', "$dst.2", $url), 0, + 'curl -z updates'); + ok(-e "$dst.2", 'faked modification, got new file retrieved'); +} + { my $c = fork; if ($c == 0) { |