Add more tests

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" ]];

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

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 ".4")))
-                                              (list)))
 
 (pffi-define curl-version libcurl 'curl_version 'string (list))
 

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)