blob: 00052cbeddb5b93ab123ef2a541c3058eb156709 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(load "../common")
(with-dyn-lib (libc)
(deffi strtol "strtol" long (str (ptr-out (array 1 str-s)) int))
(deffi bcstol "strtol" long (bstr (ptr-out (array 1 bstr-s)) int))
(deffi wcstol "wcstol" long (wstr (ptr-out (array 1 wstr-s)) int)))
(mtest
(let ((v (vec nil))) (list (strtol "-345x" v 0) v)) (-345 #("x"))
(let ((v (vec nil))) (list (bcstol "-345x" v 0) v)) (-345 #("x"))
(let ((v (vec nil))) (list (wcstol "-345x" v 0) v)) (-345 #("x")))
|
