Fixing ambiguity between sets and namespaces in many unit tests and furnace.auth
parent
6298203b4c
commit
7cd3360cdd
|
@ -1,4 +1,3 @@
|
|||
IN: compiler.cfg.linear-scan.tests
|
||||
USING: tools.test random sorting sequences sets hashtables assocs
|
||||
kernel fry arrays splitting namespaces math accessors vectors locals
|
||||
math.order grouping strings strings.private classes layouts
|
||||
|
@ -21,6 +20,8 @@ compiler.cfg.linear-scan.allocation.state
|
|||
compiler.cfg.linear-scan.allocation.splitting
|
||||
compiler.cfg.linear-scan.allocation.spilling
|
||||
compiler.cfg.linear-scan.debugger ;
|
||||
FROM: namespaces => set ;
|
||||
IN: compiler.cfg.linear-scan.tests
|
||||
|
||||
check-allocation? on
|
||||
check-numbering? on
|
||||
|
|
|
@ -2,6 +2,7 @@ USING: accessors arrays compiler.cfg compiler.cfg.debugger
|
|||
compiler.cfg.dominance compiler.cfg.predecessors
|
||||
compiler.cfg.ssa.construction.tdmsc kernel namespaces sequences
|
||||
tools.test vectors sets ;
|
||||
FROM: namespaces => set ;
|
||||
IN: compiler.cfg.ssa.construction.tdmsc.tests
|
||||
|
||||
: test-tdmsc ( -- )
|
||||
|
@ -70,4 +71,4 @@ V{ } 7 test-bb
|
|||
[ ] [ test-tdmsc ] unit-test
|
||||
|
||||
[ V{ 2 } ] [ { 2 3 4 5 } [ get ] map merge-set [ number>> ] map ] unit-test
|
||||
[ V{ } ] [ { 0 1 6 7 } [ get ] map merge-set ] unit-test
|
||||
[ V{ } ] [ { 0 1 6 7 } [ get ] map merge-set ] unit-test
|
||||
|
|
|
@ -14,6 +14,7 @@ furnace.redirection
|
|||
furnace.boilerplate
|
||||
furnace.auth.providers
|
||||
furnace.auth.providers.db ;
|
||||
FROM: namespaces => set ;
|
||||
IN: furnace.auth
|
||||
|
||||
SYMBOL: logged-in-user
|
||||
|
|
|
@ -62,4 +62,4 @@ ARTICLE: "crossref-test-1" "Crossref test 1"
|
|||
ARTICLE: "crossref-test-2" "Crossref test 2"
|
||||
{ $markup-example { $subsection "crossref-test-1" } } ;
|
||||
|
||||
[ V{ } ] [ "crossref-test-2" >link article-children ] unit-test
|
||||
[ { } ] [ "crossref-test-2" >link article-children ] unit-test
|
||||
|
|
|
@ -36,7 +36,7 @@ IN: regexp.classes.tests
|
|||
|
||||
! Making classes into nested conditionals
|
||||
|
||||
[ V{ 1 2 3 4 } ] [ T{ and-class f { 1 T{ not-class f 2 } T{ or-class f { 3 4 } } 2 } } class>questions ] unit-test
|
||||
[ { 1 2 3 4 } ] [ T{ and-class f { 1 T{ not-class f 2 } T{ or-class f { 3 4 } } 2 } } class>questions ] unit-test
|
||||
[ { 3 } ] [ { { 3 t } } table>condition ] unit-test
|
||||
[ { T{ primitive-class } } ] [ { { 1 t } { 2 T{ primitive-class } } } table>questions ] unit-test
|
||||
[ { { 1 t } { 2 t } } ] [ { { 1 t } { 2 T{ primitive-class } } } T{ primitive-class } t assoc-answer ] unit-test
|
||||
|
|
|
@ -25,14 +25,14 @@ IN: suffix-arrays.tests
|
|||
[ { } ]
|
||||
[ SA{ } "something" swap query ] unit-test
|
||||
|
||||
[ V{ "unit-test" "(unit-test)" } ]
|
||||
[ { "unit-test" "(unit-test)" } ]
|
||||
[ "suffix-array" get "unit-test" swap query ] unit-test
|
||||
|
||||
[ t ]
|
||||
[ "suffix-array" get "something else" swap query empty? ] unit-test
|
||||
|
||||
[ V{ "rofl" } ] [ SA{ "rofl" } "r" swap query ] unit-test
|
||||
[ V{ "rofl" } ] [ SA{ "rofl" } "o" swap query ] unit-test
|
||||
[ V{ "rofl" } ] [ SA{ "rofl" } "f" swap query ] unit-test
|
||||
[ V{ "rofl" } ] [ SA{ "rofl" } "l" swap query ] unit-test
|
||||
[ V{ } ] [ SA{ "rofl" } "t" swap query ] unit-test
|
||||
[ { "rofl" } ] [ SA{ "rofl" } "r" swap query ] unit-test
|
||||
[ { "rofl" } ] [ SA{ "rofl" } "o" swap query ] unit-test
|
||||
[ { "rofl" } ] [ SA{ "rofl" } "f" swap query ] unit-test
|
||||
[ { "rofl" } ] [ SA{ "rofl" } "l" swap query ] unit-test
|
||||
[ { } ] [ SA{ "rofl" } "t" swap query ] unit-test
|
||||
|
|
|
@ -20,6 +20,7 @@ QUALIFIED: source-files
|
|||
QUALIFIED: source-files.errors
|
||||
QUALIFIED: vocabs
|
||||
FROM: alien.libraries.private => >deployed-library-path ;
|
||||
FROM: namespaces => set ;
|
||||
IN: tools.deploy.shaker
|
||||
|
||||
! This file is some hairy shit.
|
||||
|
|
|
@ -2,6 +2,7 @@ USING: accessors ui.gadgets ui.gadgets.packs ui.gadgets.worlds
|
|||
tools.test namespaces models kernel dlists deques math
|
||||
math.parser ui sequences hashtables assocs io arrays prettyprint
|
||||
io.streams.string math.rectangles ui.gadgets.private sets generic ;
|
||||
FROM: namespaces => set ;
|
||||
IN: ui.gadgets.tests
|
||||
|
||||
[ { 300 300 } ]
|
||||
|
@ -126,16 +127,16 @@ M: mock-gadget ungraft*
|
|||
] each-integer ;
|
||||
|
||||
: status-flags ( -- seq )
|
||||
{ "g" "1" "2" "3" } [ get graft-state>> ] map prune ;
|
||||
{ "g" "1" "2" "3" } [ get graft-state>> ] map members ;
|
||||
|
||||
: notify-combo ( ? ? -- )
|
||||
nl "===== Combo: " write 2dup 2array . nl
|
||||
<dlist> \ graft-queue [
|
||||
<mock-gadget> "g" set
|
||||
[ ] [ add-some-children ] unit-test
|
||||
[ V{ { f f } } ] [ status-flags ] unit-test
|
||||
[ { { f f } } ] [ status-flags ] unit-test
|
||||
[ ] [ "g" get graft ] unit-test
|
||||
[ V{ { f t } } ] [ status-flags ] unit-test
|
||||
[ { { f t } } ] [ status-flags ] unit-test
|
||||
dup [ [ ] [ notify-queued ] unit-test ] when
|
||||
[ ] [ "g" get clear-gadget ] unit-test
|
||||
[ [ t ] [ graft-queue [ front>> ] [ back>> ] bi eq? ] unit-test ] unless
|
||||
|
@ -146,7 +147,7 @@ M: mock-gadget ungraft*
|
|||
[ { f t } ] [ "3" get graft-state>> ] unit-test
|
||||
[ ] [ graft-queue [ "x" print notify ] slurp-deque ] unit-test
|
||||
[ ] [ notify-queued ] unit-test
|
||||
[ V{ { t t } } ] [ status-flags ] unit-test
|
||||
[ { { t t } } ] [ status-flags ] unit-test
|
||||
] with-variable ;
|
||||
|
||||
{ { f f } { f t } { t f } { t t } } [ notify-combo ] assoc-each
|
||||
|
|
|
@ -1,6 +1,7 @@
|
|||
USING: accessors alien alien.accessors alien.syntax byte-arrays arrays
|
||||
kernel kernel.private namespaces tools.test sequences libc math
|
||||
system prettyprint layouts alien.libraries sets ;
|
||||
FROM: namespaces => set ;
|
||||
IN: alien.tests
|
||||
|
||||
[ t ] [ -1 <alien> alien-address 0 > ] unit-test
|
||||
|
@ -83,4 +84,4 @@ f initialize-test set-global
|
|||
|
||||
[ 7575 ] [ initialize-test [ 7575 ] initialize-alien ] unit-test
|
||||
|
||||
[ V{ BAD-ALIEN } ] [ { BAD-ALIEN BAD-ALIEN BAD-ALIEN } prune ] unit-test
|
||||
[ { BAD-ALIEN } ] [ { BAD-ALIEN BAD-ALIEN BAD-ALIEN } members ] unit-test
|
||||
|
|
|
@ -5,6 +5,7 @@ quotations stack-checker vectors growable hashtables sbufs
|
|||
prettyprint byte-vectors bit-vectors specialized-vectors
|
||||
definitions generic sets graphs assocs grouping see eval ;
|
||||
QUALIFIED-WITH: alien.c-types c
|
||||
FROM: namespaces => set ;
|
||||
SPECIALIZED-VECTOR: c:double
|
||||
IN: generic.single.tests
|
||||
|
||||
|
|
Loading…
Reference in New Issue