updated test

Author: totalspectrum

Test/Expect/exec13.txt

@@ -1,10 +1,12 @@
-x = 2
-x = 4
-x = 16
-x = 16
-x = 256
-x = 256
-x = 65536
-Original: test text
-Deleted: est text
-Inserted: best text
+bf test
+Hello World!
+x = 2
+x = 4
+x = 16
+x = 16
+x = 256
+x = 256
+x = 65536
+Original: test text 
+Deleted: est text  
+Inserted: best text 

Test/bftest01.b

@@ -0,0 +1,3 @@
+Hello world in Brainf*ck
+
+++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.+++++++..+++.>>.<-.<.+++.------.--------.>>+.>++.

Test/exec13.spin

@@ -18,6 +18,7 @@ OBJ
 #else
   ser: "spin/FullDuplexSerial"
 #endif
+  bf: "bftest01.b"
 
 PUB demo | x,y
 
@@ -27,6 +28,10 @@ PUB demo | x,y
   ser.start(31, 30, 0, 115200)
 #endif
 
+  send := @ser.tx
+  send("bf test", 13, 10)
+  bf.program()
+  send(13)
   x := 2
   cognew(Square(@X), @SqStack)
   repeat 7
@@ -42,13 +47,14 @@ PUB demo | x,y
   bytemove(@astr+1, @astr, 9)
   astr[0] := "b"
   ReportAstr(@"Inserted: ", @astr)
+
   PauseABit
   exit
 
 PUB ReportN(n)
-  ser.str(string("x = "))
+  send("x = ")
   ser.dec(n)
-  ser.str(string(13, 10))
+  send(13, 10)
 
 PUB ReportAstr(msg, s)
   ser.str(msg)