-#+examples-uffi
-(progn
- (flet ((print-results (str)
- (format t "~&(atoi ~S) => ~S" str (atoi str))))
- (print-results "55")))
-
-
-#+test-uffi
-(progn
- (util.test:test (atoi "123") 123 :test #'eql
- :fail-info "Error with atoi")
- (util.test:test (atoi "") 0 :test #'eql
- :fail-info "Error with atoi")
- (util.test:test (atof "2.23") 2.23d0 :test #'eql
- :fail-info "Error with atof")
- )
-
+(deftest :atoi.1 (atoi "123") 123)
+(deftest :atoi.2 (atoi "") 0)
+(deftest :atof.3 (atof "2.23") 2.23d0)