diff --git a/basis/tools/deploy/deploy-tests.factor b/basis/tools/deploy/deploy-tests.factor index 9244f06b4e..1412e65f95 100644 --- a/basis/tools/deploy/deploy-tests.factor +++ b/basis/tools/deploy/deploy-tests.factor @@ -115,3 +115,5 @@ os macosx? [ ] unit-test [ ] [ "tools.deploy.test.16" shake-and-bake run-temp-image ] unit-test + +[ ] [ "tools.deploy.test.17" shake-and-bake run-temp-image ] unit-test diff --git a/basis/tools/deploy/test/17/17.factor b/basis/tools/deploy/test/17/17.factor new file mode 100644 index 0000000000..31984940dd --- /dev/null +++ b/basis/tools/deploy/test/17/17.factor @@ -0,0 +1,31 @@ +USING: accessors calendar db db.sqlite db.tuples db.types +io.files.temp kernel urls ; +IN: tools.deploy.test.17 + +TUPLE: person name birthday homepage occupation ; + +person "PEOPLE" { + { "name" "NAME" { VARCHAR 256 } +not-null+ +user-assigned-id+ } + { "birthday" "BIRTHDAY" DATETIME +not-null+ } + { "homepage" "HOMEPAGE" URL +not-null+ } + { "occupation" "OCCUPATION" { VARCHAR 256 } +not-null+ } +} define-persistent + +: db-deploy-test ( -- ) ; + "test.db" temp-file [ + person recreate-table + + person new + "Stephen Hawking" >>name + timestamp new 8 >>day 0 >>month 1942 >>year >>birthday + "http://en.wikipedia.org/wiki/Stephen_Hawking" >url >>homepage + "Dope MC" >>occupation + dup + insert-tuple + person new + "Stephen Hawking" >>name + select-tuple + assert= + ] with-db ; + +MAIN: db-deploy-test diff --git a/basis/tools/deploy/test/17/deploy.factor b/basis/tools/deploy/test/17/deploy.factor new file mode 100644 index 0000000000..62cc2cac7b --- /dev/null +++ b/basis/tools/deploy/test/17/deploy.factor @@ -0,0 +1,14 @@ +USING: tools.deploy.config ; +H{ + { deploy-name "tools.deploy.test.17" } + { deploy-ui? f } + { deploy-c-types? f } + { deploy-unicode? f } + { "stop-after-last-window?" t } + { deploy-io 3 } + { deploy-reflection 5 } + { deploy-word-props? f } + { deploy-math? t } + { deploy-threads? t } + { deploy-word-defs? f } +}