projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1917: *** empty log message ***
[uffi.git]
/
tests
/
c-test-fns.cl
diff --git
a/tests/c-test-fns.cl
b/tests/c-test-fns.cl
index 589d56433bb48a2131abbe8a66a251f5d599b707..0bdb90fda7ec735b10a285c882e225bb8c05a12c 100644
(file)
--- a/
tests/c-test-fns.cl
+++ b/
tests/c-test-fns.cl
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id: c-test-fns.cl,v 1.
6 2002/04/02 23:27:05
kevin Exp $
+;;;; $Id: c-test-fns.cl,v 1.
7 2002/04/03 00:31:32
kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-101,7
+101,7
@@
#+test-uffi
(progn
(util.test:test (string= (string-to-upper "this is a test") "THIS IS A TEST")
#+test-uffi
(progn
(util.test:test (string= (string-to-upper "this is a test") "THIS IS A TEST")
- (length "THIS IS A TEST")
+ t
:test #'eql
:fail-info "Error with string-to-upper")
(util.test:test (string-to-upper nil) nil
:test #'eql
:fail-info "Error with string-to-upper")
(util.test:test (string-to-upper nil) nil
@@
-115,7
+115,7
@@
:fail-info "string-count-upper with nil failed")
(util.test:test (test-half-double-vector)
:fail-info "string-count-upper with nil failed")
(util.test:test (test-half-double-vector)
- '(0.0
0.5 1.0 1.5 2.0 2.5 3.0 3.5 4.0 4.5
)
+ '(0.0
d0 0.5d0 1.0d0 1.5d0 2.0d0 2.5d0 3.0d0 3.5d0 4.0d0 4.5d0
)
:test #'equal
:fail-info "Error comparing half-double-vector")
)
:test #'equal
:fail-info "Error comparing half-double-vector")
)