From 8467036c3dd1535e0f65bf6396ac25c9656139f5 Mon Sep 17 00:00:00 2001
From: "Mike D. Lowis" <mike@mdlowis.com>
Date: Tue, 3 Jul 2012 13:56:36 -0400
Subject: [PATCH] checkpoint commit

---
 source/buf.scm     | 21 +++++++++++++++++++++
 tests/main.scm     |  2 +-
 tests/test_foo.scm |  4 ++++
 3 files changed, 26 insertions(+), 1 deletion(-)

diff --git a/source/buf.scm b/source/buf.scm
index 4e62db4..ce17b55 100644
--- 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 db4f9d2..20c55c6 100644
--- 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 84ae812..1726cdc 100644
--- 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!")
 
-- 
2.52.0