From ca03896d7405f937a21e89fef63c06ac84c36535 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 15 Feb 2018 09:20:01 -0800 Subject: [PATCH] more test IN: cleanup. --- basis/calendar/format/format-tests.factor | 19 +++++++++++++----- basis/checksums/crc16/crc16-tests.factor | 1 - .../checksums/internet/internet-tests.factor | 8 +++----- basis/checksums/ripemd/ripemd-tests.factor | 1 - basis/checksums/sha/sha-tests.factor | 20 ++++++++----------- basis/fonts/fonts-tests.factor | 4 ---- basis/http/client/client-tests.factor | 2 +- basis/http/server/server-tests.factor | 5 ++--- basis/http/server/static/static-tests.factor | 1 - basis/inspector/inspector-tests.factor | 5 ++--- basis/interpolate/interpolate-tests.factor | 1 - basis/io/crlf/crlf-tests.factor | 1 - .../hierarchy/hierarchy-tests.factor | 1 - basis/io/encodings/8-bit/8-bit-tests.factor | 1 - .../io/encodings/gb18030/gb18030-tests.factor | 1 - basis/io/encodings/strict/strict-tests.factor | 1 - basis/io/encodings/string/string-tests.factor | 1 - basis/io/encodings/utf32/utf32-tests.factor | 1 - basis/io/encodings/utf7/utf7-tests.factor | 1 - basis/io/files/info/info-tests.factor | 1 - .../files/info/unix/linux/linux-tests.factor | 1 - .../files/info/windows/windows-tests.factor | 1 - basis/io/files/unique/unique-tests.factor | 1 - basis/io/files/windows/windows-tests.factor | 1 - basis/io/pipes/pipes-tests.factor | 10 ++++------ basis/io/pipes/unix/pipes-tests.factor | 1 - basis/io/sockets/secure/secure-tests.factor | 5 ++--- .../standard-paths/macosx/macosx-tests.factor | 1 - .../standard-paths-tests.factor | 4 ---- basis/ip-parser/ip-parser-tests.factor | 4 +--- .../json/prettyprint/prettyprint-tests.factor | 1 - basis/json/reader/reader-tests.factor | 1 - basis/lcs/diff2html/diff2html-tests.factor | 1 - basis/libc/libc-tests.factor | 1 - .../linked-assocs/linked-assocs-tests.factor | 1 - .../math/primes/erato/fast/fast-tests.factor | 1 - .../lucas-lehmer/lucas-lehmer-tests.factor | 1 - .../miller-rabin/miller-rabin-tests.factor | 1 - basis/math/primes/primes-tests.factor | 1 - basis/math/primes/safe/safe-tests.factor | 1 - basis/math/ranges/ranges-tests.factor | 1 - basis/math/statistics/statistics-tests.factor | 1 - basis/mime/types/types-tests.factor | 1 - basis/models/arrow/arrow-tests.factor | 1 - basis/models/arrow/smart/smart-tests.factor | 1 - basis/models/mapping/mapping-tests.factor | 1 - basis/nmake/nmake-tests.factor | 1 - basis/peg/debugger/debugger-tests.factor | 1 - .../porter-stemmer-tests.factor | 1 - basis/present/present-tests.factor | 1 - basis/quoting/quoting-tests.factor | 1 - basis/sorting/human/human-tests.factor | 1 - .../sorting/insertion/insertion-tests.factor | 5 +++-- basis/soundex/soundex-tests.factor | 1 - .../monotonic/monotonic-tests.factor | 4 ++-- basis/strings/tables/tables-tests.factor | 1 - .../suffix-arrays/suffix-arrays-tests.factor | 1 - basis/system-info/linux/linux-tests.factor | 1 - .../system-info/windows/windows-tests.factor | 1 - basis/timers/timers-tests.factor | 1 - .../baseline-alignment-tests.factor | 1 - basis/ui/gadgets/borders/borders-tests.factor | 1 - basis/ui/gadgets/buttons/buttons-tests.factor | 1 - basis/ui/gadgets/canvas/canvas-tests.factor | 1 - basis/ui/gadgets/debug/debug-tests.factor | 4 ---- basis/ui/gadgets/editors/editors-tests.factor | 1 - basis/ui/gadgets/frames/frames-tests.factor | 1 - basis/ui/gadgets/glass/glass-tests.factor | 1 - basis/ui/gadgets/labeled/labeled-tests.factor | 1 - basis/ui/gadgets/labels/labels-tests.factor | 1 - .../line-support/line-support-tests.factor | 1 - basis/ui/gadgets/packs/packs-tests.factor | 1 - .../presentations/presentations-tests.factor | 1 - .../gadgets/scrollers/scrollers-tests.factor | 1 - .../search-tables/search-tables-tests.factor | 1 - basis/ui/gadgets/tracks/tracks-tests.factor | 1 - basis/ui/images/images-tests.factor | 4 ---- basis/ui/pens/caching/caching-tests.factor | 1 - basis/ui/pens/gradient/gradient-tests.factor | 1 - basis/ui/pens/image/image-tests.factor | 4 ---- basis/ui/pens/pens-tests.factor | 4 ---- basis/ui/pens/polygon/polygon-tests.factor | 4 ---- basis/ui/pens/solid/solid-tests.factor | 4 ---- basis/ui/pens/tile/tile-tests.factor | 4 ---- basis/ui/render/render-tests.factor | 3 --- basis/ui/text/text-tests.factor | 1 - basis/ui/tools/browser/browser-tests.factor | 1 - basis/ui/tools/debugger/debugger-tests.factor | 2 -- .../ui/tools/inspector/inspector-tests.factor | 1 - .../listener/history/history-tests.factor | 2 -- .../tools/listener/popups/popups-tests.factor | 4 ---- basis/ui/tools/walker/walker-tests.factor | 2 -- basis/ui/ui-tests.factor | 2 -- .../unrolled-lists-tests.factor | 1 - basis/urls/encoding/encoding-tests.factor | 1 - basis/uuid/uuid-tests.factor | 2 -- basis/webbrowser/webbrowser-tests.factor | 3 +-- basis/wrap/strings/strings-tests.factor | 1 - basis/wrap/words/words-tests.factor | 1 - basis/xml/data/data-tests.factor | 3 +-- basis/xml/entities/html/html-tests.factor | 4 ---- basis/xml/traversal/traversal-tests.factor | 1 - basis/xmode/catalog/catalog-tests.factor | 1 - basis/xmode/code2html/code2html-tests.factor | 6 ++---- .../keyword-map/keyword-map-tests.factor | 1 - basis/xmode/marker/marker-tests.factor | 1 - basis/xmode/rules/rules-tests.factor | 1 - core/alien/strings/strings-tests.factor | 1 - core/effects/effects-tests.factor | 1 - core/growable/growable-tests.factor | 1 - core/io/backend/backend-tests.factor | 1 - .../byte-array/byte-array-tests.factor | 1 - core/io/streams/memory/memory-tests.factor | 1 - core/math/integers/integers-tests.factor | 1 - core/math/parser/parser-tests.factor | 6 +++--- core/parser/notes/notes-tests.factor | 1 - core/source-files/errors/errors-tests.factor | 1 - 117 files changed, 49 insertions(+), 198 deletions(-) delete mode 100644 basis/fonts/fonts-tests.factor delete mode 100644 basis/io/standard-paths/standard-paths-tests.factor delete mode 100644 basis/ui/gadgets/debug/debug-tests.factor delete mode 100644 basis/ui/images/images-tests.factor delete mode 100644 basis/ui/pens/image/image-tests.factor delete mode 100644 basis/ui/pens/pens-tests.factor delete mode 100644 basis/ui/pens/polygon/polygon-tests.factor delete mode 100644 basis/ui/pens/solid/solid-tests.factor delete mode 100644 basis/ui/pens/tile/tile-tests.factor delete mode 100644 basis/ui/render/render-tests.factor delete mode 100644 basis/ui/tools/listener/popups/popups-tests.factor delete mode 100644 basis/ui/tools/walker/walker-tests.factor delete mode 100644 basis/ui/ui-tests.factor delete mode 100644 basis/xml/entities/html/html-tests.factor diff --git a/basis/calendar/format/format-tests.factor b/basis/calendar/format/format-tests.factor index 349a493e4a..ba74698d99 100644 --- a/basis/calendar/format/format-tests.factor +++ b/basis/calendar/format/format-tests.factor @@ -1,14 +1,23 @@ -USING: accessors calendar calendar.format io io.streams.string -kernel math.order sequences tools.test ; +USING: accessors calendar calendar.format sequences tools.test ; IN: calendar.format.tests -{ } [ now timestamp>rfc3339 drop ] unit-test -{ } [ now timestamp>rfc822 drop ] unit-test +CONSTANT: testtime T{ timestamp + { year 2018 } + { month 2 } + { day 15 } + { hour 8 } + { minute 51 } + { second 44+423303/500000 } + { gmt-offset T{ duration { hour -8 } } } +} + +{ "2018-02-15T08:51:44.846606-08:00" } [ testtime timestamp>rfc3339 ] unit-test + +{ "Thu, 15 Feb 2018 08:51:44 -0800" } [ testtime timestamp>rfc822 ] unit-test { } [ { 2008 2009 } [ year. ] each ] unit-test - { "03:01:59" } [ 3 hours 1 >>minute 59 >>second duration>hms ] unit-test diff --git a/basis/checksums/crc16/crc16-tests.factor b/basis/checksums/crc16/crc16-tests.factor index 6ee242ee75..9927b809e0 100644 --- a/basis/checksums/crc16/crc16-tests.factor +++ b/basis/checksums/crc16/crc16-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2016 Alexander Ilin. ! See http://factorcode.org/license.txt for BSD license. USING: tools.test checksums checksums.crc16 ; -IN: checksums.crc16.tests { B{ 0xb8 0x80 } } [ B{ 0x01 0x04 0x02 0xFF 0xFF } crc16 checksum-bytes diff --git a/basis/checksums/internet/internet-tests.factor b/basis/checksums/internet/internet-tests.factor index 11334905b0..060d9a18bf 100644 --- a/basis/checksums/internet/internet-tests.factor +++ b/basis/checksums/internet/internet-tests.factor @@ -1,19 +1,17 @@ ! Copyright (C) 2010 John Benediktsson ! See http://factorcode.org/license.txt for BSD license USING: checksums checksums.internet tools.test ; -IN: checksums.internet.tests { B{ 255 255 } } [ { } internet checksum-bytes ] unit-test { B{ 254 255 } } [ { 1 } internet checksum-bytes ] unit-test { B{ 254 253 } } [ { 1 2 } internet checksum-bytes ] unit-test { B{ 251 253 } } [ { 1 2 3 } internet checksum-bytes ] unit-test -: test-data ( -- bytes ) +{ B{ 34 13 } } [ B{ 0x00 0x01 0xf2 0x03 0xf4 0xf5 0xf6 0xf7 - } ; - -{ B{ 34 13 } } [ test-data internet checksum-bytes ] unit-test + } internet checksum-bytes +] unit-test diff --git a/basis/checksums/ripemd/ripemd-tests.factor b/basis/checksums/ripemd/ripemd-tests.factor index 31246f27fb..69898c96e8 100644 --- a/basis/checksums/ripemd/ripemd-tests.factor +++ b/basis/checksums/ripemd/ripemd-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2017 Jon Harper. ! See http://factorcode.org/license.txt for BSD license. USING: checksums checksums.ripemd strings tools.test ; -IN: checksums.ripemd.tests { B{ 0x9c 0x11 0x85 0xa5 0xc5 diff --git a/basis/checksums/sha/sha-tests.factor b/basis/checksums/sha/sha-tests.factor index 9aa5b89b0c..c0e59bf2a2 100644 --- a/basis/checksums/sha/sha-tests.factor +++ b/basis/checksums/sha/sha-tests.factor @@ -1,10 +1,6 @@ USING: arrays checksums checksums.common checksums.sha checksums.sha.private io.encodings.binary io.streams.byte-array kernel math.parser sequences tools.test random ; -IN: checksums.sha.tests - -: test-checksum ( text identifier -- checksum ) - checksum-bytes bytes>hex-string ; { "a9993e364706816aba3e25717850c26c9cd0d89d" } [ "abc" sha1 checksum-bytes bytes>hex-string ] unit-test { "84983e441c3bd26ebaae4aa1f95129e5e54670f1" } [ "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq" sha1 checksum-bytes bytes>hex-string ] unit-test @@ -16,36 +12,36 @@ IN: checksums.sha.tests { "75388b16512776cc5dba5da1fd890150b0c6455cb4f58b1952522525" } [ "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq" - sha-224 test-checksum + sha-224 checksum-bytes bytes>hex-string ] unit-test { "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" } -[ "" sha-256 test-checksum ] unit-test +[ "" sha-256 checksum-bytes bytes>hex-string ] unit-test { "ba7816bf8f01cfea414140de5dae2223b00361a396177a9cb410ff61f20015ad" } -[ "abc" sha-256 test-checksum ] unit-test +[ "abc" sha-256 checksum-bytes bytes>hex-string ] unit-test { "f7846f55cf23e14eebeab5b4e1550cad5b509e3348fbc4efa3a1413d393cb650" } -[ "message digest" sha-256 test-checksum ] unit-test +[ "message digest" sha-256 checksum-bytes bytes>hex-string ] unit-test { "71c480df93d6ae2f1efad1447c66c9525e316218cf51fc8d9ed832f2daf18b73" } -[ "abcdefghijklmnopqrstuvwxyz" sha-256 test-checksum ] unit-test +[ "abcdefghijklmnopqrstuvwxyz" sha-256 checksum-bytes bytes>hex-string ] unit-test { "db4bfcbd4da0cd85a60c3c37d3fbd8805c77f15fc6b1fdfe614ee0a7c8fdb4c0" } [ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" - sha-256 test-checksum + sha-256 checksum-bytes bytes>hex-string ] unit-test { "f371bc4a311f2b009eef952dd83ca80e2b60026c8e935592d0f9c308453c813e" } [ "12345678901234567890123456789012345678901234567890123456789012345678901234567890" - sha-256 test-checksum + sha-256 checksum-bytes bytes>hex-string ] unit-test ! [ "8e959b75dae313da8cf4f72814fc143f8f7779c6eb9f7fa17299aeadb6889018501d289e4900f7e4331b99dec4b5433ac7d329eeb6dd26545e96e55b874be909" ] -! [ "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmnoijklmnopjklmnopqklmnopqrlmnopqrsmnopqrstnopqrstu" sha-512 test-checksum ] unit-test +! [ "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmnoijklmnopjklmnopqklmnopqrlmnopqrsmnopqrstnopqrstu" sha-512 checksum-bytes bytes>hex-string ] unit-test { t diff --git a/basis/fonts/fonts-tests.factor b/basis/fonts/fonts-tests.factor deleted file mode 100644 index 25856e0cd8..0000000000 --- a/basis/fonts/fonts-tests.factor +++ /dev/null @@ -1,4 +0,0 @@ -! Copyright (C) 2009 Slava Pestov. -! See http://factorcode.org/license.txt for BSD license. -USING: tools.test fonts ; -IN: fonts.tests diff --git a/basis/http/client/client-tests.factor b/basis/http/client/client-tests.factor index 651770acc8..c94a85136b 100644 --- a/basis/http/client/client-tests.factor +++ b/basis/http/client/client-tests.factor @@ -1,4 +1,4 @@ -USING: accessors io.sockets.secure http.client http.client.private http +USING: accessors http http.client http.client.private io.streams.string kernel namespaces sequences tools.test urls ; IN: http.client.tests diff --git a/basis/http/server/server-tests.factor b/basis/http/server/server-tests.factor index bc3f5e3f0d..167eb7f127 100644 --- a/basis/http/server/server-tests.factor +++ b/basis/http/server/server-tests.factor @@ -1,7 +1,6 @@ USING: accessors assocs continuations http http.server -http.server.requests io.encodings.utf8 io.encodings.binary io.streams.string -kernel math peg sequences tools.test urls ; -IN: http.server.tests +http.server.requests io.encodings.utf8 io.encodings.binary +io.streams.string kernel math peg sequences tools.test urls ; { t } [ [ \ + first ] [ <500> ] recover response? ] unit-test diff --git a/basis/http/server/static/static-tests.factor b/basis/http/server/static/static-tests.factor index 0df3ca8501..95fa775697 100644 --- a/basis/http/server/static/static-tests.factor +++ b/basis/http/server/static/static-tests.factor @@ -1,4 +1,3 @@ USING: http.server.static tools.test xml.writer ; -IN: http.server.static.tests { } [ "resource:basis" directory>html write-xml ] unit-test diff --git a/basis/inspector/inspector-tests.factor b/basis/inspector/inspector-tests.factor index cc3532e214..f65e3f457f 100644 --- a/basis/inspector/inspector-tests.factor +++ b/basis/inspector/inspector-tests.factor @@ -1,6 +1,5 @@ -USING: kernel tools.test math namespaces prettyprint -sequences inspector io.streams.string ; -IN: inspector.tests +USING: kernel tools.test math namespaces prettyprint sequences +inspector io.streams.string ; [ 1 2 3 ] describe f describe diff --git a/basis/interpolate/interpolate-tests.factor b/basis/interpolate/interpolate-tests.factor index b5a44064f8..cb1f3079fe 100644 --- a/basis/interpolate/interpolate-tests.factor +++ b/basis/interpolate/interpolate-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: interpolate io.streams.string namespaces tools.test locals ; -IN: interpolate.tests { "A B" } [ "A" "B" "${1} ${0}" interpolate>string ] unit-test { "B A" } [ "A" "B" "${0} ${1}" interpolate>string ] unit-test diff --git a/basis/io/crlf/crlf-tests.factor b/basis/io/crlf/crlf-tests.factor index 2326f36c2b..c366f35242 100644 --- a/basis/io/crlf/crlf-tests.factor +++ b/basis/io/crlf/crlf-tests.factor @@ -1,4 +1,3 @@ -IN: io.crlf.tests USING: io.crlf tools.test io.streams.string io ; { "Hello, world." } [ "Hello, world." [ read-crlf ] with-string-reader ] unit-test diff --git a/basis/io/directories/hierarchy/hierarchy-tests.factor b/basis/io/directories/hierarchy/hierarchy-tests.factor index 0bfc52da2a..31577315c2 100644 --- a/basis/io/directories/hierarchy/hierarchy-tests.factor +++ b/basis/io/directories/hierarchy/hierarchy-tests.factor @@ -1,6 +1,5 @@ USING: io.directories io.directories.hierarchy kernel sequences tools.test ; -IN: io.directories.hierarchy.tests { { "classes/tuple/tuple.factor" } } [ "resource:core" [ diff --git a/basis/io/encodings/8-bit/8-bit-tests.factor b/basis/io/encodings/8-bit/8-bit-tests.factor index 97823f30d9..84d5da8430 100644 --- a/basis/io/encodings/8-bit/8-bit-tests.factor +++ b/basis/io/encodings/8-bit/8-bit-tests.factor @@ -1,7 +1,6 @@ USING: io.encodings.string io.encodings.8-bit io.encodings.8-bit.private tools.test strings arrays io.encodings.8-bit.latin1 io.encodings.8-bit.windows-1252 ; -IN: io.encodings.8-bit.tests { B{ CHAR: f CHAR: o CHAR: o } } [ "foo" latin1 encode ] unit-test [ { 256 } >string latin1 encode ] must-fail diff --git a/basis/io/encodings/gb18030/gb18030-tests.factor b/basis/io/encodings/gb18030/gb18030-tests.factor index e46fd0e267..c341742a33 100644 --- a/basis/io/encodings/gb18030/gb18030-tests.factor +++ b/basis/io/encodings/gb18030/gb18030-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2009 Daniel Ehrenberg ! See http://factorcode.org/license.txt for BSD license. USING: io.encodings.gb18030 io.encodings.string strings tools.test arrays ; -IN: io.encodings.gb18030.tests { "hello" } [ "hello" gb18030 encode >string ] unit-test { "hello" } [ "hello" gb18030 decode ] unit-test diff --git a/basis/io/encodings/strict/strict-tests.factor b/basis/io/encodings/strict/strict-tests.factor index ba6d93aa26..bf5377b1c1 100644 --- a/basis/io/encodings/strict/strict-tests.factor +++ b/basis/io/encodings/strict/strict-tests.factor @@ -1,6 +1,5 @@ USING: io.encodings.strict io.encodings.ascii tools.test arrays io.encodings.string ; -IN: io.encodings.strict.tests { { 0xfffd } } [ { 128 } ascii decode >array ] unit-test [ { 128 } ascii strict decode ] must-fail diff --git a/basis/io/encodings/string/string-tests.factor b/basis/io/encodings/string/string-tests.factor index 2688e56fa1..5c4c6a5adc 100644 --- a/basis/io/encodings/string/string-tests.factor +++ b/basis/io/encodings/string/string-tests.factor @@ -2,7 +2,6 @@ ! See http://factorcode.org/license.txt for BSD license. USING: strings io.encodings.utf8 io.encodings.utf16 io.encodings.string tools.test io.encodings.binary ; -IN: io.encodings.string.tests { "hello" } [ "hello" utf8 decode ] unit-test { B{ 0 1 22 255 } } [ B{ 0 1 22 255 } binary decode ] unit-test diff --git a/basis/io/encodings/utf32/utf32-tests.factor b/basis/io/encodings/utf32/utf32-tests.factor index d1edee5417..9f36371e4c 100644 --- a/basis/io/encodings/utf32/utf32-tests.factor +++ b/basis/io/encodings/utf32/utf32-tests.factor @@ -3,7 +3,6 @@ USING: kernel tools.test io.encodings.utf32 arrays sbufs io.streams.byte-array sequences io.encodings io strings io.encodings.string alien.c-types alien.strings accessors classes ; -IN: io.encodings.utf32.tests { { CHAR: x } } [ B{ 0 0 0 CHAR: x } utf32be decode >array ] unit-test { { 0x1D11E } } [ B{ 0 1 0xD1 0x1E } utf32be decode >array ] unit-test diff --git a/basis/io/encodings/utf7/utf7-tests.factor b/basis/io/encodings/utf7/utf7-tests.factor index f4d431b69b..6394d5ebe8 100644 --- a/basis/io/encodings/utf7/utf7-tests.factor +++ b/basis/io/encodings/utf7/utf7-tests.factor @@ -1,6 +1,5 @@ USING: io.encodings.string io.encodings.utf7 kernel sequences strings tools.test ; -IN: io.encodings.utf7.tests { { diff --git a/basis/io/files/info/info-tests.factor b/basis/io/files/info/info-tests.factor index a2fbf2880a..0ff0d05780 100644 --- a/basis/io/files/info/info-tests.factor +++ b/basis/io/files/info/info-tests.factor @@ -1,7 +1,6 @@ USING: io.files.info io.encodings.utf8 io.files io.directories kernel io.pathnames accessors tools.test sequences io.files.temp ; -IN: io.files.info.tests { "hi41" } [ [ diff --git a/basis/io/files/info/unix/linux/linux-tests.factor b/basis/io/files/info/unix/linux/linux-tests.factor index 78b6046b40..71b71b535c 100644 --- a/basis/io/files/info/unix/linux/linux-tests.factor +++ b/basis/io/files/info/unix/linux/linux-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2015 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: tools.test io.files.info.unix.linux ; -IN: io.files.info.unix.linux.tests [ "/media/erg/4TB D" ] [ "/media/erg/4TB\\040D" decode-mount-point ] unit-test diff --git a/basis/io/files/info/windows/windows-tests.factor b/basis/io/files/info/windows/windows-tests.factor index 6e6a57ea94..b87cb6ba2d 100644 --- a/basis/io/files/info/windows/windows-tests.factor +++ b/basis/io/files/info/windows/windows-tests.factor @@ -1,6 +1,5 @@ ! Copyright (C) 2009 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: tools.test io.files.info.windows system kernel ; -IN: io.files.info.windows.tests [ ] [ vm-path file-times 3drop ] unit-test diff --git a/basis/io/files/unique/unique-tests.factor b/basis/io/files/unique/unique-tests.factor index a45137d703..2924ec3363 100644 --- a/basis/io/files/unique/unique-tests.factor +++ b/basis/io/files/unique/unique-tests.factor @@ -2,7 +2,6 @@ USING: accessors continuations io.directories io.directories.hierarchy io.encodings.ascii io.files io.files.info io.files.temp io.files.unique io.pathnames kernel namespaces sequences strings tools.test ; -IN: io.files.unique.tests { 123 } [ [ diff --git a/basis/io/files/windows/windows-tests.factor b/basis/io/files/windows/windows-tests.factor index c5c7a1ff03..d8784bdd11 100644 --- a/basis/io/files/windows/windows-tests.factor +++ b/basis/io/files/windows/windows-tests.factor @@ -4,7 +4,6 @@ USING: combinators continuations io.backend io.directories io.files io.files.temp io.files.windows io.pathnames kernel kernel.private libc literals memory sequences splitting tools.test windows.kernel32 io.files.unique destructors ; -IN: io.files.windows.tests [ f ] [ "\\foo" absolute-path? ] unit-test [ t ] [ "\\\\?\\c:\\foo" absolute-path? ] unit-test diff --git a/basis/io/pipes/pipes-tests.factor b/basis/io/pipes/pipes-tests.factor index 86a695fab0..3f46186869 100644 --- a/basis/io/pipes/pipes-tests.factor +++ b/basis/io/pipes/pipes-tests.factor @@ -1,9 +1,7 @@ -USING: io io.pipes io.streams.string io.encodings.utf8 -io.encodings.binary io.streams.duplex io.encodings io.timeouts -namespaces continuations tools.test kernel calendar destructors -accessors debugger math sequences threads -concurrency.count-downs fry ; -IN: io.pipes.tests +USING: accessors calendar concurrency.count-downs continuations +destructors fry io io.encodings io.encodings.binary +io.encodings.utf8 io.pipes io.streams.duplex io.streams.string +io.timeouts kernel math namespaces threads tools.test ; { "Hello" } [ utf8 [ diff --git a/basis/io/pipes/unix/pipes-tests.factor b/basis/io/pipes/unix/pipes-tests.factor index ce3f1551b1..7d5a660e6f 100644 --- a/basis/io/pipes/unix/pipes-tests.factor +++ b/basis/io/pipes/unix/pipes-tests.factor @@ -1,6 +1,5 @@ USING: tools.test io.pipes io.pipes.unix io.encodings.utf8 io.encodings io namespaces sequences ; -IN: io.pipes.unix.tests [ { 0 0 } ] [ { "ls" "grep ." } run-pipeline ] unit-test diff --git a/basis/io/sockets/secure/secure-tests.factor b/basis/io/sockets/secure/secure-tests.factor index 294471ddae..d6b2c29c96 100644 --- a/basis/io/sockets/secure/secure-tests.factor +++ b/basis/io/sockets/secure/secure-tests.factor @@ -1,6 +1,5 @@ -IN: io.sockets.secure.tests -USING: accessors io.sockets io.sockets.secure io.sockets.secure.debug -kernel system tools.test ; +USING: accessors io.sockets io.sockets.secure +io.sockets.secure.debug kernel system tools.test ; { "hello" 24 } [ "hello" 24 "hello" [ host>> ] [ port>> ] bi ] unit-test diff --git a/basis/io/standard-paths/macosx/macosx-tests.factor b/basis/io/standard-paths/macosx/macosx-tests.factor index bd1214ab0c..6d67c80a83 100644 --- a/basis/io/standard-paths/macosx/macosx-tests.factor +++ b/basis/io/standard-paths/macosx/macosx-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2011 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: io.standard-paths io.standard-paths.macosx tools.test ; -IN: io.standard-paths.macosx.tests { "/System/Library/CoreServices/Finder.app" } [ "com.apple.finder" find-native-bundle ] unit-test diff --git a/basis/io/standard-paths/standard-paths-tests.factor b/basis/io/standard-paths/standard-paths-tests.factor deleted file mode 100644 index ead13a444d..0000000000 --- a/basis/io/standard-paths/standard-paths-tests.factor +++ /dev/null @@ -1,4 +0,0 @@ -! Copyright (C) 2011 Doug Coleman. -! See http://factorcode.org/license.txt for BSD license. -USING: tools.test io.standard-paths ; -IN: io.standard-paths.tests diff --git a/basis/ip-parser/ip-parser-tests.factor b/basis/ip-parser/ip-parser-tests.factor index 48161fdb26..cf12220fa8 100644 --- a/basis/ip-parser/ip-parser-tests.factor +++ b/basis/ip-parser/ip-parser-tests.factor @@ -1,7 +1,5 @@ -USING: kernel sequences tools.test ; - -IN: ip-parser +USING: ip-parser kernel sequences tools.test ; { "0.0.0.1" } [ "1" normalize-ipv4 ] unit-test { "1.0.0.2" } [ "1.2" normalize-ipv4 ] unit-test diff --git a/basis/json/prettyprint/prettyprint-tests.factor b/basis/json/prettyprint/prettyprint-tests.factor index 90ca80c73a..4592dace7a 100644 --- a/basis/json/prettyprint/prettyprint-tests.factor +++ b/basis/json/prettyprint/prettyprint-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2016 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: io.streams.string json.prettyprint json.reader tools.test ; -IN: json.prettyprint.tests [ "{ diff --git a/basis/json/reader/reader-tests.factor b/basis/json/reader/reader-tests.factor index a6d26184a2..c39a565e9f 100644 --- a/basis/json/reader/reader-tests.factor +++ b/basis/json/reader/reader-tests.factor @@ -1,6 +1,5 @@ USING: hashtables io.streams.string json json.reader json.reader.private kernel literals math strings tools.test ; -IN: json.reader.tests { f } [ "false" json> ] unit-test { t } [ "true" json> ] unit-test diff --git a/basis/lcs/diff2html/diff2html-tests.factor b/basis/lcs/diff2html/diff2html-tests.factor index f7b92ced92..e815747558 100644 --- a/basis/lcs/diff2html/diff2html-tests.factor +++ b/basis/lcs/diff2html/diff2html-tests.factor @@ -2,7 +2,6 @@ ! See http://factorcode.org/license.txt for BSD license. USING: lcs lcs.diff2html kernel tools.test strings sequences xml.writer ; -IN: lcs.diff2html.tests { } [ "hello" "heyo" [ [ 1string ] { } map-as ] bi@ diff --git a/basis/libc/libc-tests.factor b/basis/libc/libc-tests.factor index 85b2e81536..e27757f7de 100644 --- a/basis/libc/libc-tests.factor +++ b/basis/libc/libc-tests.factor @@ -1,4 +1,3 @@ -IN: libc.tests USING: destructors kernel libc libc.private namespaces tools.test ; diff --git a/basis/linked-assocs/linked-assocs-tests.factor b/basis/linked-assocs/linked-assocs-tests.factor index feba3fc9e7..77d77fb4c6 100644 --- a/basis/linked-assocs/linked-assocs-tests.factor +++ b/basis/linked-assocs/linked-assocs-tests.factor @@ -2,7 +2,6 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors assocs kernel linked-assocs math sequences tools.test ; -IN: linked-assocs.tests { { 1 2 3 } } [ 1 "b" pick set-at diff --git a/basis/math/primes/erato/fast/fast-tests.factor b/basis/math/primes/erato/fast/fast-tests.factor index a9a9644801..d62668c759 100644 --- a/basis/math/primes/erato/fast/fast-tests.factor +++ b/basis/math/primes/erato/fast/fast-tests.factor @@ -1,5 +1,4 @@ USING: fry kernel sequences tools.test ; -IN: math.primes.erato.fast { diff --git a/basis/math/primes/lucas-lehmer/lucas-lehmer-tests.factor b/basis/math/primes/lucas-lehmer/lucas-lehmer-tests.factor index 847d833232..169297a573 100644 --- a/basis/math/primes/lucas-lehmer/lucas-lehmer-tests.factor +++ b/basis/math/primes/lucas-lehmer/lucas-lehmer-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2009 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: tools.test math.primes.lucas-lehmer ; -IN: math.primes.lucas-lehmer.tests { t } [ 2 lucas-lehmer ] unit-test { t } [ 3 lucas-lehmer ] unit-test diff --git a/basis/math/primes/miller-rabin/miller-rabin-tests.factor b/basis/math/primes/miller-rabin/miller-rabin-tests.factor index 29b515fc9f..0e9b22e1f7 100644 --- a/basis/math/primes/miller-rabin/miller-rabin-tests.factor +++ b/basis/math/primes/miller-rabin/miller-rabin-tests.factor @@ -1,5 +1,4 @@ USING: kernel math.primes.miller-rabin sequences tools.test ; -IN: math.primes.miller-rabin.tests { f } [ 473155932665450549999756893736999469773678960651272093993257221235459777950185377130233556540099119926369437865330559863 miller-rabin ] unit-test { t } [ 2 miller-rabin ] unit-test diff --git a/basis/math/primes/primes-tests.factor b/basis/math/primes/primes-tests.factor index 42b569a990..8dacd2be31 100644 --- a/basis/math/primes/primes-tests.factor +++ b/basis/math/primes/primes-tests.factor @@ -1,6 +1,5 @@ USING: arrays kernel math math.primes math.primes.miller-rabin sequences tools.test ; -IN: math.primes.tests { 1237 } [ 1234 next-prime ] unit-test { f t } [ 1234 prime? 1237 prime? ] unit-test diff --git a/basis/math/primes/safe/safe-tests.factor b/basis/math/primes/safe/safe-tests.factor index f07f732291..87087616fb 100644 --- a/basis/math/primes/safe/safe-tests.factor +++ b/basis/math/primes/safe/safe-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2009 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: math.primes.safe math.primes.safe.private tools.test ; -IN: math.primes.safe.tests { 863 } [ 862 next-safe-prime ] unit-test { f } [ 862 safe-prime? ] unit-test diff --git a/basis/math/ranges/ranges-tests.factor b/basis/math/ranges/ranges-tests.factor index 31257eb364..d6c83bafd1 100644 --- a/basis/math/ranges/ranges-tests.factor +++ b/basis/math/ranges/ranges-tests.factor @@ -1,5 +1,4 @@ USING: arrays kernel math math.ranges sequences sets tools.test ; -IN: math.ranges.tests { { } } [ 1 1 (a,b) >array ] unit-test { { } } [ 1 1 (a,b] >array ] unit-test diff --git a/basis/math/statistics/statistics-tests.factor b/basis/math/statistics/statistics-tests.factor index 60ce318097..5c323f0b2a 100644 --- a/basis/math/statistics/statistics-tests.factor +++ b/basis/math/statistics/statistics-tests.factor @@ -1,7 +1,6 @@ USING: arrays assocs kernel math math.functions math.statistics sequences math.order tools.test math.vectors ; FROM: math.ranges => [a,b] ; -IN: math.statistics.tests { 3 } [ { 1 2 3 4 5 } 1 power-mean ] unit-test { t } [ { 1 2 3 4 5 } [ 2 power-mean ] [ quadratic-mean ] bi 1e-10 ~ ] unit-test diff --git a/basis/mime/types/types-tests.factor b/basis/mime/types/types-tests.factor index 90b230ee46..106f98802f 100644 --- a/basis/mime/types/types-tests.factor +++ b/basis/mime/types/types-tests.factor @@ -1,4 +1,3 @@ -IN: mime.types.tests USING: mime.types tools.test ; { "application/postscript" } [ "foo.ps" mime-type ] unit-test diff --git a/basis/models/arrow/arrow-tests.factor b/basis/models/arrow/arrow-tests.factor index 06058f0e5b..0917b75225 100644 --- a/basis/models/arrow/arrow-tests.factor +++ b/basis/models/arrow/arrow-tests.factor @@ -1,6 +1,5 @@ USING: arrays generic kernel math models namespaces sequences assocs tools.test models.arrow accessors ; -IN: models.arrow.tests 3 "x" set "x" get [ 2 * ] dup "z" set diff --git a/basis/models/arrow/smart/smart-tests.factor b/basis/models/arrow/smart/smart-tests.factor index e817eda541..e76788c810 100644 --- a/basis/models/arrow/smart/smart-tests.factor +++ b/basis/models/arrow/smart/smart-tests.factor @@ -1,4 +1,3 @@ -IN: models.arrows.smart.tests USING: models.arrow.smart tools.test accessors models math kernel ; { 7 } [ 3 4 [ + ] [ activate-model ] [ value>> ] bi ] unit-test diff --git a/basis/models/mapping/mapping-tests.factor b/basis/models/mapping/mapping-tests.factor index 962b26fd02..2092c52001 100644 --- a/basis/models/mapping/mapping-tests.factor +++ b/basis/models/mapping/mapping-tests.factor @@ -1,6 +1,5 @@ USING: arrays generic kernel math models namespaces sequences assocs tools.test models.mapping accessors make ; -IN: models.mapping.tests ! Test mapping { } [ diff --git a/basis/nmake/nmake-tests.factor b/basis/nmake/nmake-tests.factor index 8661fe9091..a6ca4d4ff1 100644 --- a/basis/nmake/nmake-tests.factor +++ b/basis/nmake/nmake-tests.factor @@ -1,4 +1,3 @@ -IN: nmake.tests USING: nmake kernel tools.test ; { } [ [ ] { } nmake ] unit-test diff --git a/basis/peg/debugger/debugger-tests.factor b/basis/peg/debugger/debugger-tests.factor index 7968abfad1..9b83145d3d 100644 --- a/basis/peg/debugger/debugger-tests.factor +++ b/basis/peg/debugger/debugger-tests.factor @@ -1,5 +1,4 @@ USING: arrays continuations debugger io.streams.string peg tools.test ; -IN: peg.debugger.tests { "Peg parsing error at character position 0.\nExpected 'A' or 'B'\nGot 'xxxx'\n" } [ [ "xxxx" "A" token "B" token 2array choice parse ] [ ] recover diff --git a/basis/porter-stemmer/porter-stemmer-tests.factor b/basis/porter-stemmer/porter-stemmer-tests.factor index c30335b1e8..f61e0b0a22 100644 --- a/basis/porter-stemmer/porter-stemmer-tests.factor +++ b/basis/porter-stemmer/porter-stemmer-tests.factor @@ -1,4 +1,3 @@ -IN: porter-stemmer.tests USING: arrays assocs io kernel porter-stemmer sequences tools.test io.files io.encodings.utf8 ; diff --git a/basis/present/present-tests.factor b/basis/present/present-tests.factor index 6b69277e6c..5472861441 100644 --- a/basis/present/present-tests.factor +++ b/basis/present/present-tests.factor @@ -1,4 +1,3 @@ -IN: present.tests USING: kernel math present sequences tools.test vocabs vocabs.hierarchy ; diff --git a/basis/quoting/quoting-tests.factor b/basis/quoting/quoting-tests.factor index d0db3bb036..d6b48d1402 100644 --- a/basis/quoting/quoting-tests.factor +++ b/basis/quoting/quoting-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2009 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: tools.test quoting ; -IN: quoting.tests { f } [ "" quoted? ] unit-test { t } [ "''" quoted? ] unit-test diff --git a/basis/sorting/human/human-tests.factor b/basis/sorting/human/human-tests.factor index 4e1d496ad9..c19346579a 100644 --- a/basis/sorting/human/human-tests.factor +++ b/basis/sorting/human/human-tests.factor @@ -1,5 +1,4 @@ USING: sorting.human tools.test sorting.slots sorting ; -IN: sorting.human.tests { { "x1y" "x2" "x10y" } } [ { "x1y" "x10y" "x2" } { human<=> } sort-by ] unit-test diff --git a/basis/sorting/insertion/insertion-tests.factor b/basis/sorting/insertion/insertion-tests.factor index 4defa98ed6..1ec30c18f2 100644 --- a/basis/sorting/insertion/insertion-tests.factor +++ b/basis/sorting/insertion/insertion-tests.factor @@ -1,4 +1,5 @@ -IN: sorting.insertion USING: sorting.insertion sequences kernel tools.test ; -{ { { 1 1 } { 1 2 } { 2 0 } } } [ { { 2 0 } { 1 1 } { 1 2 } } dup [ first ] insertion-sort ] unit-test +{ { { 1 1 } { 1 2 } { 2 0 } } } [ + { { 2 0 } { 1 1 } { 1 2 } } dup [ first ] insertion-sort +] unit-test diff --git a/basis/soundex/soundex-tests.factor b/basis/soundex/soundex-tests.factor index ca0fe91999..6ee00c536f 100644 --- a/basis/soundex/soundex-tests.factor +++ b/basis/soundex/soundex-tests.factor @@ -1,4 +1,3 @@ -IN: soundex.tests USING: soundex tools.test ; { "S162" } [ "supercalifrag" soundex ] unit-test diff --git a/basis/splitting/monotonic/monotonic-tests.factor b/basis/splitting/monotonic/monotonic-tests.factor index 0bc56ce7b2..5c149c7ec2 100644 --- a/basis/splitting/monotonic/monotonic-tests.factor +++ b/basis/splitting/monotonic/monotonic-tests.factor @@ -1,5 +1,5 @@ -IN: splitting.monotonic -USING: tools.test math arrays kernel sequences ; +USING: tools.test math arrays kernel sequences +splitting.monotonic ; { { } } [ { } [ < ] monotonic-split ] unit-test { { { 1 } } } [ { 1 } [ < ] monotonic-split ] unit-test diff --git a/basis/strings/tables/tables-tests.factor b/basis/strings/tables/tables-tests.factor index dc0d487990..a8054d0e4f 100644 --- a/basis/strings/tables/tables-tests.factor +++ b/basis/strings/tables/tables-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: tools.test strings.tables ; -IN: strings.tables.tests { { } } [ { } format-table ] unit-test diff --git a/basis/suffix-arrays/suffix-arrays-tests.factor b/basis/suffix-arrays/suffix-arrays-tests.factor index 5431684d0e..80f6875fc4 100644 --- a/basis/suffix-arrays/suffix-arrays-tests.factor +++ b/basis/suffix-arrays/suffix-arrays-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2008 Marc Fauconneau. ! See http://factorcode.org/license.txt for BSD license. USING: tools.test suffix-arrays kernel namespaces sequences ; -IN: suffix-arrays.tests ! built from [ all-words 10 head [ name>> ] map ] { } [ diff --git a/basis/system-info/linux/linux-tests.factor b/basis/system-info/linux/linux-tests.factor index d9503a0dee..afe2207a54 100644 --- a/basis/system-info/linux/linux-tests.factor +++ b/basis/system-info/linux/linux-tests.factor @@ -1,6 +1,5 @@ USING: system-info.linux strings splitting sequences tools.test kernel ; -IN: system-info.linux.tests [ 6 ] [ uname length ] unit-test diff --git a/basis/system-info/windows/windows-tests.factor b/basis/system-info/windows/windows-tests.factor index 5e8bed7c6c..bd3f044673 100644 --- a/basis/system-info/windows/windows-tests.factor +++ b/basis/system-info/windows/windows-tests.factor @@ -1,6 +1,5 @@ USING: math math.order strings system-info.windows tools.test system-info ; -IN: system-info.windows.tests [ t ] [ cpus integer? ] unit-test [ t ] [ username string? ] unit-test diff --git a/basis/timers/timers-tests.factor b/basis/timers/timers-tests.factor index 8e1a6cfc70..35f8483dcf 100644 --- a/basis/timers/timers-tests.factor +++ b/basis/timers/timers-tests.factor @@ -1,7 +1,6 @@ USING: timers timers.private calendar concurrency.count-downs concurrency.promises fry kernel math math.order sequences threads tools.test tools.time ; -IN: timers.tests { } [ 1 diff --git a/basis/ui/baseline-alignment/baseline-alignment-tests.factor b/basis/ui/baseline-alignment/baseline-alignment-tests.factor index d1134e3e24..c21850f74f 100644 --- a/basis/ui/baseline-alignment/baseline-alignment-tests.factor +++ b/basis/ui/baseline-alignment/baseline-alignment-tests.factor @@ -2,7 +2,6 @@ ! See http://factorcode.org/license.txt for BSD license. USING: tools.test math kernel sets generic ui.baseline-alignment ui.baseline-alignment.private ; -IN: ui.baseline-alignment.tests ! Test baseline calculations { 10 0 } [ 0 10 0 10 combine-metrics ] unit-test diff --git a/basis/ui/gadgets/borders/borders-tests.factor b/basis/ui/gadgets/borders/borders-tests.factor index 5b64ebcb40..4557895fa1 100644 --- a/basis/ui/gadgets/borders/borders-tests.factor +++ b/basis/ui/gadgets/borders/borders-tests.factor @@ -1,4 +1,3 @@ -IN: ui.gadgets.borders.tests USING: accessors kernel math.rectangles namespaces tools.test ui.gadgets ui.gadgets.borders ui.gadgets.borders.private ui.gadgets.editors ; diff --git a/basis/ui/gadgets/buttons/buttons-tests.factor b/basis/ui/gadgets/buttons/buttons-tests.factor index a427da9793..dcc76644d5 100644 --- a/basis/ui/gadgets/buttons/buttons-tests.factor +++ b/basis/ui/gadgets/buttons/buttons-tests.factor @@ -1,6 +1,5 @@ USING: accessors kernel models namespaces tools.test ui.gadgets ui.gadgets.buttons ; -IN: ui.gadgets.buttons.tests { } [ 2 { diff --git a/basis/ui/gadgets/canvas/canvas-tests.factor b/basis/ui/gadgets/canvas/canvas-tests.factor index d87a4d76f3..4663950a7a 100644 --- a/basis/ui/gadgets/canvas/canvas-tests.factor +++ b/basis/ui/gadgets/canvas/canvas-tests.factor @@ -1,4 +1,3 @@ -IN: ui.gadgets.canvas.tests USING: ui.gadgets.canvas tools.test kernel ; { 1 0 } [ [ drop ] draw-canvas ] must-infer-as diff --git a/basis/ui/gadgets/debug/debug-tests.factor b/basis/ui/gadgets/debug/debug-tests.factor deleted file mode 100644 index 064f7ab6e2..0000000000 --- a/basis/ui/gadgets/debug/debug-tests.factor +++ /dev/null @@ -1,4 +0,0 @@ -! Copyright (C) 2009 Slava Pestov. -! See http://factorcode.org/license.txt for BSD license. -USING: tools.test ui.gadgets.debug ; -IN: ui.gadgets.debug.tests diff --git a/basis/ui/gadgets/editors/editors-tests.factor b/basis/ui/gadgets/editors/editors-tests.factor index fa397731b4..e5eb84c722 100644 --- a/basis/ui/gadgets/editors/editors-tests.factor +++ b/basis/ui/gadgets/editors/editors-tests.factor @@ -3,7 +3,6 @@ tools.test kernel io io.streams.plain definitions namespaces ui.gadgets ui.gadgets.grids prettyprint documents ui.gestures ui.gadgets.debug models documents.elements ui.gadgets.scrollers ui.gadgets.line-support sequences ; -IN: ui.gadgets.editors.tests { "foo bar" } [ "editor" set diff --git a/basis/ui/gadgets/frames/frames-tests.factor b/basis/ui/gadgets/frames/frames-tests.factor index f807bcf993..c706fe7172 100644 --- a/basis/ui/gadgets/frames/frames-tests.factor +++ b/basis/ui/gadgets/frames/frames-tests.factor @@ -1,6 +1,5 @@ USING: accessors kernel namespaces tools.test ui.gadgets ui.gadgets.frames ui.gadgets.grids ui.gadgets.labels ; -IN: ui.gadgets.frames.tests { } [ 3 3 { 1 1 } >>filled-cell layout ] unit-test diff --git a/basis/ui/gadgets/glass/glass-tests.factor b/basis/ui/gadgets/glass/glass-tests.factor index b73bd06a6c..30bce713e4 100644 --- a/basis/ui/gadgets/glass/glass-tests.factor +++ b/basis/ui/gadgets/glass/glass-tests.factor @@ -1,4 +1,3 @@ -IN: ui.gadgets.glass.tests USING: tools.test ui.gadgets.glass ui.gadgets.worlds ui.gadgets math.rectangles namespaces accessors models sequences arrays ; diff --git a/basis/ui/gadgets/labeled/labeled-tests.factor b/basis/ui/gadgets/labeled/labeled-tests.factor index 08dd6d85d0..f6e2097cfa 100644 --- a/basis/ui/gadgets/labeled/labeled-tests.factor +++ b/basis/ui/gadgets/labeled/labeled-tests.factor @@ -1,6 +1,5 @@ USING: accessors colors.constants sequences tools.test ui.gadgets ui.gadgets.labeled ; -IN: ui.gadgets.labeled.tests { t } [ "Hey" content>> gadget? diff --git a/basis/ui/gadgets/labels/labels-tests.factor b/basis/ui/gadgets/labels/labels-tests.factor index 0e64677d5f..0ddd240eca 100644 --- a/basis/ui/gadgets/labels/labels-tests.factor +++ b/basis/ui/gadgets/labels/labels-tests.factor @@ -1,5 +1,4 @@ USING: accessors tools.test ui.gadgets ui.gadgets.labels ; -IN: ui.gadgets.labels.tests { { 119 14 } } [ { 100 14 } >>dim diff --git a/basis/ui/gadgets/line-support/line-support-tests.factor b/basis/ui/gadgets/line-support/line-support-tests.factor index 4987fdfeab..1b4c95674e 100644 --- a/basis/ui/gadgets/line-support/line-support-tests.factor +++ b/basis/ui/gadgets/line-support/line-support-tests.factor @@ -2,7 +2,6 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors arrays kernel tools.test ui.gadgets.editors ui.gadgets.line-support ui.gadgets.line-support.private ui.text ; -IN: ui.gadgets.line-support.tests ! line-gadget-height { t } [ diff --git a/basis/ui/gadgets/packs/packs-tests.factor b/basis/ui/gadgets/packs/packs-tests.factor index 3ca7221583..810ddd0ed0 100644 --- a/basis/ui/gadgets/packs/packs-tests.factor +++ b/basis/ui/gadgets/packs/packs-tests.factor @@ -2,7 +2,6 @@ USING: ui.gadgets.packs ui.gadgets.packs.private ui.gadgets.labels ui.gadgets ui.gadgets.debug ui.render ui.baseline-alignment kernel namespaces tools.test math.parser sequences math.rectangles accessors math ; -IN: ui.gadgets.packs.tests { t } [ { 0 0 } { 100 100 } clip set diff --git a/basis/ui/gadgets/presentations/presentations-tests.factor b/basis/ui/gadgets/presentations/presentations-tests.factor index a255ad4d97..4258f5a5ed 100644 --- a/basis/ui/gadgets/presentations/presentations-tests.factor +++ b/basis/ui/gadgets/presentations/presentations-tests.factor @@ -1,7 +1,6 @@ USING: math ui.gadgets.presentations ui.gadgets tools.test prettyprint ui.gadgets.buttons io io.streams.string kernel classes.tuple accessors ; -IN: ui.gadgets.presentations.tests { t } [ "Hi" \ + gadget? diff --git a/basis/ui/gadgets/scrollers/scrollers-tests.factor b/basis/ui/gadgets/scrollers/scrollers-tests.factor index a8f209bc64..d918b8c45e 100644 --- a/basis/ui/gadgets/scrollers/scrollers-tests.factor +++ b/basis/ui/gadgets/scrollers/scrollers-tests.factor @@ -4,7 +4,6 @@ ui.gadgets.labels ui.gadgets.grids ui.gadgets.sliders math math.vectors arrays sequences ui.gadgets.debug math.rectangles accessors ui.gadgets.buttons ui.gadgets.packs ui.gadgets.scrollers.private ; -IN: ui.gadgets.scrollers.tests { } [ "g" set diff --git a/basis/ui/gadgets/search-tables/search-tables-tests.factor b/basis/ui/gadgets/search-tables/search-tables-tests.factor index 012a27c849..e6d8a5de0e 100644 --- a/basis/ui/gadgets/search-tables/search-tables-tests.factor +++ b/basis/ui/gadgets/search-tables/search-tables-tests.factor @@ -1,4 +1,3 @@ -IN: ui.gadgets.search-tables.tests USING: ui.gadgets.search-tables ui.gadgets.tables ui.gadgets models arrays sequences tools.test ; diff --git a/basis/ui/gadgets/tracks/tracks-tests.factor b/basis/ui/gadgets/tracks/tracks-tests.factor index ccfafdeebd..cad0541466 100644 --- a/basis/ui/gadgets/tracks/tracks-tests.factor +++ b/basis/ui/gadgets/tracks/tracks-tests.factor @@ -1,6 +1,5 @@ USING: kernel ui.gadgets ui.gadgets.tracks tools.test math.rectangles accessors sequences namespaces ; -IN: ui.gadgets.tracks.tests { { 100 100 } } [ vertical diff --git a/basis/ui/images/images-tests.factor b/basis/ui/images/images-tests.factor deleted file mode 100644 index eb053d891d..0000000000 --- a/basis/ui/images/images-tests.factor +++ /dev/null @@ -1,4 +0,0 @@ -! Copyright (C) 2009 Slava Pestov. -! See http://factorcode.org/license.txt for BSD license. -USING: tools.test ui.images ; -IN: ui.images.tests diff --git a/basis/ui/pens/caching/caching-tests.factor b/basis/ui/pens/caching/caching-tests.factor index 5b76772e29..024e302ed1 100644 --- a/basis/ui/pens/caching/caching-tests.factor +++ b/basis/ui/pens/caching/caching-tests.factor @@ -3,7 +3,6 @@ USING: accessors alien.c-types colors.constants kernel specialized-arrays tools.test ui.gadgets.labels ui.pens.caching ui.pens.gradient ; -IN: ui.pens.caching.tests SPECIALIZED-ARRAY: float diff --git a/basis/ui/pens/gradient/gradient-tests.factor b/basis/ui/pens/gradient/gradient-tests.factor index 1e3776aff3..9145e33d78 100644 --- a/basis/ui/pens/gradient/gradient-tests.factor +++ b/basis/ui/pens/gradient/gradient-tests.factor @@ -1,7 +1,6 @@ USING: tools.test ui.pens.gradient ui.pens.gradient.private colors.constants specialized-arrays alien.c-types ; SPECIALIZED-ARRAY: float -IN: ui.pens.gradient.tests { float-array{ diff --git a/basis/ui/pens/image/image-tests.factor b/basis/ui/pens/image/image-tests.factor deleted file mode 100644 index 797a203f7c..0000000000 --- a/basis/ui/pens/image/image-tests.factor +++ /dev/null @@ -1,4 +0,0 @@ -! Copyright (C) 2009 Slava Pestov. -! See http://factorcode.org/license.txt for BSD license. -USING: tools.test ui.pens.image ; -IN: ui.pens.image.tests diff --git a/basis/ui/pens/pens-tests.factor b/basis/ui/pens/pens-tests.factor deleted file mode 100644 index 422e352e2d..0000000000 --- a/basis/ui/pens/pens-tests.factor +++ /dev/null @@ -1,4 +0,0 @@ -! Copyright (C) 2009 Slava Pestov. -! See http://factorcode.org/license.txt for BSD license. -USING: tools.test ui.pens ; -IN: ui.pens.tests diff --git a/basis/ui/pens/polygon/polygon-tests.factor b/basis/ui/pens/polygon/polygon-tests.factor deleted file mode 100644 index 529b4f4063..0000000000 --- a/basis/ui/pens/polygon/polygon-tests.factor +++ /dev/null @@ -1,4 +0,0 @@ -! Copyright (C) 2009 Slava Pestov. -! See http://factorcode.org/license.txt for BSD license. -USING: tools.test ui.pens.polygon ; -IN: ui.pens.polygon.tests diff --git a/basis/ui/pens/solid/solid-tests.factor b/basis/ui/pens/solid/solid-tests.factor deleted file mode 100644 index ab6234a306..0000000000 --- a/basis/ui/pens/solid/solid-tests.factor +++ /dev/null @@ -1,4 +0,0 @@ -! Copyright (C) 2009 Slava Pestov. -! See http://factorcode.org/license.txt for BSD license. -USING: tools.test ui.pens.solid ; -IN: ui.pens.solid.tests diff --git a/basis/ui/pens/tile/tile-tests.factor b/basis/ui/pens/tile/tile-tests.factor deleted file mode 100644 index b406b7bf0c..0000000000 --- a/basis/ui/pens/tile/tile-tests.factor +++ /dev/null @@ -1,4 +0,0 @@ -! Copyright (C) 2009 Slava Pestov. -! See http://factorcode.org/license.txt for BSD license. -USING: tools.test ui.pens.tile ; -IN: ui.pens.tile.tests diff --git a/basis/ui/render/render-tests.factor b/basis/ui/render/render-tests.factor deleted file mode 100644 index 728dcb9c47..0000000000 --- a/basis/ui/render/render-tests.factor +++ /dev/null @@ -1,3 +0,0 @@ -USING: accessors colors.constants namespaces tools.test -ui.gadgets.labels ui.pens.gradient ui.render ui.render.private ; -IN: ui.render.tests diff --git a/basis/ui/text/text-tests.factor b/basis/ui/text/text-tests.factor index bb0219eb02..ecf45a29f0 100644 --- a/basis/ui/text/text-tests.factor +++ b/basis/ui/text/text-tests.factor @@ -2,7 +2,6 @@ ! See http://factorcode.org/license.txt for BSD license. USING: tools.test ui.text images fonts math arrays accessors kernel sequences ; -IN: ui.text.tests { t } [ 0 sans-serif-font "aaa" offset>x zero? ] unit-test { t } [ 1 sans-serif-font "aaa" offset>x 0.0 > ] unit-test diff --git a/basis/ui/tools/browser/browser-tests.factor b/basis/ui/tools/browser/browser-tests.factor index 55cfad0af0..13848a64de 100644 --- a/basis/ui/tools/browser/browser-tests.factor +++ b/basis/ui/tools/browser/browser-tests.factor @@ -1,4 +1,3 @@ -IN: ui.tools.browser.tests USING: tools.test ui.gadgets.debug ui.tools.browser math ; { } [ \ + [ ] with-grafted-gadget ] unit-test diff --git a/basis/ui/tools/debugger/debugger-tests.factor b/basis/ui/tools/debugger/debugger-tests.factor index d0622b30af..30b062c6be 100644 --- a/basis/ui/tools/debugger/debugger-tests.factor +++ b/basis/ui/tools/debugger/debugger-tests.factor @@ -1,6 +1,4 @@ USING: kernel tools.test ui.gadgets.worlds ui.tools.debugger ; -IN: ui.tools.debugger.tests - { f } [ f world-error boa error-in-debugger? diff --git a/basis/ui/tools/inspector/inspector-tests.factor b/basis/ui/tools/inspector/inspector-tests.factor index a646897648..5891983a7e 100644 --- a/basis/ui/tools/inspector/inspector-tests.factor +++ b/basis/ui/tools/inspector/inspector-tests.factor @@ -1,4 +1,3 @@ -IN: ui.tools.inspector.tests USING: tools.test ui.tools.inspector math models ; { } [ \ + com-edit-slot ] unit-test diff --git a/basis/ui/tools/listener/history/history-tests.factor b/basis/ui/tools/listener/history/history-tests.factor index 762cec9f44..5f59cec305 100644 --- a/basis/ui/tools/listener/history/history-tests.factor +++ b/basis/ui/tools/listener/history/history-tests.factor @@ -4,8 +4,6 @@ USING: accessors documents io.styles kernel namespaces sequences tools.test ui.tools.listener.history ; -IN: ui.tools.listener.history.tests - { } [ "d" set ] unit-test { } [ "d" get "h" set ] unit-test diff --git a/basis/ui/tools/listener/popups/popups-tests.factor b/basis/ui/tools/listener/popups/popups-tests.factor deleted file mode 100644 index e0867bc31f..0000000000 --- a/basis/ui/tools/listener/popups/popups-tests.factor +++ /dev/null @@ -1,4 +0,0 @@ -! Copyright (C) 2009 Slava Pestov. -! See http://factorcode.org/license.txt for BSD license. -USING: tools.test ui.tools.listener.popups ; -IN: ui.tools.listener.popups.tests diff --git a/basis/ui/tools/walker/walker-tests.factor b/basis/ui/tools/walker/walker-tests.factor deleted file mode 100644 index 31dec35c5c..0000000000 --- a/basis/ui/tools/walker/walker-tests.factor +++ /dev/null @@ -1,2 +0,0 @@ -USING: ui.tools.walker tools.test ; -IN: ui.tools.walker.tests diff --git a/basis/ui/ui-tests.factor b/basis/ui/ui-tests.factor deleted file mode 100644 index f4885e8852..0000000000 --- a/basis/ui/ui-tests.factor +++ /dev/null @@ -1,2 +0,0 @@ -USING: assocs continuations kernel threads tools.test ui ; -IN: ui.tests diff --git a/basis/unrolled-lists/unrolled-lists-tests.factor b/basis/unrolled-lists/unrolled-lists-tests.factor index 71879b6d31..69c1c38cb8 100644 --- a/basis/unrolled-lists/unrolled-lists-tests.factor +++ b/basis/unrolled-lists/unrolled-lists-tests.factor @@ -1,6 +1,5 @@ USING: unrolled-lists tools.test deques kernel sequences random prettyprint grouping math ; -IN: unrolled-lists.tests { 1 } [ 1 over push-front pop-front ] unit-test { 1 } [ 1 over push-front pop-back ] unit-test diff --git a/basis/urls/encoding/encoding-tests.factor b/basis/urls/encoding/encoding-tests.factor index fab1f245b8..0aaecf564d 100644 --- a/basis/urls/encoding/encoding-tests.factor +++ b/basis/urls/encoding/encoding-tests.factor @@ -1,4 +1,3 @@ -IN: urls.encoding.tests USING: urls.encoding tools.test arrays kernel assocs present accessors linked-assocs ; diff --git a/basis/uuid/uuid-tests.factor b/basis/uuid/uuid-tests.factor index be034e4937..cb8ac35cf6 100644 --- a/basis/uuid/uuid-tests.factor +++ b/basis/uuid/uuid-tests.factor @@ -3,8 +3,6 @@ USING: kernel uuid tools.test ; -IN: uuid.tests - { t } [ NAMESPACE_DNS [ uuid-parse uuid-unparse ] keep = ] unit-test { t } [ NAMESPACE_URL [ uuid-parse uuid-unparse ] keep = ] unit-test { t } [ NAMESPACE_OID [ uuid-parse uuid-unparse ] keep = ] unit-test diff --git a/basis/webbrowser/webbrowser-tests.factor b/basis/webbrowser/webbrowser-tests.factor index 5d51db71d1..e340521ceb 100644 --- a/basis/webbrowser/webbrowser-tests.factor +++ b/basis/webbrowser/webbrowser-tests.factor @@ -1,5 +1,4 @@ -USING: io.pathnames tools.test urls ; -IN: webbrowser +USING: io.pathnames tools.test urls webbrowser ; { t } [ "http://reddit.com" url-string? ] unit-test { t } [ "https://reddit.com" url-string? ] unit-test diff --git a/basis/wrap/strings/strings-tests.factor b/basis/wrap/strings/strings-tests.factor index 2e1e3ebadc..a28dad2b83 100644 --- a/basis/wrap/strings/strings-tests.factor +++ b/basis/wrap/strings/strings-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2008, 2009 Daniel Ehrenberg, Slava Pestov ! See http://factorcode.org/license.txt for BSD license. USING: kernel tools.test wrap.strings ; -IN: wrap.strings.tests { "This is a diff --git a/basis/wrap/words/words-tests.factor b/basis/wrap/words/words-tests.factor index 3c5e6e3fdc..f9752939a1 100644 --- a/basis/wrap/words/words-tests.factor +++ b/basis/wrap/words/words-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2009 Daniel Ehrenberg ! See http://factorcode.org/license.txt for BSD license. USING: tools.test wrap.words sequences ; -IN: wrap.words.tests { { } } [ f 35 wrap-words ] unit-test { { } } [ { } 35 wrap-words ] unit-test diff --git a/basis/xml/data/data-tests.factor b/basis/xml/data/data-tests.factor index fa147b012e..7b77fb0b1d 100644 --- a/basis/xml/data/data-tests.factor +++ b/basis/xml/data/data-tests.factor @@ -1,4 +1,3 @@ -USING: assocs tools.test ; -IN: xml.data +USING: assocs tools.test xml.data ; { "bob" } [ "test" { { "name" "bob" } } { } "name" of ] unit-test diff --git a/basis/xml/entities/html/html-tests.factor b/basis/xml/entities/html/html-tests.factor deleted file mode 100644 index 68b10bebe7..0000000000 --- a/basis/xml/entities/html/html-tests.factor +++ /dev/null @@ -1,4 +0,0 @@ -! Copyright (C) 2009 Daniel Ehrenberg. -! See http://factorcode.org/license.txt for BSD license. -USING: tools.test xml.entities.html ; -IN: xml.entities.html.tests diff --git a/basis/xml/traversal/traversal-tests.factor b/basis/xml/traversal/traversal-tests.factor index 822a3cc4cb..01a47dfdec 100644 --- a/basis/xml/traversal/traversal-tests.factor +++ b/basis/xml/traversal/traversal-tests.factor @@ -1,7 +1,6 @@ ! Copyright (C) 2005, 2009 Daniel Ehrenberg ! See http://factorcode.org/license.txt for BSD license. USING: xml xml.traversal tools.test xml.data sequences arrays kernel ; -IN: xml.traversal.tests { "bar" } [ "bar" string>xml children>string ] unit-test diff --git a/basis/xmode/catalog/catalog-tests.factor b/basis/xmode/catalog/catalog-tests.factor index 38b16956ff..615cec4b59 100644 --- a/basis/xmode/catalog/catalog-tests.factor +++ b/basis/xmode/catalog/catalog-tests.factor @@ -1,4 +1,3 @@ -IN: xmode.catalog.tests USING: xmode.catalog tools.test hashtables assocs kernel sequences io ; diff --git a/basis/xmode/code2html/code2html-tests.factor b/basis/xmode/code2html/code2html-tests.factor index a7aaa04530..e98b8af10a 100644 --- a/basis/xmode/code2html/code2html-tests.factor +++ b/basis/xmode/code2html/code2html-tests.factor @@ -1,7 +1,5 @@ -IN: xmode.code2html.tests -USING: xmode.code2html xmode.catalog -tools.test multiline splitting memoize -kernel io.streams.string xml.writer ; +USING: xmode.code2html xmode.catalog tools.test multiline +splitting memoize kernel io.streams.string xml.writer ; { } [ \ (load-mode) reset-memoized ] unit-test diff --git a/basis/xmode/keyword-map/keyword-map-tests.factor b/basis/xmode/keyword-map/keyword-map-tests.factor index 17644fb451..d50e0324cf 100644 --- a/basis/xmode/keyword-map/keyword-map-tests.factor +++ b/basis/xmode/keyword-map/keyword-map-tests.factor @@ -1,4 +1,3 @@ -IN: xmode.keyword-map.tests USING: xmode.keyword-map xmode.tokens tools.test namespaces assocs kernel strings ; diff --git a/basis/xmode/marker/marker-tests.factor b/basis/xmode/marker/marker-tests.factor index 7b0fc9ab45..b6f6676016 100644 --- a/basis/xmode/marker/marker-tests.factor +++ b/basis/xmode/marker/marker-tests.factor @@ -1,6 +1,5 @@ USING: xmode.tokens xmode.catalog xmode.marker tools.test kernel ; -IN: xmode.marker.tests { { diff --git a/basis/xmode/rules/rules-tests.factor b/basis/xmode/rules/rules-tests.factor index 13e4ce5361..52190faf08 100644 --- a/basis/xmode/rules/rules-tests.factor +++ b/basis/xmode/rules/rules-tests.factor @@ -1,4 +1,3 @@ -IN: xmode.rules.tests USING: xmode.rules tools.test ; { { 1 2 3 } } [ f { 1 2 3 } ?push-all ] unit-test diff --git a/core/alien/strings/strings-tests.factor b/core/alien/strings/strings-tests.factor index b554b1bcfa..4546fbf99f 100644 --- a/core/alien/strings/strings-tests.factor +++ b/core/alien/strings/strings-tests.factor @@ -1,7 +1,6 @@ USING: alien.strings alien.c-types alien.data tools.test kernel libc io.encodings.utf8 io.encodings.utf16 io.encodings.utf16n io.encodings.ascii alien io.encodings.string io.encodings.8-bit.latin1 ; -IN: alien.strings.tests { "\u0000ff" } [ "\u0000ff" latin1 string>alien latin1 alien>string ] diff --git a/core/effects/effects-tests.factor b/core/effects/effects-tests.factor index 707396b6ed..06a97ef3bb 100644 --- a/core/effects/effects-tests.factor +++ b/core/effects/effects-tests.factor @@ -1,6 +1,5 @@ USING: accessors effects effects.parser eval kernel prettyprint sequences tools.test math ; -IN: effects.tests { t } [ { "a" } { "a" } { "a" "b" } { "a" "b" } effect<= ] unit-test { f } [ { "a" } { } { "a" "b" } { "a" "b" } effect<= ] unit-test diff --git a/core/growable/growable-tests.factor b/core/growable/growable-tests.factor index 0dc10c600d..68f3069cde 100644 --- a/core/growable/growable-tests.factor +++ b/core/growable/growable-tests.factor @@ -1,5 +1,4 @@ USING: classes kernel layouts math sequences tools.test ; -IN: growable.tests ! erg found this one { fixnum } [ diff --git a/core/io/backend/backend-tests.factor b/core/io/backend/backend-tests.factor index 58fa4b8243..95b05ea9da 100644 --- a/core/io/backend/backend-tests.factor +++ b/core/io/backend/backend-tests.factor @@ -1,4 +1,3 @@ USING: tools.test io.backend kernel ; -IN: io.backend.tests { } [ "a" normalize-path drop ] unit-test diff --git a/core/io/streams/byte-array/byte-array-tests.factor b/core/io/streams/byte-array/byte-array-tests.factor index 8f0bb63a75..1fe296f90a 100644 --- a/core/io/streams/byte-array/byte-array-tests.factor +++ b/core/io/streams/byte-array/byte-array-tests.factor @@ -1,7 +1,6 @@ USING: alien.c-types alien.data arrays io io.encodings.ascii io.encodings.binary io.encodings.utf8 io.streams.byte-array kernel math specialized-arrays strings tools.test ; -IN: io.streams.byte-array.tests SPECIALIZED-ARRAY: int { B{ } } [ B{ } binary [ contents ] with-byte-reader ] unit-test diff --git a/core/io/streams/memory/memory-tests.factor b/core/io/streams/memory/memory-tests.factor index d4a74e0fbf..59fbe475c9 100644 --- a/core/io/streams/memory/memory-tests.factor +++ b/core/io/streams/memory/memory-tests.factor @@ -2,7 +2,6 @@ ! See http://factorcode.org/license.txt for BSD license. USING: alien.data destructors io io.streams.memory kernel libc tools.test ; -IN: io.streams.memory.tests { 1 2 3 } [ B{ 1 2 3 } diff --git a/core/math/integers/integers-tests.factor b/core/math/integers/integers-tests.factor index 263a329e26..46c00fb11c 100644 --- a/core/math/integers/integers-tests.factor +++ b/core/math/integers/integers-tests.factor @@ -1,7 +1,6 @@ USING: continuations kernel math math.functions math.order math.private namespaces prettyprint prettyprint.config random sequences tools.test ; -IN: math.integers.tests 10 number-base [ [ "-8" ] [ -8 unparse ] unit-test diff --git a/core/math/parser/parser-tests.factor b/core/math/parser/parser-tests.factor index b3b889c0c1..cbfaba28ba 100644 --- a/core/math/parser/parser-tests.factor +++ b/core/math/parser/parser-tests.factor @@ -1,6 +1,6 @@ -USING: kernel layouts literals math math.parser.private sequences -strings tools.test ; -IN: math.parser +USING: kernel layouts literals math math.parser +math.parser.private sequences strings tools.test ; +IN: math.parser.tests { f } [ f string>number ] diff --git a/core/parser/notes/notes-tests.factor b/core/parser/notes/notes-tests.factor index 0ed0afd4d9..01244df043 100644 --- a/core/parser/notes/notes-tests.factor +++ b/core/parser/notes/notes-tests.factor @@ -1,4 +1,3 @@ USING: lexer namespaces parser.notes source-files tools.test ; -IN: parser.notes.tests { } [ f lexer set f current-source-file set "Hello world" note. ] unit-test diff --git a/core/source-files/errors/errors-tests.factor b/core/source-files/errors/errors-tests.factor index b96458fccb..068bc7c462 100644 --- a/core/source-files/errors/errors-tests.factor +++ b/core/source-files/errors/errors-tests.factor @@ -1,6 +1,5 @@ USING: assocs compiler.errors compiler.units definitions namespaces tools.test words ; -IN: source-files.errors.tests DEFER: forget-test -- 2.34.1