a

1 files changed, 22 insertions, 0 deletions

diff --git a/tests/programs/bstr_io.zc b/tests/programs/bstr_io.zc
new file mode 100644
index 0000000..9cf7ca9
--- /dev/null
+++ b/tests/programs/bstr_io.zc
@@ -0,0 +1,22 @@
+fn main() {
+	let path = b"/tmp/zc-bstr.txt";
+	let msg = b"byte-io";
+	let fd = bopen(path, 1);
+	let n = bwrite(fd, msg, len_s(msg));
+	syscall(SYS_CLOSE, fd, 0, 0);
+	fd = bopen(path, 0);
+	let buf = new_s(7);
+	let g = bread(fd, buf, 7);
+	syscall(SYS_CLOSE, fd, 0, 0);
+	let name = b"ZC_BSTR";
+	let envb = new_s(16);
+	let k = bgetenv(name, envb, 16);
+	put_s(buf); put_c(32);
+	put_n(n); put_c(32);
+	put_n(g); put_c(32);
+	put_n(buf == msg); put_c(32);
+	put_n(k); put_c(32);
+	put_n(at_s(envb, 0)); put_c(32);
+	put_n(at_s(envb, 5)); put_c(10);
+	return 0;
+}