add test for Video ship

[fleet.git] / ships / Video.ship

diff --git a/ships/Video.ship b/ships/Video.ship
index 24f9423..82aac06 100644 (file)
--- 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>