From: Mike D. Lowis <mike@mdlowis.com>
Date: Tue, 3 Jul 2012 17:56:36 +0000 (-0400)
Subject: checkpoint commit
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=8467036c3dd1535e0f65bf6396ac25c9656139f5;p=archive%2Fdlang-scm.git

checkpoint commit
---

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!")