checkpoint commit

diff --git a/source/buf.scm b/source/buf.scm
index 4e62db47fba970a9e2b97db2d74084b298e9898b..ce17b551eb3d5fdcef21a26a1054281354d1a92e 100644 (file)
--- a/source/buf.scm
+++ b/source/buf.scm
@@ -19,3 +19,24 @@
        (list?     (buf-marks obj))
        (vector?   (buf-data obj))))
 
+(define (buf-marked? b)
+  (if (buf? b) '()))
+
+(define (buf-mark b)
+  (if (buf? b) '()))
+
+(define (buf-release b)
+  (if (buf? b) '()))
+
+(define (buf-sync b n)
+  (if (buf? b) '()))
+
+(define (buf-fill b n)
+  (if (buf? b) '()))
+
+(define (buf-lookahead b n)
+  (if (buf? b) '()))
+
+(define (buf-consume b n)
+  (if (buf? b) '()))
+

diff --git a/tests/main.scm b/tests/main.scm
index db4f9d23f003c2a3f71244ed2a55c668559b0c29..20c55c6f9c422f537cc34eb0bfbf11d30fa46529 100644 (file)
--- a/tests/main.scm
+++ b/tests/main.scm
@@ -2,5 +2,5 @@
   (uses library)
   (uses test_foo))
 
-(print "Hello, world?")
+(run-unit-tests)
 

diff --git a/tests/test_foo.scm b/tests/test_foo.scm
index 84ae812b0ed2256988c4b22b8f3253133ab6ba24..1726cdce0d6968f78f0ba3ddaff866f60fb95232 100644 (file)
--- a/tests/test_foo.scm
+++ b/tests/test_foo.scm
@@ -1,4 +1,8 @@
 (declare (unit test_foo))
 
+(test-suite "Foo unit tests"
+  (test "Foo does cool stuff"
+    (check-equal 42 (foo 1 2)) ))
+
 (print "Hello, world!")