break, continue

4 files changed, 41 insertions, 11 deletions

diff --git a/tests/control_flow.toc b/tests/control_flow.toc
new file mode 100644
index 0000000..923a40b
--- /dev/null
+++ b/tests/control_flow.toc
@@ -0,0 +1,31 @@
+#include "io.toc", io;
+
+f ::= fn() int {
+	total := 0;
+	for i := 1..10 {
+		if i % 2 == 0 { continue; }
+		total += i;
+		if i == 7 { break; }
+	}
+	i := 0;
+	while {
+		i += 1;
+		total += i;
+		if i == 10 {
+			break;
+		}
+	}
+	while i < 100 {
+		i += 1;
+		if i == 100 {
+			return total;
+		}
+	}
+	0
+}
+
+main ::= fn() {
+	x ::= f();
+	io.puti(x);
+	io.puti(f());
+}
\ No newline at end of file
diff --git a/tests/control_flow_expected b/tests/control_flow_expected
new file mode 100644
index 0000000..15e58a7
--- /dev/null
+++ b/tests/control_flow_expected
@@ -0,0 +1,2 @@
+71
+71
diff --git a/tests/io.toc b/tests/io.toc
index 9e94147..d3ce467 100644
--- a/tests/io.toc
+++ b/tests/io.toc
@@ -1,19 +1,15 @@
-
 putchar ::= #foreign("putchar", "libc.so.6") fn(#C int) #C int;
 toc_putchar ::= fn(x: char) {
 	putchar(x as #C int);
-};
-
-fwrite ::= #foreign("fwrite", "libc.so.6") fn(#C &"void", #C size_t, #C size_t, #C &"void") #C size_t;
+}
 
-stdout_fwrite ::= fn(data: &u8, size: u64, nmemb: u64) {
-	fwrite(data, size as #C size_t, nmemb as #C size_t, #builtin("stdout"));
-};
 
 puts ::= fn(x: []char) {
-	stdout_fwrite(&x[0] as &u8, 1, x.len as u64);
+	for c := x {
+		toc_putchar(c);
+	}
 	toc_putchar('\n');
-};
+}
 
 puti ::= fn(x: int) {
 	if x < 0 {
@@ -36,4 +32,4 @@ puti ::= fn(x: int) {
 		}
 	}
 	toc_putchar('\n');
-};
+}
diff --git a/tests/test.sh b/tests/test.sh
index d30de7c..4016151 100755
--- a/tests/test.sh
+++ b/tests/test.sh
@@ -1,6 +1,7 @@
 #!/bin/bash
 
 tests='bf
+control_flow
 arr
 arr2
 arr3
@@ -26,7 +27,7 @@ compile_c() {
 	elif [ "$CC" = "tcc" ]; then
 		EXTRA_FLAGS="-w"
 	fi
-	$CC $CFLAGS $EXTRA_FLAGS -o a.out out.c || exit 1
+	$CC $CFLAGS $EXTRA_FLAGS -Werror -o a.out out.c || exit 1
 }
 
 do_tests() {