         { "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
    [ ] [ 63 2^ 1 - dup dup <bignum-test> insert-tuple ] unit-test ;

    ! sqlite only

} define-persistent

: test-mapping ( -- )
    [ ] [ select-me recreate-table ] unit-test
    [ ] [ select-me new                insert-tuple ] unit-test
    [ ] [ select-me new "test2" >>data insert-tuple ] unit-test

