20 lines
511 B
Factor
20 lines
511 B
Factor
USING: continuations db db.sqlite io.directories io.files.temp
|
|
webapps.mason.backend tools.test ;
|
|
IN: webapps.mason.backend.tests
|
|
|
|
[ "mason-test.db" temp-file delete-file ] ignore-errors
|
|
|
|
[ 0 1 2 ] [
|
|
! Do it in a with-transaction to simulate semantics of
|
|
! with-mason-db
|
|
"mason-test.db" temp-file <sqlite-db> [
|
|
[
|
|
init-mason-db
|
|
|
|
counter-value
|
|
increment-counter-value
|
|
increment-counter-value
|
|
] with-transaction
|
|
] with-db
|
|
] unit-test
|