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
/
strtol.cl
diff --git
a/tests/strtol.cl
b/tests/strtol.cl
index 8255ce55d3de985e2b4db3b48c39ca21a89cd77f..32c5c42e1bfd836a54595db210d5e7b9d7337c6f 100644
(file)
--- a/
tests/strtol.cl
+++ b/
tests/strtol.cl
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: strtol.cl,v 1.1
4 2002/04/02 22:10:22
kevin Exp $
+;;;; $Id: strtol.cl,v 1.1
5 2002/04/02 23:27:05
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
;;;;
@@
-72,9
+72,10
@@
of first non-valid character"
(progn
(flet ((test-strtol (str results)
(util.test:test (multiple-value-list (strtol str)) results
(progn
(flet ((test-strtol (str results)
(util.test:test (multiple-value-list (strtol str)) results
- :test
-function
#'equal
+ :test #'equal
:fail-info "Error testing strtol")))
:fail-info "Error testing strtol")))
- (test-strtol "55" '(55 t))
+ (test-strtol "123" '(123 t))
+ (test-strtol "0" '(0 t))
(test-strtol "55a" '(55 2))
(test-strtol "a" '(nil nil))))
(test-strtol "55a" '(55 2))
(test-strtol "a" '(nil nil))))