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