steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/delegate/delegate-tests.factor
View File

@ -1,6 +1,6 @@
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 ;

2
basis/help/crossref/crossref-tests.factor
View File

@ -1,7 +1,7 @@
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

2
basis/help/definitions/definitions-tests.factor
View File

@ -1,6 +1,6 @@
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

2
basis/help/syntax/syntax-tests.factor
View File

@ -1,5 +1,5 @@
IN: help.syntax.tests
USING: tools.test parser vocabs help.syntax namespaces ;
USING: tools.test parser vocabs help.syntax namespaces eval ;
[
[ "foobar" ] [

2
basis/help/topics/topics-tests.factor
View File

@ -1,6 +1,6 @@
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

2
basis/inference/inference-tests.factor
View File

@ -5,7 +5,7 @@ sequences strings vectors words quotations effects tools.test
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

4
basis/libc/libc-tests.factor
View File

@ -4,8 +4,8 @@ destructors kernel ;
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
[ f ] [ "block" get mallocs get key? ] unit-test
[ f ] [ "block" get mallocs key? ] unit-test

2
basis/listener/listener-tests.factor
View File

@ -1,6 +1,6 @@
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

2
basis/macros/macros-tests.factor
View File

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

2
basis/memoize/memoize-tests.factor
View File

@ -1,7 +1,7 @@
! 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 )

2
basis/mirrors/mirrors-tests.factor
View File

@ -1,5 +1,5 @@
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 ;

4
basis/prettyprint/prettyprint-tests.factor
View File

@ -2,7 +2,7 @@ USING: arrays definitions io.streams.string io.streams.duplex
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
@ -194,7 +194,7 @@ DEFER: parse-error-file
: 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"

3
basis/symbols/symbols-tests.factor
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
[ ] [ SYMBOLS: a b c ; ] unit-test

2
basis/tools/annotations/annotations-tests.factor
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
: foo ;

1
basis/tools/deploy/backend/backend.factor
View File

@ -42,6 +42,7 @@ IN: tools.deploy.backend
: bootstrap-profile ( -- profile )
{
{ "threads" deploy-threads? }
{ "math" deploy-math? }
{ "compiler" deploy-compiler? }
{ "ui" deploy-ui? }

3
basis/tools/deploy/shaker/shaker.factor
View File

@ -21,7 +21,6 @@ QUALIFIED: libc.private
QUALIFIED: listener
QUALIFIED: prettyprint.config
QUALIFIED: source-files
QUALIFIED: threads
QUALIFIED: vocabs
IN: tools.deploy.shaker
@ -187,7 +186,7 @@ IN: tools.deploy.shaker
} %
deploy-threads? [
threads:initial-thread ,
"initial-thread" "threads" lookup ,
] unless
strip-io? [ io.backend:io-backend , ] when

2
core/classes/mixin/mixin-tests.factor
View File

@ -3,7 +3,7 @@ kernel math namespaces parser prettyprint sequences strings
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

2
core/classes/tuple/parser/parser-tests.factor
View File

@ -1,7 +1,7 @@
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 ;

2
core/classes/tuple/tuple-tests.factor
View File

@ -4,7 +4,7 @@ namespaces quotations sequences.private classes continuations
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 ;

3
core/classes/union/union-tests.factor
View File

@ -3,7 +3,8 @@ kernel math namespaces parser prettyprint sequences strings
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

2
core/continuations/continuations-tests.factor
View File

@ -1,6 +1,6 @@
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)

2
core/generic/generic-tests.factor
View File

@ -2,7 +2,7 @@ USING: accessors alien arrays definitions generic generic.standard
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 )

2
core/parser/parser-tests.factor
View File

@ -2,7 +2,7 @@ USING: arrays math parser tools.test kernel generic words
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

2
core/slots/slots-tests.factor
View File

@ -1,6 +1,6 @@
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 ;

2
core/vocabs/loader/loader-tests.factor
View File

@ -3,7 +3,7 @@ IN: vocabs.loader.tests
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...
[ ] [

2
core/words/words-tests.factor
View File

@ -1,7 +1,7 @@
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 ] [

2
extra/money/money.factor
View File

@ -1,6 +1,6 @@
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 )

2
extra/peg/ebnf/ebnf-tests.factor
View File

@ -3,7 +3,7 @@
!
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" } } [