steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

db.tuples: use recreate-table in tests.

windows-high-dpi
John Benediktsson 2018-02-22 08:46:39 -08:00
parent a2ded18a0b
commit da877c9e47
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/db/tuples/tuples-tests.factor
View File

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