r9326: improve case conversion

[uffi.git] / tests / time.lisp

diff --git a/tests/time.lisp b/tests/time.lisp
index 279dee0ff495f4ca27e19c38a76e8662ced9f899..aeedba089c3f813bcf1f194fe435c29dd2832e4f 100644 (file)
--- a/tests/time.lisp
+++ b/tests/time.lisp
@@ -90,3 +90,13 @@
             (zerop res2))))
   t)
             
+(defun posix-time-to-localtime-string (secs)
+  "Converts number of seconds elapsed since 00:00:00 on January 1, 1970, Coordinated Universal Time (UTC)"
+  (string-right-trim
+   '(#\newline #\return)
+   (uffi:convert-from-cstring
+    (uffi:with-foreign-object (time 'time-t)
+                             (setf (uffi:deref-pointer time :unsigned-long)
+                                   secs)
+                             (c-time time)))))
+