more test IN: cleanup.

basis/math/combinatorics/combinatorics-tests.factor

@@ -1,6 +1,5 @@
 USING: arrays kernel math math.combinatorics
 math.combinatorics.private tools.test sequences ;
-IN: math.combinatorics.tests
 
 { 1 } [ -1 factorial ] unit-test ! required by other math.combinatorics words
 { 1 } [ 0 factorial ] unit-test

extra/24-game/24-game-tests.factor

@@ -1,5 +1,5 @@
-USING: 24-game io.streams.string kernel math sequences tools.test ;
+USING: 24-game io.streams.string kernel math sequences
-IN: 24-game.tests
+tools.test ;
 
 { t } [ make-24 first4 makes-24? ] unit-test
 

extra/99-bottles/99-bottles-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2011 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: 99-bottles io.streams.string tools.test ;
-IN: 99-bottles.tests
 
 {
 "99 bottles of beer on the wall, 99 bottles of beer.

extra/arrays/shaped/shaped-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2012 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays.shaped kernel math sequences tools.test ;
-IN: arrays.shaped.tests
 
 { t } [
     { 5 5 } increasing

extra/asn1/asn1-tests.factor

@@ -1,5 +1,4 @@
 USING: asn1 asn1.ldap io io.streams.string tools.test ;
-IN: asn1.tests
 
 { 6 } [
     "\u000002\u000001\u000006" [ asn-syntax read-ber ] with-string-reader

extra/assocs/extras/extras-tests.factor

@@ -1,8 +1,6 @@
 
 USING: assocs.extras kernel sequences tools.test ;
 
-IN: assocs.extras
-
 { f } [ f { } deep-at ] unit-test
 { f } [ f { "foo" } deep-at ] unit-test
 { f } [ H{ } { 1 2 3 } deep-at ] unit-test

extra/backtrack/backtrack-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (c) 2009 Samuel Tardieu.
 ! See See http://factorcode.org/license.txt for BSD license.
 USING: backtrack math tools.test ;
-IN: backtrack.tests
 
 cut-amb
 { 1 } [ { 1 2 } amb ] unit-test

extra/base85/base85-tests.factor

@@ -1,5 +1,4 @@
 USING: kernel strings tools.test ;
-IN: base85
 
 { t } [ "Hello, world" dup >base85 base85> >string = ] unit-test
 

extra/benchmark/regex-dna/regex-dna-tests.factor

@@ -1,6 +1,5 @@
 USING: benchmark.regex-dna io io.files io.encodings.ascii
 io.streams.string kernel tools.test splitting ;
-IN: benchmark.regex-dna.tests
 
 { t } [
     "resource:extra/benchmark/regex-dna/regex-dna-test-in.txt"

extra/benchmark/reverse-complement/reverse-complement-tests.factor

@@ -1,4 +1,3 @@
-IN: benchmark.reverse-complement.tests
 USING: benchmark.reverse-complement checksums checksums.md5
 io.files io.files.temp kernel math.parser tools.test ;
 

extra/bencode/bencode-tests.factor

@@ -1,5 +1,4 @@
-USING: tools.test ;
+USING: bencode tools.test ;
-IN: bencode
 
 { "i42e" } [ 42 >bencode ] unit-test
 { "i0e" } [ 0 >bencode ] unit-test

extra/boyer-moore/boyer-moore-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2010 Dmitry Shubin.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: tools.test boyer-moore ;
-IN: boyer-moore.tests
 
 { 0 } [ "qwerty" "" search ] unit-test
 { 0 } [ "" "" search ] unit-test

extra/brainfuck/brainfuck-tests.factor

@@ -4,9 +4,6 @@
 USING: brainfuck io.streams.string kernel literals math
 math.parser math.ranges sequences tools.test ;
 
-IN: brainfuck
-
-
 [ "+" run-brainfuck ] must-infer
 [ "+" get-brainfuck ] must-infer
 

extra/calendar/elapsed/elapsed-tests.factor

@@ -3,8 +3,6 @@
 
 USING: calendar calendar.elapsed kernel tools.test ;
 
-IN: calendar.elapsed.tests
-
 [ -1 elapsed-time ] [ "negative seconds" = ] must-fail-with
 
 { "0s" } [ 0 elapsed-time ] unit-test

extra/calendar/holidays/canada/canada-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: calendar.holidays calendar.holidays.canada kernel
-tools.test ;
+sequences tools.test ;
-IN: calendar.holidays.canada.tests
 
-{ } [ 2009 canada holidays drop ] unit-test
+{ 1 } [ 2009 canadian-federal holidays length ] unit-test

extra/calendar/holidays/us/us-tests.factor

@@ -2,6 +2,5 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: calendar.holidays calendar.holidays.us kernel sequences
 tools.test ;
-IN: calendar.holidays.us.tests
 
 { 10 } [ 2009 us-federal holidays length ] unit-test

extra/checksums/process/process-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2016 Alexander Ilin.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: tools.test checksums.process ;
-IN: checksums.process.tests
 
 { "" } [ "" trim-hash ] unit-test
 { "" } [ " aoeu" trim-hash ] unit-test

extra/color-table/color-table-tests.factor

@@ -1,4 +0,0 @@
-! Copyright (C) 2009 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: tools.test color-table ;
-IN: color-table.tests

extra/colors/cmyk/cmyk-tests.factor

@@ -1,10 +1,8 @@
 ! Copyright (C) 2013 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: arrays colors kernel locals math.functions math.ranges
+USING: arrays colors colors.cmyk kernel locals math.functions
-sequences tools.test ;
+math.ranges sequences tools.test ;
-
-IN: colors.cmyk
 
 { t } [
     0.0 1.0 0.1 <range> [| r |

extra/colors/distances/distances-tests.factor

@@ -1,5 +1,4 @@
-USING: colors combinators tools.test ;
+USING: colors colors.distances combinators tools.test ;
-IN: colors.distances
 
 {
     0x1.05d584e1086dep6 ! 65.45851470579098

extra/colors/flex-hex/flex-hex-tests.factor

@@ -1,6 +1,4 @@
-USING: tools.test ;
+USING: colors.flex-hex tools.test ;
-
-IN: colors.flex-hex
 
 { "00b000" } [ "#zqbttv" flex-hex ] unit-test
 

extra/colors/hsl/hsl-tests.factor

@@ -1,10 +1,8 @@
 ! Copyright (C) 2013 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: arrays colors kernel locals math.functions math.ranges
+USING: arrays colors colors.hsl kernel locals math.functions
-sequences tools.test ;
+math.ranges sequences tools.test ;
-
-IN: colors.hsl
 
 { t } [
     0.0 1.0 0.1 <range> [| r |

extra/colors/lab/lab-tests.factor

@@ -1,10 +1,8 @@
 ! Copyright (C) 2014 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: arrays colors kernel locals math.functions math.ranges
+USING: arrays colors colors.lab kernel locals math.functions
-sequences tools.test ;
+math.ranges sequences tools.test ;
-
-IN: colors.lab
 
 { t } [
     0.0 1.0 0.1 <range> [| r |

extra/colors/lch/lch-tests.factor

@@ -1,10 +1,8 @@
 ! Copyright (C) 2014 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: arrays colors kernel locals math.functions math.ranges
+USING: arrays colors colors.lch kernel locals math.functions
-sequences tools.test ;
+math.ranges sequences tools.test ;
-
-IN: colors.lch
 
 { t } [
     0.0 1.0 0.1 <range> [| r |

extra/colors/luv/luv-tests.factor

@@ -1,10 +1,8 @@
 ! Copyright (C) 2014 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: arrays colors kernel locals math.functions math.ranges
+USING: arrays colors colors.luv kernel locals math.functions
-sequences tools.test ;
+math.ranges sequences tools.test ;
-
-IN: colors.luv
 
 { t } [
     0.0 1.0 0.1 <range> [| r |

extra/colors/ryb/ryb-tests.factor

@@ -1,10 +1,8 @@
 ! Copyright (C) 2013 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: arrays colors kernel locals math.functions math.ranges
+USING: arrays colors colors.ryb kernel locals math.functions
-sequences tools.test ;
+math.ranges sequences tools.test ;
-
-IN: colors.ryb
 
 { t } [
     0.0 1.0 0.1 <range> [| r |

extra/colors/xyy/xyy-tests.factor

@@ -1,10 +1,8 @@
 ! Copyright (C) 2014 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: arrays colors kernel locals math.functions math.ranges
+USING: arrays colors colors.xyy kernel locals math.functions
-sequences tools.test ;
+math.ranges sequences tools.test ;
-
-IN: colors.xyy
 
 { t } [
     0.0 1.0 0.1 <range> [| r |

extra/colors/xyz/xyz-tests.factor

@@ -1,10 +1,8 @@
 ! Copyright (C) 2014 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: arrays colors kernel locals math.functions math.ranges
+USING: arrays colors colors.xyz kernel locals math.functions
-sequences tools.test ;
+math.ranges sequences tools.test ;
-
-IN: colors.xyz
 
 { t } [
     0.0 1.0 0.1 <range> [| r |

extra/colors/yiq/yiq-tests.factor

@@ -1,10 +1,8 @@
 ! Copyright (C) 2013 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: arrays colors kernel locals math.functions math.ranges
+USING: arrays colors colors.yiq kernel locals math.functions
-sequences tools.test ;
+math.ranges sequences tools.test ;
-
-IN: colors.yiq
 
 { t } [
     0.0 1.0 0.1 <range> [| r |

extra/colors/yuv/yuv-tests.factor

@@ -1,10 +1,8 @@
 ! Copyright (C) 2013 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: arrays colors kernel locals math.functions math.ranges
+USING: arrays colors colors.yuv kernel locals math.functions
-sequences tools.test ;
+math.ranges sequences tools.test ;
-
-IN: colors.yuv
 
 { t } [
     0.0 1.0 0.1 <range> [| r |

extra/combinators/extras/extras-tests.factor

@@ -2,7 +2,6 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: combinators.extras io.files kernel math sequences
 tools.test ;
-IN: combinators.extras.tests
 
 { "a b" }
 [ "a" "b" [ " " glue ] once ] unit-test

extra/ctags/ctags-tests.factor

@@ -1,6 +1,5 @@
 USING: arrays ctags.private io.backend kernel sequences
 tools.test ;
-IN: ctags.tests
 
 { t } [
   "if\t" "resource:extra/unix/unix.factor" normalize-path "\t91" 3append

extra/cuesheet/cuesheet-tests.factor

@@ -1,5 +1,4 @@
-USING: tools.test ;
+USING: cuesheet tools.test ;
-IN: cuesheet
 
 {
     T{ cuesheet

extra/dice/dice-tests.factor

@@ -1,5 +1,4 @@
-USING: kernel math tools.test ;
+USING: dice kernel math tools.test ;
-IN: dice
 
 { [ 1 4 random-roll ] } [ "1d4" roll-quot ] unit-test
 { [ 1 4 random-roll 3 + ] } [ "1d4+3" roll-quot ] unit-test

extra/elf/elf-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2010 Erik Charlebois.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors byte-arrays elf kernel sequences system tools.test ;
-IN: elf.tests
 
 cpu ppc? [
 {

extra/enigma/enigma-tests.factor

@@ -1,8 +1,6 @@
 
 USING: enigma kernel math sequences sorting tools.test ;
 
-IN: enigma.tests
-
 { t } [ <reflector> natural-sort 26 <iota> sequence= ] unit-test
 
 { "" } [ "" 4 <enigma> encode ] unit-test

extra/fftw/fftw-tests.factor

@@ -1,5 +1,4 @@
 USING: fftw tools.test ;
-IN: fftw.tests
 
 {
     { C{ 1.5 0.0 } C{ -0.5 0.0 } }

extra/fjsc/fjsc-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2006 Chris Double. All Rights Reserved.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel tools.test peg fjsc ;
-IN: fjsc.tests
 
 { T{ ast-expression f V{ T{ ast-number f 55 } T{ ast-identifier f "2abc1" } T{ ast-number f 100 } } } } [
   "55 2abc1 100" expression-parser parse

extra/flip-text/flip-text-tests.factor

@@ -3,8 +3,6 @@
 
 USING: flip-text tools.test ;
 
-IN: flip-text.tests
-
 {
     "068Ɫ95ᔭƐᄅ⇂zʎxʍʌnʇsɹbdouɯʃʞɾᴉɥᵷɟǝpɔqɐZ⅄XMΛՈ⊥SᴚΌԀONW⅂KᒋIH⅁ℲƎᗡϽ𐐒∀"
 } [

extra/fuel/eval/eval-tests.factor

@@ -2,7 +2,6 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: continuations fuel fuel.eval io.streams.string kernel math
 namespaces random.data sequences tools.test vocabs.parser ;
-IN: fuel.eval.tests
 
 ! pop-restarts
 { V{ "um" } } [

extra/fuel/help/help-tests.factor

@@ -2,7 +2,6 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: fuel.help fuel.help.private help help.topics sequences
 tools.test ;
-IN: fuel.help.tests
 
 {
     {

extra/fuel/pprint/pprint-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: compiler.errors fuel.pprint io.streams.string tools.test ;
-IN: fuel.pprint.tests
 
 { "(source-file-error nil \"hi\")" } [
     [ "hi" "there" <compiler-error> fuel-pprint ] with-string-writer

extra/gml/gml-tests.factor

@@ -1,5 +1,5 @@
-IN: gml.tests
+USING: accessors combinators gml tools.test kernel sequences
-USING: accessors combinators gml tools.test kernel sequences euler.b-rep ;
+euler.b-rep ;
 
 { } [ [ "vocab:gml/test-core.gml" run-gml-file ] make-gml 2drop ] unit-test
 

extra/gml/viewer/viewer-tests.factor

@@ -1,5 +1,4 @@
 USING: gml.viewer math.vectors.simd.cords tools.test ;
-IN: gml.viewer.tests
 
 { {
     double-4{ 0 0 0 0 }

extra/google/charts/charts-tests.factor

@@ -2,7 +2,6 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors colors.constants google.charts
 google.charts.private kernel math present sequences tools.test ;
-IN: google.charts.tests
 
 ! The order of the constructors below is important, because we
 ! are testing side-effects. If you remove the clone word from

extra/grid-meshes/grid-meshes-tests.factor

@@ -1,4 +1,3 @@
-IN: grid-meshes.tests
 USING: alien.c-types alien.data grid-meshes grid-meshes.private
 specialized-arrays tools.test ;
 SPECIALIZED-ARRAY: float

extra/grouping/extras/extras-tests.factor

@@ -1,5 +1,4 @@
 USING: arrays kernel math math.functions sequences tools.test ;
-IN: grouping.extras
 
 { { } } [ { 1 } [ 2array ] 2clump-map ] unit-test
 { { { 1 2 } } } [ { 1 2 } [ 2array ] 2clump-map ] unit-test

extra/hash-sets/numbers/numbers-tests.factor

@@ -3,8 +3,6 @@
 
 USING: hash-sets.numbers kernel sets tools.test ;
 
-IN: hash-sets.numbers.tests
-
 { t } [ 1.5 NHS{ 3/2 } in? ] unit-test
 
 { NHS{ 3/2 } } [

extra/hashtables/numbers/numbers-tests.factor

@@ -4,8 +4,6 @@
 USING: assocs hashtables.numbers kernel literals sequences
 tools.test ;
 
-IN: hashtables.numbers.tests
-
 { 1000 } [ 3/2 NH{ { 1.5 1000 } } at ] unit-test
 
 { 1001 } [

extra/hello-unicode/hello-unicode-tests.factor

@@ -1,4 +0,0 @@
-! Copyright (C) 2009 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: tools.test hello-unicode ;
-IN: hello-unicode.tests

extra/html/elements/elements-tests.factor

@@ -1,4 +1,3 @@
-IN: html.elements.tests
 USING: tools.test html.elements io.streams.string ;
 
 { "<a href='h&amp;o'>" }

extra/html/parser/analyzer/analyzer-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2010 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: html.parser html.parser.analyzer kernel math sequences tools.test ;
-IN: html.parser.analyzer.tests
 
 { 0 3 }
 [ 1 { 3 5 7 9 11 } [ odd? ] find-nth ] unit-test

extra/html/parser/parser-tests.factor

@@ -1,5 +1,4 @@
 USING: html.parser kernel tools.test ;
-IN: html.parser.tests
 
 {
     V{ T{ tag f "html" H{ } f f } }

extra/html/parser/printer/printer-tests.factor

@@ -1,10 +1,5 @@
-USING:
+USING: html.parser html.parser.printer io.streams.string
-    html.parser html.parser.printer
+namespaces strings tools.test ;
-    io.streams.string
-    namespaces
-    strings
-    tools.test ;
-IN: html.parser.printer.tests
 
 {
     "          "

extra/html/parser/utils/utils-tests.factor

@@ -1,8 +1,4 @@
-USING: assocs combinators continuations hashtables
+USING: html.parser.utils quoting tools.test ;
-hashtables.private io kernel math
-namespaces prettyprint quotations sequences splitting
-strings tools.test html.parser.utils quoting ;
-IN: html.parser.utils.tests
 
 { "'Rome'" } [ "Rome" single-quote ] unit-test
 { "\"Roma\"" } [ "Roma" double-quote ] unit-test

extra/images/bitmap/bitmap-tests.factor

@@ -1,5 +1,4 @@
 USING: images.bitmap images.testing kernel sequences ;
-IN: images.bitmap.tests
 
 ! "vocab:images/testing/bmp/1bit.bmp" bmp-image decode-test
 ! "vocab:images/testing/bmp/rgb_4bit.bmp" bmp-image decode-test

extra/images/pbm/pbm-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2010 Erik Charlebois.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: images.pbm images.testing sequences ;
-IN: images.pbm.tests
 
 {
     "vocab:images/testing/pbm/test.binary.pbm"

extra/images/pgm/pgm-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2010 Erik Charlebois.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: images.testing images.pgm sequences ;
-IN: images.pgm.tests
 
 {
     "vocab:images/testing/pgm/radial.binary.pgm"

extra/images/png/png-tests.factor

@@ -2,7 +2,6 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors images.png images.testing io.directories
 io.encodings.binary io.files kernel sequences tools.test ;
-IN: images.png.tests
 
 ! Test files from PngSuite (http://www.libpng.org/pub/png/pngsuite.html)
 

extra/images/ppm/ppm-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2010 Erik Charlebois.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: images.testing images.ppm sequences ;
-IN: images.ppm.tests
 
 {
     "vocab:images/testing/ppm/binary.ppm"

extra/images/tiff/tiff-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: images.testing images.tiff sequences ;
-IN: images.tiff.tests
 
 {
     "vocab:images/testing/tiff/octagon.tiff"

extra/ini-file/ini-file-tests.factor

@@ -3,8 +3,6 @@
 
 USING: ini-file tools.test ;
 
-IN: ini-file.tests
-
 { H{ } } [ "" string>ini ] unit-test
 
 { H{ { "section" H{ } } } } [ "[section]" string>ini ] unit-test

extra/io/binary/fast/fast-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2011 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: tools.test io.binary.fast ;
-IN: io.binary.fast.tests
 
 { 0x0102 } [ B{ 01 02 } 2be> ] unit-test
 { 0x01020304 } [ B{ 01 02 03 04 } 4be> ] unit-test

extra/io/encodings/detect/detect-tests.factor

@@ -4,7 +4,6 @@ USING: byte-arrays io.encodings.8-bit.koi8-r
 io.encodings.8-bit.latin1 io.encodings.binary
 io.encodings.detect io.encodings.utf16 io.encodings.utf32
 io.encodings.utf8 namespaces tools.test ;
-IN: io.encodings.detect.tests
 
 ! UTF encodings with BOMs
 { utf16be } [ B{ 0xFE 0xFF 0x00 0x31 0x00 0x32 0x00 0x33 } detect-byte-array ] unit-test

extra/io/streams/peek/peek-tests.factor

@@ -4,7 +4,6 @@ USING: byte-arrays destructors io io.encodings.ascii
 io.encodings.binary io.files io.streams.byte-array
 io.streams.memory io.streams.peek io.streams.string kernel make
 namespaces sequences strings tools.test ;
-IN: io.streams.peek.tests
 
 { CHAR: a }
 [ "abc" <string-reader> <peek-stream> stream-read1 ] unit-test

extra/irc/messages/messages-tests.factor

@@ -1,8 +1,6 @@
 ! Copyright (C) 2009 Bruno Deferrari
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors irc.messages irc.messages.parser tools.test ;
-IN: irc.messages.tests
-
 
 ! { "someuser" } [ "someuser!n=user@some.where" parse-name ] unit-test
 

extra/jamshred/oint/oint-tests.factor

@@ -1,5 +1,4 @@
 USING: jamshred.oint tools.test ;
-IN: jamshred.oint.tests
 
 { { 0 -1 -1 } } [ { 0 1 -1 } { 0 -1 0 } reflect ] unit-test
 { { 0 1 0 } } [ { 1 1 0 } { 1 0 0 } proj-perp ] unit-test

extra/literate/literate-tests.factor

@@ -1,5 +1,4 @@
-USING: eval kernel math tools.test ;
+USING: eval kernel literate math tools.test ;
-IN: literate
 
 { 2 3 t } [
 <LITERATE

extra/llvm/ffi/ffi-tests.factor

@@ -1,6 +1,5 @@
 ! Copyright (C) 2017 Björn Lindqvist
 USING: kernel llvm.ffi tools.test ;
-IN: llvm.ffi.tests
 
 { } [
     "my_module" LLVMModuleCreateWithName

extra/llvm/llvm-tests.factor

@@ -1,5 +1,4 @@
 USING: kernel literals llvm llvm.ffi system tools.test ;
-IN: llvm.tests
 
 ${ cpu x86.64? "x86-64" "x86-32" ? } [
     initialize-native-target

extra/llvm/reader/reader-tests.factor

@@ -1,5 +1,4 @@
 USING: io.pathnames llvm.reader llvm.wrappers tools.test ;
-IN: llvm.reader.tests
 
 { t } [
     "resource:extra/llvm/wrappers/add.bc" absolute-path load-module

extra/machine-learning/decision-trees/decision-trees-tests.factor

@@ -2,7 +2,6 @@
 ! See http://factorcode.org/license.txt for BSD license
 USING: kernel machine-learning.data-sets
 machine-learning.decision-trees math.extras sequences tools.test ;
-IN: machine-learning.decision-trees.tests
 
 { { 0.08 0.01 0.0 0.03 0.29 0.0 } } [
     "monks-1.train" load-monks

extra/machine-learning/functions/functions-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2017 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: tools.test machine-learning.functions ;
-IN: machine-learning.functions.tests
 
 { 0 } [ 0 relu ] unit-test
 { .5 .000001 } [ .5 relu ] unit-test~

extra/machine-learning/label-binarizer/label-binarizer-tests.factor

@@ -2,7 +2,6 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel machine-learning.label-binarizer
 machine-learning.transformer tools.test ;
-IN: machine-learning.label-binarizer.tests
 
 { { { 1 0 0 0 } { 0 0 0 1 } } } [
     <label-binarizer> { 1 2 6 4 2 } over fit-y

extra/machine-learning/label-encoder/label-encoder-tests.factor

@@ -2,7 +2,6 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel machine-learning.label-encoder
 machine-learning.transformer tools.test ;
-IN: machine-learning.label-encoder.tests
 
 { { 1 3 2 4 } } [
     <label-encoder> { 1 2 3 4 3 2 3 2 2 3 2 } over fit-y

extra/machine-learning/rebalancing/rebalancing-tests.factor

@@ -3,7 +3,6 @@
 USING: assocs kernel machine-learning.rebalancing math
 math.statistics math.text.english sequences tools.test
 math.vectors ;
-IN: machine-learning.rebalancing.tests
 
 { t } [
     { 1 1 1 2 } [ [ number>text ] map ] [ ] bi

extra/magic/magic-tests.factor

@@ -1,5 +1,4 @@
 USING: magic system tools.test ;
-IN: magic.tests
 
 { "data" } [ image-path guess-file ] unit-test
 { "application/octet-stream" } [ image-path guess-mime-type ] unit-test

extra/mason/child/child-tests.factor

@@ -1,6 +1,5 @@
 USING: io io.pathnames kernel mason.child mason.config
 namespaces sequences system tools.test ;
-IN: mason.child.tests
 
 { t } [
     H{

extra/mason/common/common-tests.factor

@@ -1,7 +1,5 @@
-IN: mason.common.tests
+USING: prettyprint mason.common mason.config namespaces calendar
-USING: prettyprint mason.common mason.config
+tools.test io.files io.files.temp io.encodings.utf8 sequences ;
-namespaces calendar tools.test io.files
-io.files.temp io.encodings.utf8 sequences ;
 
 { "00:01:02" } [ 62,000,000,000 nanos>time ] unit-test
 

extra/mason/disk/disk-tests.factor

@@ -1,6 +1,5 @@
 USING: mason.config mason.disk namespaces io.directories
 io.files.temp tools.test strings sequences ;
-IN: mason.disk.tests
 
 "builds" temp-file builds-dir [
     builds-dir get make-directories

extra/mason/email/email-tests.factor

@@ -1,4 +1,3 @@
-IN: mason.email.tests
 USING: mason.email mason.common mason.config namespaces
 tools.test system ;
 

extra/mason/platform/platform-tests.factor

@@ -1,21 +1,20 @@
 USING: mason.config mason.platform namespaces tools.test
 strings system ;
-IN: mason.platform.tests
 
 { t } [ platform string? ] unit-test
 
-[
+{ "linux-x86-32" } [
-    linux target-os set
+    H{
-    x86.32 target-cpu set
+        { target-os linux }
-    f target-variant set
+        { target-cpu x86.32 }
+        { target-variant f }
+    } [ platform ] with-variables
+] unit-test
 
-    [ "linux-x86-32" ] [ platform ] unit-test
+{ "windows-x86-32-xp" } [
-] with-scope
+    H{
-
+        { target-os windows }
-[
+        { target-cpu x86.32 }
-    windows target-os set
+        { target-variant "xp" }
-    x86.32 target-cpu set
+    } [ platform ] with-variables
-    "xp" target-variant set
+] unit-test
-
-    [ "windows-x86-32-xp" ] [ platform ] unit-test
-] with-scope

extra/mason/release/archive/archive-tests.factor

@@ -1,6 +1,4 @@
-USING: system tools.test ;
+USING: mason.release.archive system tools.test ;
-
-IN: mason.release.archive
 
 { ".dmg" } [ macosx extension ] unit-test
 { ".dmg" } [ "macosx" extension ] unit-test

extra/mason/release/branch/branch-tests.factor

@@ -1,4 +1,3 @@
-IN: mason.release.branch.tests
 USING: mason.release.branch mason.config tools.test namespaces
 system ;
 

extra/mason/release/upload/upload-tests.factor

@@ -1,2 +0,0 @@
-IN: mason.release.upload.tests
-USING: mason.release.upload tools.test ;

extra/math/affine-transforms/affine-transforms-tests.factor

@@ -1,7 +1,6 @@
 ! (c)2009 Joe Groff, see BSD license
 USING: arrays kernel literals tools.test math math.affine-transforms
 math.constants math.functions ;
-IN: math.affine-transforms.tests
 
 { { 7.25 4.25 } } [
     { 0.75 0.75 } { 0.75 -0.75 } { 5.0 5.0 } <affine-transform>

extra/math/approx/approx-tests.factor

@@ -4,8 +4,6 @@
 USING: kernel math math.approx math.constants
 math.floating-point sequences tools.test ;
 
-IN: math.approx.tests
-
 { { 3 3 13/4 16/5 19/6 22/7 } }
 [
     pi double>ratio

extra/math/binpack/binpack-tests.factor

@@ -3,8 +3,6 @@
 
 USING: kernel tools.test sequences ;
 
-IN: math.binpack
-
 { { V{ } } } [ { } 1 binpack ] unit-test
 
 { { V{ 3 } V{ 2 1 } } } [ { 1 2 3 } 2 binpack ] unit-test

extra/math/blas/matrices/matrices-tests.factor

@@ -1,6 +1,5 @@
 USING: kernel math.blas.matrices math.blas.vectors
 sequences tools.test ;
-IN: math.blas.matrices.tests
 
 ! clone
 

extra/math/blas/vectors/vectors-tests.factor

@@ -1,5 +1,4 @@
 USING: kernel math.blas.vectors math.functions sequences tools.test ;
-IN: math.blas.vectors.tests
 
 ! clone
 

extra/math/combinatorics/bits/bits-tests.factor

@@ -1,5 +1,4 @@
-USING: math tools.test ;
+USING: math math.combinatorics.bits tools.test ;
-IN: math.combinatorics.bits
 
 { 0b101 } [ 0b011 next-permutation-bits ] unit-test
 { 0b110 } [ 0b101 next-permutation-bits ] unit-test

extra/math/combinators/combinators-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2013 Loryn Jenkins.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel math math.combinators tools.test ;
-IN: math.combinators.tests
 
 { 0 } [ -3 [ drop 0 ] when-negative ] unit-test
 { -2 } [ -3 [ 1 + ] when-negative ] unit-test

extra/math/compare/compare-tests.factor

@@ -1,8 +1,6 @@
 USING: kernel math math.compare math.functions sequences
 tools.test ;
 
-IN: math.compare.tests
-
 { -1 } [ -1 5 absmin ] unit-test
 { -1 } [ -1 -5 absmin ] unit-test
 

extra/math/distances/distances-tests.factor

@@ -3,8 +3,6 @@
 
 USING: kernel math.distances math.functions tools.test ;
 
-IN: math.distances.tests
-
 { 1 } [ "hello" "jello" hamming-distance ] unit-test
 
 { 0.0 } [ { 1 2 3 } dup cosine-distance ] unit-test

extra/math/dual/dual-tests.factor

@@ -1,8 +1,7 @@
 ! Copyright (C) 2009 Jason W. Merrill.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: tools.test math.dual kernel accessors math math.functions
-    math.constants ;
+math.constants ;
-IN: math.dual.tests
 
 { 0.0 1.0 } [ 0 1 <dual> dsin unpack-dual ] unit-test
 { 1.0 0.0 } [ 0 1 <dual> dcos unpack-dual ] unit-test

extra/math/extras/extras-tests.factor

@@ -4,8 +4,6 @@
 USING: arrays kernel math math.extras math.ranges sequences
 tools.test ;
 
-IN: math.extras.tests
-
 { { 1 -1/2 1/6 0 -1/30 0 1/42 0 -1/30 0 } }
 [ 10 <iota> [ bernoulli ] map ] unit-test
 

extra/math/factorials/factorials-tests.factor

@@ -1,5 +1,4 @@
-USING: kernel math.functions math.ranges sequences tools.test ;
+USING: kernel math.factorials math.functions math.ranges sequences tools.test ;
-IN: math.factorials
 
 { 1 } [ -1 factorial ] unit-test ! not necessarily correct
 { 1 } [ 0 factorial ] unit-test

extra/math/finance/finance-tests.factor

@@ -1,8 +1,6 @@
 USING: kernel math math.functions math.finance sequences
 tools.test ;
 
-IN: math.finance.tests
-
 { { 1 2 3 4 5 } } [ { 1 2 3 4 5 } 1 ema ] unit-test
 { { 1+1/2 2+1/2 3+1/2 4+1/2 } } [ { 1 2 3 4 5 } 2 ema ] unit-test
 { { 2 3 4 } } [ { 1 2 3 4 5 } 3 ema ] unit-test

extra/math/hashcodes/hashcodes-tests.factor

@@ -1,9 +1,8 @@
 ! Copyright (C) 2013 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: arrays kernel grouping math sequences tools.test ;
+USING: arrays kernel grouping math math.hashcodes sequences
-
+tools.test ;
-IN: math.hashcodes
 
 { t } [
     12 dup >bignum 12.0 12 0 complex boa 4array

extra/math/matrices/laplace/laplace-tests.factor

@@ -1,7 +1,6 @@
 ! Copyright (C) 2013 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: tools.test kernel ;
+USING: math.matrices.laplace tools.test kernel ;
-IN: math.matrices.laplace
 
 { -2 } [ { { 1 2 } { 3 4 } } determinant ] unit-test