db.sqlite: Fix NULL returns for INTEGER columns in sqlite

[factor.git] / basis / db / sqlite / sqlite-tests.factor

diff --git a/basis/db/sqlite/sqlite-tests.factor b/basis/db/sqlite/sqlite-tests.factor
index b5866a71f3fc258b8fe8b4f84ff1829684687f25..cd804fc765fba3a7f304191e8786085d42070ea7 100644 (file)
--- a/basis/db/sqlite/sqlite-tests.factor
+++ b/basis/db/sqlite/sqlite-tests.factor
@@ -172,3 +172,34 @@ watch "WATCH" {
         ] with-transaction
     ] with-db
 ] unit-test
+
+! Reported by AlexIljin
+{ f } [
+    TUPLE: num-test1 num ;
+    num-test1 "NUM_TEST" { { "num" "NUM" INTEGER } } define-persistent
+    "resource:num-test-bad.db" <sqlite-db> [
+        num-test1 ensure-table
+        num-test1 new insert-tuple
+        num-test1 new select-tuple
+    ] with-db num>>
+] unit-test
+
+{ f } [
+    TUPLE: num-test2 num ;
+    num-test2 "NUM_TEST" { { "num" "NUM" DOUBLE } } define-persistent
+    "resource:num-test-bad.db" <sqlite-db> [
+        num-test2 ensure-table
+        num-test2 new insert-tuple
+        num-test2 new select-tuple
+    ] with-db num>>
+] unit-test
+
+{ f } [
+    TUPLE: num-test3 num ;
+    num-test3 "NUM_TEST" { { "num" "NUM" BOOLEAN } } define-persistent
+    "resource:num-test-bad.db" <sqlite-db> [
+        num-test3 ensure-table
+        num-test3 new insert-tuple
+        num-test3 new select-tuple
+    ] with-db num>>
+] unit-test