Move file

diff --git a/basis/windows/ole32/ole32-tests.factor b/basis/windows/ole32/ole32-tests.factor
new file mode 100644 (file)
index 0000000..ecd2573
--- /dev/null
+++ b/basis/windows/ole32/ole32-tests.factor
@@ -0,0 +1,36 @@
+USING: kernel tools.test windows.ole32 alien.c-types ;
+IN: windows.ole32.tests
+
+[ t ] [
+    "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
+    "{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
+        
+little-endian?
+[ B{
+    HEX: 67 HEX: 45 HEX: 23 HEX: 01 HEX: ab HEX: 89 HEX: ef HEX: cd
+    HEX: 01 HEX: 23 HEX: 45 HEX: 67 HEX: 89 HEX: ab HEX: cd HEX: ef
+} ]
+[ B{
+    HEX: 01 HEX: 23 HEX: 45 HEX: 67 HEX: 89 HEX: ab HEX: cd HEX: ef
+    HEX: 01 HEX: 23 HEX: 45 HEX: 67 HEX: 89 HEX: ab HEX: cd HEX: ef
+} ] ?
+[ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid ]
+unit-test
+
+[ "{01234567-89ab-cdef-0123-456789abcdef}" ]
+[ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid guid>string ]
+unit-test

diff --git a/extra/windows/ole32/ole32-tests.factor b/extra/windows/ole32/ole32-tests.factor
deleted file mode 100644 (file)
index ecd2573..0000000
--- a/extra/windows/ole32/ole32-tests.factor
+++ /dev/null
@@ -1,36 +0,0 @@
-USING: kernel tools.test windows.ole32 alien.c-types ;
-IN: windows.ole32.tests
-
-[ t ] [
-    "{01234567-89ab-cdef-0123-456789abcdef}" string>guid
-    "{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
-        
-little-endian?
-[ B{
-    HEX: 67 HEX: 45 HEX: 23 HEX: 01 HEX: ab HEX: 89 HEX: ef HEX: cd
-    HEX: 01 HEX: 23 HEX: 45 HEX: 67 HEX: 89 HEX: ab HEX: cd HEX: ef
-} ]
-[ B{
-    HEX: 01 HEX: 23 HEX: 45 HEX: 67 HEX: 89 HEX: ab HEX: cd HEX: ef
-    HEX: 01 HEX: 23 HEX: 45 HEX: 67 HEX: 89 HEX: ab HEX: cd HEX: ef
-} ] ?
-[ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid ]
-unit-test
-
-[ "{01234567-89ab-cdef-0123-456789abcdef}" ]
-[ "{01234567-89ab-cdef-0123-456789abcdef}" string>guid guid>string ]
-unit-test