;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: strtol.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $
+;;;; $Id: strtol.lisp,v 1.2 2003/04/29 12:57:10 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(in-package :cl-user)
+(in-package :uffi-tests)
(uffi:def-foreign-type char-ptr (* :unsigned-char))
(uffi:free-foreign-object str-native)
(uffi:free-foreign-object endptr)))))
-
-
-#+examples-uffi
-(progn
- (flet ((print-results (str)
- (multiple-value-bind (result flag) (strtol str)
- (format t "~&(strtol ~S) => ~S,~S" str result flag))))
- (print-results "55")
- (print-results "55.3")
- (print-results "a")))
+(deftest strtol.1 (strtol "123") 123 t)
+(deftest strtol.2 (strtol "0") 0 t)
+(deftest strtol.3 (strtol "55a") 55 2)
+(deftest strtol.4 (strtol "a") nil nil)
-#+test-uffi
-(progn
- (flet ((test-strtol (str results)
- (util.test:test (multiple-value-list (strtol str)) results
- :test #'equal
- :fail-info "Error testing strtol")))
- (test-strtol "123" '(123 t))
- (test-strtol "0" '(0 t))
- (test-strtol "55a" '(55 2))
- (test-strtol "a" '(nil nil))))