extra: remove some unneeded IN: in -tests.
John Benediktsson
parent
f234ed8ff8
commit
6890ec3fe4
|
|
@ -1,6 +1,5 @@
|
|||
! Copyright (C) 2009 Joe Groff.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: qw tools.test ;
|
||||
IN: qw.tests
|
||||
|
||||
{ { "zippity" "doo" "dah" } } [ qw{ zippity doo dah } ] unit-test
|
||||
|
|
|
|||
|
|
@ -2,7 +2,6 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: calendar io.encodings.utf8 io.files robots tools.test
|
||||
urls ;
|
||||
IN: robots.tests
|
||||
|
||||
{
|
||||
{ "http://www.chiplist.com/sitemap.txt" }
|
||||
|
|
|
|||
|
|
@ -1,7 +1,5 @@
|
|||
|
||||
USING: tools.test ;
|
||||
|
||||
IN: rot13
|
||||
USING: rot13 tools.test ;
|
||||
|
||||
{ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" } [
|
||||
"NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm" rot13
|
||||
|
|
|
|||
|
|
@ -1,5 +1,4 @@
|
|||
USING: assocs sequences.abbrev tools.test ;
|
||||
IN: sequences.abbrev.tests
|
||||
|
||||
{ { "hello" "help" } } [
|
||||
"he" { "apple" "hello" "help" } abbrev at
|
||||
|
|
|
|||
|
|
@ -1,7 +1,6 @@
|
|||
USING: accessors arrays ascii io io.streams.string kernel make
|
||||
math math.vectors random sequences sequences.extras strings
|
||||
tools.test vectors vocabs ;
|
||||
IN: sequences.extras.tests
|
||||
|
||||
{ V{ { 0 104 } { 2 108 } { 3 108 } } } [ "hello" [ even? ] find-all ] unit-test
|
||||
|
||||
|
|
|
|||
|
|
@ -2,7 +2,6 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: assocs kernel sequences sequences.inserters tools.test
|
||||
unicode ;
|
||||
IN: sequences.inserters.tests
|
||||
|
||||
{ V{ 1 2 "Three" "Four" "Five" } } [
|
||||
{ "three" "four" "five" }
|
||||
|
|
|
|||
|
|
@ -1,5 +1,4 @@
|
|||
USING: accessors arrays kernel sequences sequences.modified tools.test ;
|
||||
IN: sequences.modified.tests
|
||||
|
||||
{ { 2 4 6 } } [ { 1 2 3 } 2 scale ] unit-test
|
||||
{ { 1 4 3 } } [ { 1 2 3 } 2 <scaled> 8 1 pick set-nth seq>> ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,5 +1,4 @@
|
|||
USING: sequences.repeating tools.test ;
|
||||
IN: sequences.repeating.tests
|
||||
|
||||
{ { 1 2 3 1 2 } } [ { 1 2 3 } 5 cycle ] unit-test
|
||||
{ { 1 2 3 1 2 3 1 2 3 } } [ { 1 2 3 } 9 cycle ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,7 +1,6 @@
|
|||
! Copyright (C) 2012 John Benediktsson
|
||||
! See http://factorcode.org/license.txt for BSD license
|
||||
USING: strings tools.test ;
|
||||
IN: sequences.rotated
|
||||
|
||||
{ "fasd" } [ "asdf" -1 <rotated> >string ] unit-test
|
||||
{ "sdfa" } [ "asdf" 1 <rotated> >string ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,7 +1,6 @@
|
|||
! Copyright (C) 2013 John Benediktsson
|
||||
! See http://factorcode.org/license.txt for BSD license
|
||||
USING: arrays sequences tools.test ;
|
||||
IN: sequences.shifted
|
||||
|
||||
{ { 1 2 3 7 } } [ 4 <iota> -1 7 <shifted> >array ] unit-test
|
||||
{ { 7 0 1 2 } } [ 4 <iota> 1 7 <shifted> >array ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,7 +1,6 @@
|
|||
! Copyright (C) 2013 John Benediktsson
|
||||
! See http://factorcode.org/license.txt for BSD license
|
||||
USING: arrays sequences tools.test ;
|
||||
IN: sequences.snipped
|
||||
|
||||
{ { 0 1 2 5 6 } } [ 3 5 7 <iota> <snipped> >array ] unit-test
|
||||
{ { 0 1 2 } } [ 3 10 7 <iota> <snipped> >array ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,6 +1,5 @@
|
|||
! (c)2009 Slava Pestov & Joe Groff, see BSD license
|
||||
USING: kernel sequences sequences.squish tools.test vectors ;
|
||||
IN: sequences.squish.tests
|
||||
|
||||
{ { { 1 2 3 } { 4 } { 5 6 } } } [
|
||||
V{ { 1 2 3 } V{ { 4 } { 5 6 } } }
|
||||
|
|
|
|||
|
|
@ -1,7 +1,6 @@
|
|||
! Copyright (C) 2012 John Benediktsson
|
||||
! See http://factorcode.org/license.txt for BSD license
|
||||
USING: arrays tools.test ;
|
||||
IN: sequences.zipped
|
||||
|
||||
{ { { 1 4 } { 2 5 } { 3 6 } } }
|
||||
[ { 1 2 3 } { 4 5 6 } <zipped> >array ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,5 +1,4 @@
|
|||
USING: kernel tools.test ;
|
||||
IN: sorting.bubble
|
||||
|
||||
{ { } } [ { } dup natural-bubble-sort! ] unit-test
|
||||
{ { 1 } } [ { 1 } dup natural-bubble-sort! ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,5 +1,4 @@
|
|||
USING: kernel sequences tools.test ;
|
||||
IN: sorting.heap
|
||||
|
||||
{ { } } [ { } heapsort ] unit-test
|
||||
{ { 1 } } [ { 1 } heapsort ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,5 +1,4 @@
|
|||
USING: kernel sequences tools.test ;
|
||||
IN: sorting.quick
|
||||
|
||||
{ { } } [ { } dup natural-sort! ] unit-test
|
||||
{ { 1 } } [ { 1 } dup natural-sort! ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,8 +1,6 @@
|
|||
|
||||
USING: ascii kernel math sequences strings tools.test ;
|
||||
|
||||
IN: splitting.extras
|
||||
|
||||
{ { } } [ { } { 0 } split* ] unit-test
|
||||
{ { { 1 2 3 } } } [ { 1 2 3 } { 0 } split* ] unit-test
|
||||
{ { { 0 } } } [ { 0 } { 0 } split* ] unit-test
|
||||
|
|
|
|||
|
|
@ -3,8 +3,6 @@
|
|||
|
||||
USING: successor tools.test ;
|
||||
|
||||
IN: successor
|
||||
|
||||
[ "" ] [ "" successor ] unit-test
|
||||
[ "abce" ] [ "abcd" successor ] unit-test
|
||||
[ "THX1139" ] [ "THX1138" successor ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,7 +1,5 @@
|
|||
USING: synth tools.test ;
|
||||
|
||||
IN: synth.tests
|
||||
|
||||
{
|
||||
{
|
||||
0.0
|
||||
|
|
|
|||
|
|
@ -1,5 +1,4 @@
|
|||
USING: calendar tools.cal.private tools.test ;
|
||||
IN: tools.cal.tests
|
||||
|
||||
{
|
||||
" October 2010 "
|
||||
|
|
|
|||
|
|
@ -1,8 +1,5 @@
|
|||
|
||||
USING: tools.test txon ;
|
||||
|
||||
IN: txon.tests
|
||||
|
||||
{ "ABC" } [ "ABC" >txon ] unit-test
|
||||
|
||||
{ "A\\`C" } [ "A`C" >txon ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,4 +0,0 @@
|
|||
! Copyright (C) 2017 Alexander Ilin.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: tools.test ui.gadgets.charts ;
|
||||
IN: ui.gadgets.charts.tests
|
||||
|
|
@ -3,7 +3,6 @@
|
|||
USING: kernel math math.ratios sequences tools.test
|
||||
ui.gadgets.charts.lines ui.gadgets.charts.lines.private
|
||||
ui.gadgets.charts.utils ;
|
||||
IN: ui.gadgets.charts.lines.tests
|
||||
|
||||
{ -2/3 } [ { 1 3 } { -2 5 } calc-line-slope ] unit-test
|
||||
[ { 5 0 } { 5 5 } calc-line-slope ] [ division-by-zero? ] must-fail-with
|
||||
|
|
|
|||
|
|
@ -1,5 +1,6 @@
|
|||
IN: ui.gadgets.lists.tests
|
||||
USING: ui.gadgets.lists models prettyprint math tools.test
|
||||
kernel ;
|
||||
|
||||
{ } [ [ drop ] [ 3 + . ] f <model> <list> invoke-value-action ] unit-test
|
||||
{ } [
|
||||
[ drop ] [ 3 + . ] f <model> <list> invoke-value-action
|
||||
] unit-test
|
||||
|
|
|
|||
|
|
@ -1,5 +1,4 @@
|
|||
USING: kernel math tools.test units.imperial inverse ;
|
||||
IN: units.imperial.tests
|
||||
|
||||
{ 1 } [ 12 inches [ feet ] undo ] unit-test
|
||||
{ 12 } [ 1 feet [ inches ] undo ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,6 +1,5 @@
|
|||
USING: kernel tools.test units.si inverse math.constants
|
||||
math.functions units.imperial ;
|
||||
IN: units.si.tests
|
||||
|
||||
{ t } [ 1 m 100 cm = ] unit-test
|
||||
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
USING: kernel tools.test ;
|
||||
IN: uu
|
||||
IN: uu.tests
|
||||
|
||||
CONSTANT: plain
|
||||
"The smooth-scaled python crept over the sleeping dog"
|
||||
|
|
|
|||
|
|
@ -1,5 +1,4 @@
|
|||
USING: calendar tools.test urls wikipedia.private ;
|
||||
IN: wikipedia.tests
|
||||
|
||||
{
|
||||
URL" http://en.wikipedia.org/wiki/October_10"
|
||||
|
|
|
|||
|
|
@ -1,7 +1,6 @@
|
|||
! Copyright (C) 2010 Dmitry Shubin.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: tools.test z-algorithm ;
|
||||
IN: z-algorithm.tests
|
||||
|
||||
{ 0 } [ "qwerty" "" lcp ] unit-test
|
||||
{ 0 } [ "qwerty" "asdf" lcp ] unit-test
|
||||
|
|
|
|||
|
|
@ -1,7 +1,6 @@
|
|||
! Copyright (C) 2011-2013 Eungju PARK, John Benediktsson.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: destructors sequences tools.test zeromq ;
|
||||
IN: zeromq.tests
|
||||
|
||||
{ t } [
|
||||
zmq-msg-size { 32 48 64 } member?
|
||||
|
|
|
|||
|
|
@ -1,7 +1,6 @@
|
|||
! Copyright (C) 2013 Doug Coleman.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel sequences tools.test zoneinfo ;
|
||||
IN: zoneinfo.tests
|
||||
|
||||
{ t } [ "PST8PDT" find-zone-rules and >boolean ] unit-test
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue