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

specialized-arrays: fix tests for >c-array change.

db4
John Benediktsson 2011-09-26 16:55:35 -07:00
parent 3a703d797d
commit f979adcb24
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/specialized-arrays/specialized-arrays-tests.factor
View File

@ -75,7 +75,7 @@ SPECIALIZED-ARRAY: test-struct
[ 5/4 ] [
[
2 malloc-test-struct-array
2 \ test-struct malloc-array
dup &free drop
1 2 make-point over set-first
3 4 make-point over set-second
@ -87,7 +87,7 @@ SPECIALIZED-ARRAY: test-struct
[ ] [
[
10 malloc-test-struct-array
10 \ test-struct malloc-array
&free drop
] with-destructors
] unit-test
@ -175,7 +175,7 @@ SPECIALIZED-ARRAY: struct-resize-test
: struct-resize-test-usage ( seq -- seq )
[ struct-resize-test <struct> swap >>x ] map
>struct-resize-test-array
\ struct-resize-test >c-array
[ x>> ] { } map-as ;
[ { 10 20 30 } ] [ { 10 20 30 } struct-resize-test-usage ] unit-test