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