File: test-archive-registration.sh

package info (click to toggle)
tla 1.3.5%2Bdfsg1-2
  • links: PTS
  • area: main
  • in suites: bookworm, bullseye, buster, sid, stretch
  • size: 22,292 kB
  • ctags: 11,952
  • sloc: ansic: 149,771; sh: 16,009; xml: 2,689; lisp: 1,927; makefile: 1,064; cpp: 363; tcl: 230; awk: 48; sed: 25
file content (47 lines) | stat: -rw-r--r-- 1,245 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!/bin/sh
# -*- mode: sh; coding: utf-8 -*-
# Test archive registration
# Copyright © 2003 Colin Walters <walters@verbum.org>
#
# See the file "COPYING" for further information about
# the copyright and warranty status of this work.

set -e

arg0="$0"
srcdir=`dirname "$arg0"`

. ${srcdir}/test-framework

setup_workdir

test_class "Archive registration"

begin_test "Archive registration 1"
tla register-archive foo@bar.com--2003 http://foobar.net/arch
test $(tla whereis-archive foo@bar.com--2003) = "http://foobar.net/arch"
end_test

begin_test "Archive registration 2"
tla register-archive blah@baz.com--moo /var/www/baz/archives/spoon
test $(tla whereis-archive blah@baz.com--moo) = /var/www/baz/archives/spoon
test $(tla whereis-archive foo@bar.com--2003) = "http://foobar.net/arch"
end_test

begin_test "Archive re-registration"
tla register-archive -f foo@bar.com--2003 http://barfoo.com/ARCH
test $(tla whereis-archive foo@bar.com--2003) = http://barfoo.com/ARCH
end_test 

begin_test "Archive unregistration"
tla register-archive -d blah@baz.com--moo

if tla whereis-archive blah@baz.com--moo 2>/dev/null; then
  exit 1
fi    
end_test

clean_workdir

# tag: Colin Walters Tue, 16 Sep 2003 20:35:26 -0400 (test-register-archive.sh)
#