tools.deploy.test.17: database deployment test

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

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 <sqlite-db> [
+        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

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 }
+}