tests.vf

require lib/util.vf
create tests

"  got " swap " assertion failed: expected " swap
: assert=
	2dup = if 2drop return then
	lit [ , ] lit [ , ] emits .
	lit [ , ] lit [ , ] emits .
	abort ;
"  got " swap " assertion failed: expected str " swap
: assertstr=
	2dup 5 nth 5 nth str=
	if 2drop 2drop return then
	lit [ , ] lit [ , ] emits emits
	lit [ , ] lit [ , ] emits emits
	abort ;
" test: " swap
: t lit [ , ] lit [ , ] emits word emits nl ;

t jump
: h $68 ;
' h jump $68 assert=

t rot
9 1 2 3 rot
1 assert=
3 assert=
2 assert=
9 assert=

t rot>
9 1 2 3 rot>
2 assert=
1 assert=
3 assert=
9 assert=

t over
1 2 3 over
2 assert=
3 assert=
2 assert=
1 assert=

t 2over
1 2 3 4 2over
2 assert=
4 assert=
3 assert=
2 assert=
1 assert=

t drop
1 2 3 drop
2 assert=
1 assert=

t 2drop
1 2 3 4 2drop
2 assert=
1 assert=

t nip
1 2 3 nip
3 assert=
1 assert=

t dup
1 2 dup
2 assert=
2 assert=
1 assert=

t ?dup
1 0 ?dup
0 assert=
1 assert=
5 6 ?dup
6 assert=
6 assert=
5 assert=

t 2dup
1 2 3 2dup
3 assert=
2 assert=
3 assert=
2 assert=
1 assert=

t swap
1 2 3 swap
2 assert=
3 assert=
1 assert=

t 2swap
1 2 3 4 5 2swap
3 assert=
2 assert=
5 assert=
4 assert=
1 assert=

t nth
1 6 5 3 2 nth
6 assert=
3 assert=
5 assert=
6 assert=
1 assert=

t lshift
5 2 lshift
20 assert=
1 30 lshift
1073741824 assert=

t rshift
21 2 rshift
5 assert=
1073741824 30 rshift
1 assert=

t and
5 6 and
4 assert=

t or
5 6 or
7 assert=

t xor
5 6 xor
3 assert=

t not
69 not 0 assert=
0 not 1 assert=

t ~
1234 ~
$fffffb2d assert=

t +
600 21 + 621 assert=

t -^
90 100 -^
10 assert=

t 1+
5 1+ 6 assert=

t 1-
5 1- 4 assert=

t 4+
5 4+ 9 assert=

t 4-
5 4- 1 assert=

t -
926 305 -
621 assert=

t *
12345 6789 *
83810205 assert=
12345 $ffffe57b *
$fb012863 assert=

t /mod
1234 123 /mod
10 assert=
4 assert=
1 31 lshift 2 /mod
1 30 lshift assert=
0 assert=

t neg
1 neg
$ffffffff assert=

t ?neg
1 ?neg
0 assert=
$ffffffff ?neg
1 assert=

t abs
1 abs
1 assert=
$ffffffff abs
1 assert=

t word
word meow
4 assert=
$68 swap !

t "
' here @
" yip yap yop"
2dup + dup c@
0 assert=
1- c@
$70 assert=
11 assert=
assert=

t c@_c!
69 ' here @ c!
' here @ c@
69 assert=

t @_!
99999 ' here @ !
' here @ @
99999 assert=

t <
6 6 < 0 assert=
6 5 < 0 assert=
5 6 < 1 assert=

t >
6 6 > 0 assert=
6 5 > 1 assert=
5 6 > 0 assert=

t <=
6 6 <= 1 assert=
6 5 <= 0 assert=
5 6 <= 1 assert=

t >=
6 6 >= 1 assert=
6 5 >= 1 assert=
5 6 >= 0 assert=

t mem=
' here @ 1 c, 2 c, 3 c, 4 c,
' here @ 1 c, 2 c, 3 c, 5 c,
2dup 3 mem=
1 assert=
4 mem=
0 assert=

t memcpy
' here @ 1 c, 2 c, 3 c, 5 c,
' here @ 1 c, 2 c, 3 c, 4 c,
' here @ 6 c, 7 c, 8 c, 5 c,
2dup 3 mem=
0 assert=
2dup 3 swap memcpy
2dup 3 mem=
1 assert=
swap drop 4 mem=
1 assert=

t str=
" yip" " yip" 1+ str=
0 assert=
" yip" " yap" str=
0 assert=
" yip" " yip" str=
1 assert=

t dictname
' dictname dictname
" dictname" assertstr=

t dictname_long
create aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
' latest @ dictname 0 assert= drop
create aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
' latest @ dictname 63 assert= drop

t dictprev
' assertstr= dictprev
' assert= assert=
' hexchr dictprev
0 assert=

t :code
:code number $53 c, $bb c, $a4 c, 1 c, 0 c, 0 c, ;code
number 420 assert=

t create
: meow ; 1 dictor
' meow dictflags 1 assert=
create aaaa
' aaaa dictflags 1 assert=

t immediate
: insert42 lit lit , 42 , ; immediate
: insert24 lit lit , 24 , ; 2 dictor
: getnums insert42 insert24 ;
getnums 24 assert= 42 assert=

\ todo: find a way to test not-already-loaded require
\ that still works when the test is run multiple times
t require_loaded
' loaded @
require lib/util.vf
' loaded @
swap assert=

t manual
" you should see: " swap
: see lit [ , ] lit [ , ] emits word emits nl ;
see h
$68 emit nl
see cafef00d
$cafef00d .x nl
see 0000e926
$0000e926 .S drop
see 2147483647
1 31 lshift 1- . nl
see -2147483648
1 31 lshift . nl

t forget
forget tests