diff --git a/test-all.sh b/test-all.sh
index 729902a..b4a998f 100644
--- a/test-all.sh
+++ b/test-all.sh
@@ -1,5 +1,8 @@
 #!/usr/bin/env bash
 
+set -eu
+set -o pipefail
+
 for testfile in ./test-*.sh
 do
     if [[ ! "${testfile}" = "./test-all.sh" ]];
diff --git a/test-guile-compile.sh b/test-guile-compile.sh
new file mode 100644
index 0000000..ed30d7d
--- /dev/null
+++ b/test-guile-compile.sh
@@ -0,0 +1,6 @@
+#!/usr/bin/env bash
+source scripts/init-test.sh
+
+SCHEME="guile --fresh-auto-compile --r7rs -L ."
+
+source scripts/test-runs-dynamic.sh
diff --git a/test/600_pffi-define.scm b/test/600_pffi-define.scm
index ae222aa..3a2755f 100644
--- a/test/600_pffi-define.scm
+++ b/test/600_pffi-define.scm
@@ -5,9 +5,9 @@
         (retropikzel pffi v0-2-1 main))
 
 (define libcurl (pffi-shared-object-auto-load (list "curl/curl.h")
+                                              (list)
                                               "curl"
-                                              (list ".4")
-                                              (list)))
+                                              (list ".4")))
 
 (pffi-define curl-version libcurl 'curl_version 'string (list))
 
diff --git a/test/700_libc.scm b/test/700_libc.scm
new file mode 100644
index 0000000..fd7c02e
--- /dev/null
+++ b/test/700_libc.scm
@@ -0,0 +1,21 @@
+(import (scheme base)
+        (scheme write)
+        (scheme process-context)
+        (scheme eval)
+        (retropikzel pffi v0-2-1 main))
+
+(define libc (pffi-shared-object-auto-load (list "curl/curl.h")
+                                              (list)
+                                              "c"
+                                              (list ".6")))
+
+(pffi-define puts libc 'puts 'int (list 'pointer))
+
+(display "=================")
+(newline)
+
+(puts (pffi-string->pointer "This is from C"))
+
+(newline)
+(display "=================")
+(newline)