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

db.tuples: use natural-sort in test case.

windows-high-dpi
John Benediktsson 2018-02-22 14:23:22 -08:00
parent d573d44da1
commit 3d1fff6572
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/db/tuples/tuples-tests.factor
View File

@ -3,7 +3,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors calendar calendar.parser classes continuations USING: accessors calendar calendar.parser classes continuations
db.tester db.tuples db.types kernel math math.intervals math.ranges db.tester db.tuples db.types kernel math math.intervals math.ranges
namespaces random sequences strings tools.test urls ; namespaces random sequences sorting strings tools.test urls ;
FROM: math.ranges => [a,b] ; FROM: math.ranges => [a,b] ;
IN: db.tuples.tests IN: db.tuples.tests
@ -678,16 +678,18 @@ select-me "select_me"
select-me new [ data>> ] collector [ each-tuple ] dip select-me new [ data>> ] collector [ each-tuple ] dip
] unit-test ] unit-test
[ V{ "test" "test2" } ] [ [ { "test" "test2" } ] [
select-me new NULL >>data [ "test" >>data ] update-tuples select-me new NULL >>data [ "test" >>data ] update-tuples
select-me new [ data>> ] collector [ each-tuple ] dip select-me new [ data>> ] collector [ each-tuple ] dip
natural-sort
] unit-test ] unit-test
[ V{ "test1" "test2" } ] [ [ { "test1" "test2" } ] [
select-me new [ select-me new [
dup data>> "test" = [ "test1" >>data ] [ drop f ] if dup data>> "test" = [ "test1" >>data ] [ drop f ] if
] update-tuples ] update-tuples
select-me new [ data>> ] collector [ each-tuple ] dip select-me new [ data>> ] collector [ each-tuple ] dip
natural-sort
] unit-test ; ] unit-test ;
[ test-mapping ] test-sqlite [ test-mapping ] test-sqlite