USING: arrays byte-arrays kernel kernel.private math memory
namespaces sequences tools.test math.private quotations
continuations prettyprint io.streams.string debugger assocs
-sequences.private accessors locals.backend grouping words ;
+sequences.private accessors locals.backend grouping words
+system ;
IN: kernel.tests
[ 0 ] [ f size ] unit-test
: overflow-c ( -- ) overflow-c overflow-c ;
-[ overflow-c ] [ { "kernel-error" 14 f f } = ] must-fail-with
+os [ windows? ] [ openbsd? ] bi or [
+ [ overflow-c ] [ { "kernel-error" 14 f f } = ] must-fail-with
+] unless
[ -7 <byte-array> ] must-fail