alien.data: fix unit test failure

db4
Slava Pestov 2010-06-11 15:38:57 -04:00
parent f950fca035
commit 4c4a86ee72
1 changed files with 41 additions and 35 deletions

View File

@ -1,6 +1,6 @@
USING: alien alien.c-types alien.data alien.syntax
classes.struct kernel sequences specialized-arrays
tools.test ;
specialized-arrays.private tools.test compiler.units vocabs ;
IN: alien.data.tests
STRUCT: foo { a int } { b void* } { c bool } ;
@ -33,3 +33,9 @@ SPECIALIZED-ARRAY: foo
S{ foo f 1 f f }
} [ first binary-zero? ] [ second binary-zero? ] [ third binary-zero? ] tri
] unit-test
[ ] [
[
foo specialized-array-vocab forget-vocab
] with-compilation-unit
] unit-test