changeset 698: | 96958d3eb5b0 |
parent: | 6fa723592550 |
author: | Richard Westhaver <ellis@rwest.io> |
date: | Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: | -rw-r--r-- |
description: | fixes |
231 | 1 | //! lib.rs --- sbcl sys |
2 | #![allow(non_upper_case_globals)] |
|
3 | #![allow(non_camel_case_types)] |
|
4 | #![allow(non_snake_case)] |
|
5 | ||
6 | use std::ffi::c_char; |
|
221
da8521b4883e
sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
7 | |
da8521b4883e
sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
8 | #[cfg(test)] |
da8521b4883e
sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
9 | mod tests { |
da8521b4883e
sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
10 | use super::*; |
238 | 11 | use libloading::{Library, Symbol}; |
221
da8521b4883e
sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
12 | #[test] |
231 | 13 | fn lisp_version_test() { |
14 | unsafe { |
|
15 | let lib = Library::new("/usr/local/lib/libsbcl.so").unwrap(); |
|
238 | 16 | let initialize_lisp = lib |
17 | .get::<Symbol<extern "C" fn() -> std::ffi::c_int>>(b"initialize_lisp") |
|
231 | 18 | .unwrap(); |
19 | initialize_lisp(); |
|
20 | // assert_eq!(res,0); |
|
238 | 21 | //let lisp_version = lib.get::<Symbol<extern "C" fn()->&'static |
22 | // str>>(b"lisp_version") |
|
231 | 23 | //.unwrap(); |
24 | //assert_eq!(lisp_version(), "2.4.2+"); |
|
25 | } |
|
221
da8521b4883e
sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
26 | } |
da8521b4883e
sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
27 | } |