Add Gambit test script

.gitignore

@@ -1 +1,3 @@
+/*.c
+/*.o*
 /test*.tar

test-r7rs.scm

@@ -1,4 +1,4 @@
-#! /usr/bin/env chibi-scheme
+#!
 
 (import (scheme base)
         (scheme file)
@@ -17,9 +17,6 @@
              whole
              (loop (bytevector-append whole part))))))))
 
-(tar-write-file "hello/world.text"
-                (slurp-binary-file "trivial-tar-writer.scm"))
-
 (define (main arguments)
   (for-each (lambda (file) (tar-write-file file (slurp-binary-file file)))
             (cdr arguments)))

test.sh

@@ -1,9 +1,14 @@
 #!/bin/sh
-set -eux
+set -eu
-./test-chibi.scm trivial-tar-writer.scm >test-our.tar
+cd "$(dirname "$0")"
-bsdtar -cf test-bsd.tar trivial-tar-writer.scm
+echo "Entering directory '$PWD'"
-gtar -cf test-gnu.tar trivial-tar-writer.scm
+set -x
-hexdump -C test-our.tar
+payload=trivial-tar-writer.scm
+chibi-scheme -A . test-r7rs.scm $payload >test-chibi.tar
+gsi-script . test-r7rs.scm $payload >test-gambit.tar
+bsdtar -cf test-bsd.tar $payload
+gtar -cf test-gnu.tar $payload
+hexdump -C test-chibi.tar
 echo
 echo
 echo