1
# ---------------------------------------------------------------------------
3
# - afnix:adp test module -
4
# ---------------------------------------------------------------------------
5
# - This program is free software; you can redistribute it and/or modify -
6
# - it provided that this copyright notice is kept intact. -
8
# - This program is distributed in the hope that it will be useful, but -
9
# - without any warranty; without even the implied warranty of -
10
# - merchantability or fitness for a particular purpose. In no event shall -
11
# - the copyright holder be liable for any direct, indirect, incidental or -
12
# - special damages arising in any way out of the use of this software. -
13
# ---------------------------------------------------------------------------
14
# - copyright (c) 1999-2007 amaury darsch -
15
# ---------------------------------------------------------------------------
17
# @info adp utilities test module
18
# @author amaury darsch
21
interp:load "adp-prjld"
23
# check the uri name by name
24
trans name "http://www.afnix.org"
25
assert "http://www.afnix.org" (afnix:adp:get-uri-name name)
27
# check the uri name by name
28
trans name "www.afnix.org"
29
assert "http://www.afnix.org" (afnix:adp:get-uri-name name)
31
# check for local file
33
trans pnam (afnix:adp:get-uri-name name)
34
assert "Makefile" (afnix:sio:get-base-name pnam)