more test IN: cleanup.

windows-high-dpi
John Benediktsson 2018-02-15 08:45:08 -08:00
parent d38fe7a92c
commit 4a144e5ea7
143 changed files with 77 additions and 267 deletions

View File

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

View File

@ -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 { t } [ make-24 first4 makes-24? ] unit-test

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -1,7 +1,6 @@
! Copyright (C) 2009 Doug Coleman. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: calendar.holidays calendar.holidays.canada kernel 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

View File

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

View File

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

View File

@ -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

View File

@ -1,10 +1,8 @@
! Copyright (C) 2013 John Benediktsson ! Copyright (C) 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! 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 } [ { t } [
0.0 1.0 0.1 <range> [| r | 0.0 1.0 0.1 <range> [| r |

View File

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

View File

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

View File

@ -1,10 +1,8 @@
! Copyright (C) 2013 John Benediktsson ! Copyright (C) 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! 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 } [ { t } [
0.0 1.0 0.1 <range> [| r | 0.0 1.0 0.1 <range> [| r |

View File

@ -1,10 +1,8 @@
! Copyright (C) 2014 John Benediktsson ! Copyright (C) 2014 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! 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 } [ { t } [
0.0 1.0 0.1 <range> [| r | 0.0 1.0 0.1 <range> [| r |

View File

@ -1,10 +1,8 @@
! Copyright (C) 2014 John Benediktsson ! Copyright (C) 2014 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! 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 } [ { t } [
0.0 1.0 0.1 <range> [| r | 0.0 1.0 0.1 <range> [| r |

View File

@ -1,10 +1,8 @@
! Copyright (C) 2014 John Benediktsson ! Copyright (C) 2014 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! 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 } [ { t } [
0.0 1.0 0.1 <range> [| r | 0.0 1.0 0.1 <range> [| r |

View File

@ -1,10 +1,8 @@
! Copyright (C) 2013 John Benediktsson ! Copyright (C) 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! 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 } [ { t } [
0.0 1.0 0.1 <range> [| r | 0.0 1.0 0.1 <range> [| r |

View File

@ -1,10 +1,8 @@
! Copyright (C) 2014 John Benediktsson ! Copyright (C) 2014 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! 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 } [ { t } [
0.0 1.0 0.1 <range> [| r | 0.0 1.0 0.1 <range> [| r |

View File

@ -1,10 +1,8 @@
! Copyright (C) 2014 John Benediktsson ! Copyright (C) 2014 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! 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 } [ { t } [
0.0 1.0 0.1 <range> [| r | 0.0 1.0 0.1 <range> [| r |

View File

@ -1,10 +1,8 @@
! Copyright (C) 2013 John Benediktsson ! Copyright (C) 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! 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 } [ { t } [
0.0 1.0 0.1 <range> [| r | 0.0 1.0 0.1 <range> [| r |

View File

@ -1,10 +1,8 @@
! Copyright (C) 2013 John Benediktsson ! Copyright (C) 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! 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 } [ { t } [
0.0 1.0 0.1 <range> [| r | 0.0 1.0 0.1 <range> [| r |

View File

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

View File

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

View File

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

View File

@ -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 ] } [ "1d4" roll-quot ] unit-test
{ [ 1 4 random-roll 3 + ] } [ "1d4+3" roll-quot ] unit-test { [ 1 4 random-roll 3 + ] } [ "1d4+3" roll-quot ] unit-test

View File

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

View File

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

View File

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

View File

@ -1,7 +1,6 @@
! Copyright (C) 2006 Chris Double. All Rights Reserved. ! Copyright (C) 2006 Chris Double. All Rights Reserved.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel tools.test peg fjsc ; 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 } } } } [ { 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 "55 2abc1 100" expression-parser parse

View File

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

View File

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

View File

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

View File

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

View File

@ -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 { } [ [ "vocab:gml/test-core.gml" run-gml-file ] make-gml 2drop ] unit-test

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -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

View File

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

View File

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

View File

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

View File

@ -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
{ {
" " " "

View File

@ -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 { "'Rome'" } [ "Rome" single-quote ] unit-test
{ "\"Roma\"" } [ "Roma" double-quote ] unit-test { "\"Roma\"" } [ "Roma" double-quote ] unit-test

View File

@ -1,5 +1,4 @@
USING: images.bitmap images.testing kernel sequences ; 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/1bit.bmp" bmp-image decode-test
! "vocab:images/testing/bmp/rgb_4bit.bmp" bmp-image decode-test ! "vocab:images/testing/bmp/rgb_4bit.bmp" bmp-image decode-test

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -1,5 +1,4 @@
USING: jamshred.oint tools.test ; USING: jamshred.oint tools.test ;
IN: jamshred.oint.tests
{ { 0 -1 -1 } } [ { 0 1 -1 } { 0 -1 0 } reflect ] unit-test { { 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 { { 0 1 0 } } [ { 1 1 0 } { 1 0 0 } proj-perp ] unit-test

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -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 { "00:01:02" } [ 62,000,000,000 nanos>time ] unit-test

View File

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

View File

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

View File

@ -1,21 +1,20 @@
USING: mason.config mason.platform namespaces tools.test USING: mason.config mason.platform namespaces tools.test
strings system ; strings system ;
IN: mason.platform.tests
{ t } [ platform string? ] unit-test { 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

View File

@ -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
{ ".dmg" } [ "macosx" extension ] unit-test { ".dmg" } [ "macosx" extension ] unit-test

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -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 { 0b101 } [ 0b011 next-permutation-bits ] unit-test
{ 0b110 } [ 0b101 next-permutation-bits ] unit-test { 0b110 } [ 0b101 next-permutation-bits ] unit-test

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -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 } [ -1 factorial ] unit-test ! not necessarily correct
{ 1 } [ 0 factorial ] unit-test { 1 } [ 0 factorial ] unit-test

View File

@ -1,8 +1,6 @@
USING: kernel math math.functions math.finance sequences USING: kernel math math.functions math.finance sequences
tools.test ; tools.test ;
IN: math.finance.tests
{ { 1 2 3 4 5 } } [ { 1 2 3 4 5 } 1 ema ] unit-test { { 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 { { 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 { { 2 3 4 } } [ { 1 2 3 4 5 } 3 ema ] unit-test

View File

@ -1,9 +1,8 @@
! Copyright (C) 2013 John Benediktsson ! Copyright (C) 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! 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 } [ { t } [
12 dup >bignum 12.0 12 0 complex boa 4array 12 dup >bignum 12.0 12 0 complex boa 4array

View File

@ -1,7 +1,6 @@
! Copyright (C) 2013 Doug Coleman. ! Copyright (C) 2013 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! 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 { -2 } [ { { 1 2 } { 3 4 } } determinant ] unit-test

Some files were not shown because too many files have changed in this diff Show More