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

if we're on win64, don't run postgresql tests

db4
Doug Coleman 2008-11-24 12:57:26 -06:00
parent 799f761bef
commit 87bdc0acd3
2 changed files with 80 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/db/postgresql/postgresql-tests.factor
View File

@ -1,6 +1,6 @@
USING: kernel db.postgresql alien continuations io classes USING: kernel db.postgresql alien continuations io classes
prettyprint sequences namespaces tools.test db prettyprint sequences namespaces tools.test db
db.tuples db.types unicode.case accessors ; db.tuples db.types unicode.case accessors system ;
IN: db.postgresql.tests IN: db.postgresql.tests
: test-db ( -- postgresql-db ) : test-db ( -- postgresql-db )
@ -10,6 +10,7 @@ IN: db.postgresql.tests
"thepasswordistrust" >>password "thepasswordistrust" >>password
"factor-test" >>database ; "factor-test" >>database ;
os windows? cpu x86.64? and [
[ ] [ test-db [ ] with-db ] unit-test [ ] [ test-db [ ] with-db ] unit-test
[ ] [ [ ] [
@ -90,6 +91,7 @@ IN: db.postgresql.tests
"select * from person" sql-query length "select * from person" sql-query length
] with-db ] with-db
] unit-test ] unit-test
] unless
: with-dummy-db ( quot -- ) : with-dummy-db ( quot -- )

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

@ -3,7 +3,7 @@
USING: io.files kernel tools.test db db.tuples classes USING: io.files kernel tools.test db db.tuples classes
db.types continuations namespaces math math.ranges db.types continuations namespaces math math.ranges
prettyprint calendar sequences db.sqlite math.intervals prettyprint calendar sequences db.sqlite math.intervals
db.postgresql accessors random math.bitwise db.postgresql accessors random math.bitwise system
math.ranges strings urls fry db.tuples.private ; math.ranges strings urls fry db.tuples.private ;
IN: db.tuples.tests IN: db.tuples.tests
@ -26,7 +26,9 @@ IN: db.tuples.tests
: test-postgresql ( quot -- ) : test-postgresql ( quot -- )
'[ '[
os windows? cpu x86.64? and [
[ ] [ postgresql-db _ with-db ] unit-test [ ] [ postgresql-db _ with-db ] unit-test
] unless
] call ; inline ] call ; inline
! These words leak resources, but are useful for interactivel testing ! These words leak resources, but are useful for interactivel testing