summaryrefslogtreecommitdiffstats
path: root/tests/017/str-s.tl
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")))