 db.types continuations namespaces math math.ranges
 prettyprint calendar sequences db.sqlite math.intervals
 db.postgresql accessors random math.bitfields.lib
-math.ranges strings sequences.lib urls ;
+math.ranges strings sequences.lib urls fry ;
 IN: db.tuples.tests
 
 TUPLE: person the-id the-name the-number the-real

    [ t ] [ fubbclass new select-tuples [ fubbclass? ] all? ] unit-test ;

[ test-db-inheritance ] test-sqlite

! Don't comment these out. These words must infer
\ bind-tuple must-infer

! ] with-db

: test-sqlite ( quot -- )
    [ ] swap '[ "tuples-test.db" temp-file sqlite-db , with-db ] unit-test ;

: test-postgresql ( quot -- )
    [ ] swap '[ { "localhost" "postgres" "foob" "factor-test" } postgresql-db , with-db ] unit-test ;

: test-repeated-insert
    [ ] [ person ensure-table ] unit-test
