USING: delegate kernel arrays tools.test words math definitions
compiler.units parser generic prettyprint io.streams.string
-accessors ;
+accessors eval ;
IN: delegate.tests
TUPLE: hello this that ;
IN: help.crossref.tests
USING: help.crossref help.topics help.markup tools.test words
definitions assocs sequences kernel namespaces parser arrays
-io.streams.string continuations debugger compiler.units ;
+io.streams.string continuations debugger compiler.units eval ;
[ ] [
"IN: help.crossref.tests USING: help.syntax help.markup ; : foo ; HELP: foo \"foo is great\" ; ARTICLE: \"foo\" \"Foo\" { $subsection foo } ;" eval
USING: math definitions help.topics help tools.test
prettyprint parser io.streams.string kernel source-files
-assocs namespaces words io sequences ;
+assocs namespaces words io sequences eval ;
IN: help.definitions.tests
[ ] [ \ + >link see ] unit-test
IN: help.syntax.tests
-USING: tools.test parser vocabs help.syntax namespaces ;
+USING: tools.test parser vocabs help.syntax namespaces eval ;
[
[ "foobar" ] [
USING: definitions help help.topics help.crossref help.markup
help.syntax kernel sequences tools.test words parser namespaces
-assocs source-files ;
+assocs source-files eval ;
IN: help.topics.tests
! Test help cross-referencing
continuations generic.standard sorting assocs definitions
prettyprint io inspector classes.tuple classes.union
classes.predicate debugger threads.private io.streams.string
-io.timeouts io.thread sequences.private destructors ;
+io.timeouts io.thread sequences.private destructors eval ;
IN: inference.tests
[ ] [ [ 1 ] dataflow [ ] transform-nodes drop ] unit-test
\r
100 malloc "block" set\r
\r
-[ t ] [ "block" get mallocs get key? ] unit-test\r
+[ t ] [ "block" get mallocs key? ] unit-test\r
\r
[ ] [ [ "block" get &free drop ] with-destructors ] unit-test\r
\r
-[ f ] [ "block" get mallocs get key? ] unit-test\r
+[ f ] [ "block" get mallocs key? ] unit-test\r
USING: io io.streams.string io.streams.duplex listener
tools.test parser math namespaces continuations vocabs kernel
-compiler.units ;
+compiler.units eval ;
IN: listener.tests
: hello "Hi" print ; parsing
IN: macros.tests
USING: tools.test macros math kernel arrays
-vectors io.streams.string prettyprint parser ;
+vectors io.streams.string prettyprint parser eval ;
MACRO: see-test ( a b -- c ) + ;
! Copyright (C) 2007 Slava Pestov, Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: math kernel memoize tools.test parser
-prettyprint io.streams.string sequences ;
+prettyprint io.streams.string sequences eval ;
IN: memoize.tests
MEMO: fib ( m -- n )
USING: mirrors tools.test assocs kernel arrays accessors words
-namespaces math slots parser ;
+namespaces math slots parser eval ;
IN: mirrors.tests
TUPLE: foo bar baz ;
kernel math namespaces parser prettyprint prettyprint.config
prettyprint.sections sequences tools.test vectors words
effects splitting generic.standard prettyprint.private
-continuations generic compiler.units tools.walker ;
+continuations generic compiler.units tools.walker eval ;
IN: prettyprint.tests
[ "4" ] [ 4 unparse ] unit-test
: string-layout
{
- "USING: io kernel lexer ;"
+ "USING: debugger io kernel lexer ;"
"IN: prettyprint.tests"
": string-layout-test ( error -- )"
" \"Expected \" write dup unexpected-want expected>string write"
-USING: kernel symbols tools.test parser generic words accessors ;
+USING: kernel symbols tools.test parser generic words accessors
+eval ;
IN: symbols.tests
[ ] [ SYMBOLS: a b c ; ] unit-test
-USING: tools.test tools.annotations math parser ;
+USING: tools.test tools.annotations math parser eval ;
IN: tools.annotations.tests
: foo ;
: bootstrap-profile ( -- profile )
{
+ { "threads" deploy-threads? }
{ "math" deploy-math? }
{ "compiler" deploy-compiler? }
{ "ui" deploy-ui? }
QUALIFIED: listener
QUALIFIED: prettyprint.config
QUALIFIED: source-files
-QUALIFIED: threads
QUALIFIED: vocabs
IN: tools.deploy.shaker
} %
deploy-threads? [
- threads:initial-thread ,
+ "initial-thread" "threads" lookup ,
] unless
strip-io? [ io.backend:io-backend , ] when
tools.test vectors words quotations classes
classes.private classes.union classes.mixin classes.predicate
classes.algebra vectors definitions source-files
-compiler.units kernel.private sorting vocabs ;
+compiler.units kernel.private sorting vocabs eval ;
IN: classes.mixin.tests
! Test mixins
IN: classes.tuple.parser.tests
USING: accessors classes.tuple.parser lexer words classes
sequences math kernel slots tools.test parser compiler.units
-arrays classes.tuple ;
+arrays classes.tuple eval ;
TUPLE: test-1 ;
generic.standard effects classes.tuple classes.tuple.private
arrays vectors strings compiler.units accessors classes.algebra
calendar prettyprint io.streams.string splitting summary
-columns math.order classes.private slots slots.private ;
+columns math.order classes.private slots slots.private eval ;
IN: classes.tuple.tests
TUPLE: rect x y w h ;
tools.test vectors words quotations classes
classes.private classes.union classes.mixin classes.predicate
classes.algebra vectors definitions source-files
-compiler.units kernel.private sorting vocabs io.streams.string ;
+compiler.units kernel.private sorting vocabs io.streams.string
+eval ;
IN: classes.union.tests
! DEFER: bah
USING: kernel math namespaces io tools.test sequences vectors
continuations debugger parser memory arrays words
-kernel.private accessors ;
+kernel.private accessors eval ;
IN: continuations.tests
: (callcc1-test)
generic.math assocs hashtables io kernel math namespaces parser
prettyprint sequences strings tools.test vectors words
quotations classes classes.algebra classes.tuple continuations
-layouts classes.union sorting compiler.units ;
+layouts classes.union sorting compiler.units eval ;
IN: generic.tests
GENERIC: foobar ( x -- y )
io.streams.string namespaces classes effects source-files
assocs sequences strings io.files definitions continuations
sorting classes.tuple compiler.units debugger vocabs
-vocabs.loader accessors ;
+vocabs.loader accessors eval combinators ;
IN: parser.tests
IN: slots.tests
USING: math accessors slots strings generic.standard kernel
-tools.test generic words parser ;
+tools.test generic words parser eval ;
TUPLE: r/w-test foo ;
USING: vocabs.loader tools.test continuations vocabs math
kernel arrays sequences namespaces io.streams.string
parser source-files words assocs classes.tuple definitions
-debugger compiler.units tools.vocabs accessors ;
+debugger compiler.units tools.vocabs accessors eval ;
! This vocab should not exist, but just in case...
[ ] [
USING: arrays generic assocs kernel math namespaces
sequences tools.test words definitions parser quotations
vocabs continuations classes.tuple compiler.units
-io.streams.string accessors ;
+io.streams.string accessors eval ;
IN: words.tests
[ 4 ] [
USING: io kernel math math.functions math.parser parser lexer
namespaces sequences splitting grouping combinators
-continuations sequences.lib ;
+continuations sequences.lib eval ;
IN: money
: dollars/cents ( dollars -- dollars cents )
!
USING: kernel tools.test peg peg.ebnf words math math.parser
sequences accessors peg.parsers parser namespaces arrays
- strings ;
+ strings eval ;
IN: peg.ebnf.tests
{ T{ ebnf-non-terminal f "abc" } } [