Fix unit tests and help lint for 'see' move
parent
034bda42ca
commit
667eca9410
|
@ -1,7 +1,7 @@
|
||||||
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 eval multiline generic.standard delegate.protocols
|
accessors eval multiline generic.standard delegate.protocols
|
||||||
delegate.private assocs ;
|
delegate.private assocs see ;
|
||||||
IN: delegate.tests
|
IN: delegate.tests
|
||||||
|
|
||||||
TUPLE: hello this that ;
|
TUPLE: hello this that ;
|
||||||
|
|
|
@ -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 eval accessors ;
|
assocs namespaces words io sequences eval accessors see ;
|
||||||
IN: help.definitions.tests
|
IN: help.definitions.tests
|
||||||
|
|
||||||
[ ] [ \ + >link see ] unit-test
|
[ ] [ \ + >link see ] unit-test
|
||||||
|
|
|
@ -8,7 +8,7 @@ f describe
|
||||||
H{ } describe
|
H{ } describe
|
||||||
H{ } describe
|
H{ } describe
|
||||||
|
|
||||||
[ "fixnum instance\n" ] [ [ 3 describe ] with-string-writer ] unit-test
|
[ "fixnum instance\n\n" ] [ [ 3 describe ] with-string-writer ] unit-test
|
||||||
|
|
||||||
[ ] [ H{ } clone inspect ] unit-test
|
[ ] [ H{ } clone inspect ] unit-test
|
||||||
|
|
||||||
|
|
|
@ -2,7 +2,7 @@ USING: locals math sequences tools.test hashtables words kernel
|
||||||
namespaces arrays strings prettyprint io.streams.string parser
|
namespaces arrays strings prettyprint io.streams.string parser
|
||||||
accessors generic eval combinators combinators.short-circuit
|
accessors generic eval combinators combinators.short-circuit
|
||||||
combinators.short-circuit.smart math.order math.functions
|
combinators.short-circuit.smart math.order math.functions
|
||||||
definitions compiler.units fry lexer words.symbol ;
|
definitions compiler.units fry lexer words.symbol see ;
|
||||||
IN: locals.tests
|
IN: locals.tests
|
||||||
|
|
||||||
:: foo ( a b -- a a ) a a ;
|
:: foo ( a b -- a a ) a a ;
|
||||||
|
|
|
@ -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 eval ;
|
vectors io.streams.string prettyprint parser eval see ;
|
||||||
|
|
||||||
MACRO: see-test ( a b -- c ) + ;
|
MACRO: see-test ( a b -- c ) + ;
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (C) 2007, 2009 Slava Pestov, Daniel Ehrenberg.
|
! Copyright (C) 2007, 2009 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 generalizations
|
USING: math kernel memoize tools.test parser generalizations
|
||||||
prettyprint io.streams.string sequences eval namespaces ;
|
prettyprint io.streams.string sequences eval namespaces see ;
|
||||||
IN: memoize.tests
|
IN: memoize.tests
|
||||||
|
|
||||||
MEMO: fib ( m -- n )
|
MEMO: fib ( m -- n )
|
||||||
|
|
|
@ -5,15 +5,19 @@ images kernel namespaces ;
|
||||||
IN: opengl.textures.tests
|
IN: opengl.textures.tests
|
||||||
|
|
||||||
[ ] [
|
[ ] [
|
||||||
{ 3 5 }
|
T{ image
|
||||||
RGB
|
{ dim { 3 5 } }
|
||||||
|
{ component-order RGB }
|
||||||
|
{ bitmap
|
||||||
B{
|
B{
|
||||||
1 2 3 4 5 6 7 8 9
|
1 2 3 4 5 6 7 8 9
|
||||||
10 11 12 13 14 15 16 17 18
|
10 11 12 13 14 15 16 17 18
|
||||||
19 20 21 22 23 24 25 26 27
|
19 20 21 22 23 24 25 26 27
|
||||||
28 29 30 31 32 33 34 35 36
|
28 29 30 31 32 33 34 35 36
|
||||||
37 38 39 40 41 42 43 44 45
|
37 38 39 40 41 42 43 44 45
|
||||||
} image boa "image" set
|
}
|
||||||
|
}
|
||||||
|
} "image" set
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
[
|
[
|
||||||
|
|
|
@ -2,7 +2,7 @@ USING: alien ui.gadgets.panes ui.gadgets namespaces
|
||||||
kernel sequences io io.styles io.streams.string tools.test
|
kernel sequences io io.styles io.streams.string tools.test
|
||||||
prettyprint definitions help help.syntax help.markup
|
prettyprint definitions help help.syntax help.markup
|
||||||
help.stylesheet splitting tools.test.ui models math summary
|
help.stylesheet splitting tools.test.ui models math summary
|
||||||
inspector accessors help.topics ;
|
inspector accessors help.topics see ;
|
||||||
IN: ui.gadgets.panes.tests
|
IN: ui.gadgets.panes.tests
|
||||||
|
|
||||||
: #children "pane" get children>> length ;
|
: #children "pane" get children>> length ;
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
USING: kernel classes.singleton tools.test prettyprint io.streams.string ;
|
USING: kernel classes.singleton tools.test prettyprint io.streams.string see ;
|
||||||
IN: classes.singleton.tests
|
IN: classes.singleton.tests
|
||||||
|
|
||||||
[ ] [ SINGLETON: bzzt ] unit-test
|
[ ] [ SINGLETON: bzzt ] unit-test
|
||||||
|
|
|
@ -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 eval ;
|
columns math.order classes.private slots slots.private eval see ;
|
||||||
IN: classes.tuple.tests
|
IN: classes.tuple.tests
|
||||||
|
|
||||||
TUPLE: rect x y w h ;
|
TUPLE: rect x y w h ;
|
||||||
|
|
|
@ -4,7 +4,7 @@ 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 ;
|
eval see ;
|
||||||
IN: classes.union.tests
|
IN: classes.union.tests
|
||||||
|
|
||||||
! DEFER: bah
|
! DEFER: bah
|
||||||
|
|
|
@ -5,7 +5,7 @@ specialized-arrays.double byte-arrays bit-arrays parser
|
||||||
namespaces make quotations stack-checker vectors growable
|
namespaces make quotations stack-checker vectors growable
|
||||||
hashtables sbufs prettyprint byte-vectors bit-vectors
|
hashtables sbufs prettyprint byte-vectors bit-vectors
|
||||||
specialized-vectors.double definitions generic sets graphs assocs
|
specialized-vectors.double definitions generic sets graphs assocs
|
||||||
grouping ;
|
grouping see ;
|
||||||
|
|
||||||
GENERIC: lo-tag-test ( obj -- obj' )
|
GENERIC: lo-tag-test ( obj -- obj' )
|
||||||
|
|
||||||
|
|
|
@ -684,7 +684,7 @@ $nl
|
||||||
"This operation is efficient and does not copy the quotation." }
|
"This operation is efficient and does not copy the quotation." }
|
||||||
{ $examples
|
{ $examples
|
||||||
{ $example "USING: kernel prettyprint ;" "5 [ . ] curry ." "[ 5 . ]" }
|
{ $example "USING: kernel prettyprint ;" "5 [ . ] curry ." "[ 5 . ]" }
|
||||||
{ $example "USING: kernel prettyprint ;" "\\ = [ see ] curry ." "[ \\ = see ]" }
|
{ $example "USING: kernel prettyprint see ;" "\\ = [ see ] curry ." "[ \\ = see ]" }
|
||||||
{ $example "USING: kernel math prettyprint sequences ;" "{ 1 2 3 } 2 [ - ] curry map ." "{ -1 0 1 }" }
|
{ $example "USING: kernel math prettyprint sequences ;" "{ 1 2 3 } 2 [ - ] curry map ." "{ -1 0 1 }" }
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
USING: descriptive kernel math tools.test continuations prettyprint io.streams.string ;
|
USING: descriptive kernel math tools.test continuations prettyprint io.streams.string see ;
|
||||||
IN: descriptive.tests
|
IN: descriptive.tests
|
||||||
|
|
||||||
DESCRIPTIVE: divide ( num denom -- fraction ) / ;
|
DESCRIPTIVE: divide ( num denom -- fraction ) / ;
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
IN: multi-methods.tests
|
IN: multi-methods.tests
|
||||||
USING: multi-methods tools.test math sequences namespaces system
|
USING: multi-methods tools.test math sequences namespaces system
|
||||||
kernel strings definitions prettyprint debugger arrays
|
kernel strings definitions prettyprint debugger arrays
|
||||||
hashtables continuations classes assocs accessors ;
|
hashtables continuations classes assocs accessors see ;
|
||||||
|
|
||||||
GENERIC: first-test
|
GENERIC: first-test
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue