25 lines
616 B
Factor
25 lines
616 B
Factor
USING: accessors calendar continuations db io.directories
|
|
io.files.temp kernel tools.test webapps.mason.backend webapps.utils ;
|
|
IN: webapps.mason.backend.tests
|
|
|
|
"mason-test.db" temp-file ?delete-file
|
|
|
|
{ 0 1 2 } [
|
|
! Do it in a with-transaction to simulate semantics of
|
|
! with-mason-db
|
|
"mason-test.db" <temp-sqlite-db> [
|
|
[
|
|
init-mason-db
|
|
|
|
counter-value
|
|
increment-counter-value
|
|
increment-counter-value
|
|
] with-transaction
|
|
] with-db
|
|
] unit-test
|
|
|
|
{ f f } [
|
|
builder new now >>heartbeat-timestamp
|
|
[ broken? ] [ crashed? ] bi
|
|
] unit-test
|