windows.ole32: use sets in tests.

[factor.git] / basis / windows / ole32 / ole32-tests.factor

diff --git a/basis/windows/ole32/ole32-tests.factor b/basis/windows/ole32/ole32-tests.factor
index e7c92b599600b00e83e36b528c1f67ee9f5695eb..83314efce92d7c48f116309a3072d83a9a7090e0 100644 (file)
--- a/basis/windows/ole32/ole32-tests.factor
+++ b/basis/windows/ole32/ole32-tests.factor
@@ -1,6 +1,6 @@
-USING: kernel tools.test windows.ole32 alien.c-types
-classes.struct specialized-arrays windows.kernel32
-windows.com.syntax ;
+USING: alien.c-types classes.struct kernel math sequences
+sets specialized-arrays tools.test windows.com.syntax
+windows.kernel32 windows.ole32 ;
 SPECIALIZED-ARRAY: uchar
 IN: windows.ole32.tests
 
@@ -9,19 +9,19 @@ IN: windows.ole32.tests
     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
     guid=
 ] unit-test
-        
+
 [ f ] [
     "{76543210-89ab-cdef-0123-456789abcdef}" string>guid
     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
     guid=
 ] unit-test
-        
+
 [ f ] [
     "{01234567-89ab-cdef-0123-fedcba987654}" string>guid
     "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
     guid=
 ] unit-test
-        
+
 [
     GUID: 01234567-89ab-cdef-0123-456789abcdef}
 ] [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid ] unit-test
@@ -29,3 +29,5 @@ IN: windows.ole32.tests
 [ "{01234567-89ab-cdef-0123-456789abcdef}" ]
 [ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid guid>string ]
 unit-test
+
+{ 0 } [ 10 [ create-guid ] replicate duplicates length ] unit-test