{ "id" "ID" +db-assigned-id+ }
{ "data" "DATA" FACTOR-BLOB }
} define-persistent
- [ serialize-me drop-table ] ignore-errors
- [ ] [ serialize-me create-table ] unit-test
+ [ ] [ serialize-me recreate-table ] unit-test
[ ] [ T{ serialize-me f f H{ { 1 2 } } } insert-tuple ] unit-test
[
{ "name" "NAME" TEXT }
{ "score" "SCORE" INTEGER }
} define-persistent
- [ exam drop-table ] ignore-errors
- [ ] [ exam create-table ] unit-test
+ [ ] [ exam recreate-table ] unit-test
[ ] [ T{ exam f f "Kyle" 100 } insert-tuple ] unit-test
[ ] [ T{ exam f f "Stan" 80 } insert-tuple ] unit-test
{ "n" "N" UNSIGNED-BIG-INTEGER }
{ "o" "O" SIGNED-BIG-INTEGER }
} define-persistent
- [ bignum-test drop-table ] ignore-errors
- [ ] [ bignum-test ensure-table ] unit-test
+ [ ] [ bignum-test recreate-table ] unit-test
[ ] [ 63 2^ 1 - dup dup <bignum-test> insert-tuple ] unit-test ;
! sqlite only
} define-persistent
: test-mapping ( -- )
- [ select-me drop-table ] ignore-errors
- select-me ensure-table
+ [ ] [ select-me recreate-table ] unit-test
[ ] [ select-me new insert-tuple ] unit-test
[ ] [ select-me new "test2" >>data insert-tuple ] unit-test