projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
907a36e
)
Improve formatting skipped-test messages. Fix symbol name.
author
Kevin Rosenberg
<kevin@rosenberg.net>
Fri, 29 Jan 2010 14:52:14 +0000
(07:52 -0700)
committer
Kevin Rosenberg
<kevin@rosenberg.net>
Fri, 29 Jan 2010 14:52:14 +0000
(07:52 -0700)
tests/test-init.lisp
patch
|
blob
|
history
diff --git
a/tests/test-init.lisp
b/tests/test-init.lisp
index 5f68e471ab7be2ea4251a58398f31377ddc24b51..fd61e924323e54bf5d0c03b55703130c19d547a6 100644
(file)
--- a/
tests/test-init.lisp
+++ b/
tests/test-init.lisp
@@
-166,7
+166,7
@@
(if skip-tests
(dolist (skipped skip-tests)
(format *report-stream*
(if skip-tests
(dolist (skipped skip-tests)
(format *report-stream*
- "~& ~
2
0A ~A~%" (car skipped) (cdr skipped)))
+ "~& ~
3
0A ~A~%" (car skipped) (cdr skipped)))
(format *report-stream* " None~%")))
(disconnect)))
(format *report-stream* " None~%")))
(disconnect)))
@@
-256,7
+256,7
@@
:oodml/update-instance/4 :oodml/update-instance/5
:oodml/update-instance/6 :oodml/update-instance/7
:oodml/db-auto-sync/3 :oodml/db-auto-sync/4))
:oodml/update-instance/4 :oodml/update-instance/5
:oodml/update-instance/6 :oodml/update-instance/7
:oodml/db-auto-sync/3 :oodml/db-auto-sync/4))
- (push (cons test ":auto-increment not supported.") sk
b
ip-tests))
+ (push (cons test ":auto-increment not supported.") skip-tests))
(t
(push test-form test-forms)))))
(values (nreverse test-forms) (nreverse skip-tests))))
(t
(push test-form test-forms)))))
(values (nreverse test-forms) (nreverse skip-tests))))