steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler: add a unit test

db4
Slava Pestov 2009-09-27 20:36:19 -05:00
parent 59fbe85c9b
commit 999b22788e
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/compiler/tests/codegen.factor
View File

@ -461,3 +461,12 @@ TUPLE: myseq { underlying1 byte-array read-only } { underlying2 byte-array read-
[ 65537.0 ] [ [ 65537.0 ] [
[ 2.0 4 [ 2.0 fpow ] times 1.0 float+ ] compile-call [ 2.0 4 [ 2.0 fpow ] times 1.0 float+ ] compile-call
] unit-test ] unit-test
! ##box-displaced-alien is a def-is-use instruction
[ ALIEN: e39 ] [
[
f
100 [ 10 swap <displaced-alien> ] times
1 swap <displaced-alien>
] compile-call
] unit-test