diff options
Diffstat (limited to 't/lei-mirror.t')
-rw-r--r-- | t/lei-mirror.t | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/t/lei-mirror.t b/t/lei-mirror.t index 7dd03b26..de5246b6 100644 --- a/t/lei-mirror.t +++ b/t/lei-mirror.t @@ -65,6 +65,14 @@ test_lei({ tmpdir => $tmpdir }, sub { lei_ok('ls-external'); unlike($lei_out, qr!\Q$d\E!s, 'not added to ls-external'); + $d = "$home/bad-epoch"; + ok(!lei(qw(add-external -q --epoch=0.. --mirror), "$http/t1/", $d), + 'v1 fails on --epoch'); + ok(!-d $d, 'destination not created on unacceptable --epoch'); + ok(!lei(qw(add-external -q --epoch=1 --mirror), "$http/t2/", $d), + 'v2 fails on bad epoch range'); + ok(!-d $d, 'destination not created on bad epoch'); + my %phail = ( HTTPS => 'https://public-inbox.org/' . 'phail', ONION => |