From: adam <adam@megacz.com>
Date: Sun, 7 Sep 2008 03:09:26 +0000 (+0100)
Subject: add test for Video ship
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=870b576c4b39c96f10e1344c4a408a9b8f888b5a;p=fleet.git

add test for Video ship
---

diff --git a/ships/Video.ship b/ships/Video.ship
index 24f9423..82aac06 100644
--- a/ships/Video.ship
+++ b/ships/Video.ship
@@ -112,5 +112,35 @@ data  in:    inData
 
 == Constants ========================================================
 
+== Test ==============================================================
+
+// can't test much here; just make sure it accepts values
+
+#expect 0
+#expect 0
+#expect 0
+
+#ship debug : Debug
+#ship video : Video
+
+video.inX:
+  set word=0;
+  deliver;
+  send token to debug.in;
+video.inY:
+  set word=0;
+  deliver;
+  send token to debug.in;
+video.inData:
+  set word=0;
+  deliver;
+  send token to debug.in;
+
+debug.in:
+  set word=0;
+  set ilc=*;
+  recv token, deliver;
+
+
 == Contributors =========================================================
 Adam Megacz <megacz@cs.berkeley.edu>