Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
67ea58d5
Commit
67ea58d5
authored
Jan 27, 2010
by
Rommel M. Martinez
Browse files
Updated source registry test script
parent
7c184ec6
Changes
2
Hide whitespace changes
Inline
Side-by-side
test/run-tests.sh
View file @
67ea58d5
...
...
@@ -107,8 +107,8 @@ fi
#fi
create_asds
()
{
mkdir
-p
tmp/
{
dir1,dir2/
{
dir3,dir4
}}
for
i
in
`
find tmp |
sed
-e
'1d'
`
;
do
touch
"
$i
"
/test.asd
;
done
mkdir
-p
tmp/
{
conf.d,
dir1,dir2/
{
dir3,dir4
}}
for
i
in
`
find tmp |
sed
-e
'1d
;/conf.d/d
'
`
;
do
touch
"
$i
"
/test.asd
;
done
}
clean_up
()
{
...
...
test/test-source-registry.s
View file @
67ea58d5
...
...
@@ -16,9 +16,25 @@
(
defvar
*
test
-
directory
*
(
pathname
->
directory
(
getenv
"TEST_DIR"
)))
(
defvar
*
test
-
conf
-
directory
*
(
merge
-
pathnames
"conf.d/"
*
test
-
directory
*))
(
defun
under
-
test
-
directory
(
path
&
optional
(
defaults
*
test
-
directory
*))
(
merge
-
pathnames
path
defaults
))
(
defun
create
-
conf
-
files
(&
optional
(
path
*
test
-
conf
-
directory
*))
(
let
((
v
`
((
"conf1.conf"
((:
directory
,(
namestring
(
under
-
test
-
directory
"dir1/"
)))))
("
conf2.conf
"
((:
tree
,(
namestring
(
under
-
test
-
directory
"dir2/"
))))))))
(
loop
:
for
(
file
contents
)
:
in
v
:
do
(
with
-
open
-
file
(
out
file
:
direction
:
output
:
if
-
exists
:
supersede
)
(
with
-
standard
-
io
-
syntax
(
format
out
"~{~S~}"
contents
))))))
(
defvar
*
test
-
config
-1
*
`(:
source
-
registry
(:
directory
,(
namestring
(
under
-
test
-
directory
"dir1/"
)))
...
...
@@ -37,6 +53,7 @@
test
-
something
-3))
(
cl
-
user
::
quit
-
on
-
error
(
create
-
conf
-
files
)
(
assert
(
equal
(
process
-
source
-
registry
(
getenv
"CL_SOURCE_REGISTRY"
))
*
test
-
expect
-1*))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment