Fix conflicts

[factor.git] / basis / struct-arrays / struct-arrays-tests.factor

diff --git a/basis/struct-arrays/struct-arrays-tests.factor b/basis/struct-arrays/struct-arrays-tests.factor
index da9f306889a0d74748ad4671d69c70e5f7df6053..24caafa9faa3ed95de6fd3f6919fd0df9803db30 100755 (executable)
--- a/basis/struct-arrays/struct-arrays-tests.factor
+++ b/basis/struct-arrays/struct-arrays-tests.factor
@@ -1,12 +1,20 @@
 IN: struct-arrays.tests
 USING: classes.struct struct-arrays tools.test kernel math sequences
 alien.syntax alien.c-types destructors libc accessors sequences.private
-compiler.tree.debugger ;
+compiler.tree.debugger combinators.smart ;
 
 STRUCT: test-struct-array
     { x int }
     { y int } ;
 
+[ 1 ] [
+    1 struct-array{ test-struct-array } new-sequence length
+] unit-test
+
+[ V{ test-struct-array } ] [
+    [ [ test-struct-array <struct> ] struct-array{ test-struct-array } output>sequence first ] final-classes
+] unit-test
+
 : make-point ( x y -- struct )
     test-struct-array <struct-boa> ;