! 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
! 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" }
-USING: tools.test ;
-
-IN: rot13
+USING: rot13 tools.test ;
{ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" } [
"NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm" rot13
USING: assocs sequences.abbrev tools.test ;
-IN: sequences.abbrev.tests
{ { "hello" "help" } } [
"he" { "apple" "hello" "help" } abbrev at
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
! 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" }
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
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
! 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
! 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
! 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
! (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 } } }
! 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
USING: kernel tools.test ;
-IN: sorting.bubble
{ { } } [ { } dup natural-bubble-sort! ] unit-test
{ { 1 } } [ { 1 } dup natural-bubble-sort! ] unit-test
USING: kernel sequences tools.test ;
-IN: sorting.heap
{ { } } [ { } heapsort ] unit-test
{ { 1 } } [ { 1 } heapsort ] unit-test
USING: kernel sequences tools.test ;
-IN: sorting.quick
{ { } } [ { } dup natural-sort! ] unit-test
{ { 1 } } [ { 1 } dup natural-sort! ] unit-test
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
USING: successor tools.test ;
-IN: successor
-
[ "" ] [ "" successor ] unit-test
[ "abce" ] [ "abcd" successor ] unit-test
[ "THX1139" ] [ "THX1138" successor ] unit-test
USING: synth tools.test ;
-IN: synth.tests
-
{
{
0.0
USING: calendar tools.cal.private tools.test ;
-IN: tools.cal.tests
{
" October 2010 "
-
USING: tools.test txon ;
-IN: txon.tests
-
{ "ABC" } [ "ABC" >txon ] unit-test
{ "A\\`C" } [ "A`C" >txon ] unit-test
+++ /dev/null
-! 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
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
-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
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
USING: kernel tools.test units.si inverse math.constants
math.functions units.imperial ;
-IN: units.si.tests
{ t } [ 1 m 100 cm = ] unit-test
USING: kernel tools.test ;
-IN: uu
+IN: uu.tests
CONSTANT: plain
"The smooth-scaled python crept over the sleeping dog"
USING: calendar tools.test urls wikipedia.private ;
-IN: wikipedia.tests
{
URL" http://en.wikipedia.org/wiki/October_10"
! 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
! 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?
! 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
projects / factor.git / commitdiff