#!/usr/bin/env racket #lang racket (require "scripts/utils.ss" "scripts/request.ss" "scripts/logger.ss" "scripts/json.ss" "scripts/sql.ss" "scripts/sql.ss" "../eavdb/ktv.ss" "../eavdb/ktv-list.ss" "../eavdb/entity-values.ss" "../eavdb/entity-insert.ss" "../eavdb/entity-get.ss" "../eavdb/entity-update.ss" "../eavdb/entity-sync.ss" "../eavdb/entity-filter.ss" "../eavdb/entity-csv.ss" "../eavdb/eavdb.ss" "scripts/txt.ss" "scripts/server-sync.ss") (open-log "unit-test-log.txt") (define (unit-tests) ;; db (msg "testing db") (define db "unit-test.db") (with-handlers ((exn:fail? (lambda (e) (msg e)))) (delete-file db)) (set! db (db-open db setup)) ;;(msg (db-status db)) ;; test low level sql (sql-test db) (ktv-test) ;; test the entity attribute value system (define table "eavunittest") (setup db table) (entity-update-test db table) (entity-sync-test db table) (msg (csv db table "thing")) (msg (db-status db)) (msg "test over...") ) (unit-tests)