Fixing unit tests for eval word being moved

db4
Slava Pestov 2008-07-29 00:05:01 -05:00
parent baac7fa02b
commit 4cb64aaeb8
28 changed files with 32 additions and 30 deletions

View File

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

View File

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

View File

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

View File

@ -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" ] [

View File

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

View File

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

View File

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

View File

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

View File

@ -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 ) + ;

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -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...
[ ] [ [ ] [

View File

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

View File

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

View File

@ -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" } } [