add a random test instance for PostgreSQL.

This commit is contained in:
Kei Hibino 2017-01-22 11:54:36 +09:00
parent 136e75baf0
commit 9d2c3c7a3c
4 changed files with 17 additions and 2 deletions

View File

@ -0,0 +1,6 @@
#!/bin/sh
set -x
createdb hrrtest
echo "CREATE SCHEMA ARBITRARY0" | psql hrrtest

View File

@ -0,0 +1,5 @@
#!/bin/sh
set -x
createuser -d $USER

View File

@ -0,0 +1,6 @@
import Database.HDBC.PostgreSQL (connectPostgreSQL)
import Test.Relational.QuickCheck.Tests (tests)
import Test.QuickCheck.Simple (defaultMain)
main = defaultMain . tests $ connectPostgreSQL "dbname=hrrtest"

View File

@ -1,5 +1,3 @@
CREATE SCHEMA ARBITRARY0;
CREATE TABLE ARBITRARY0.a
( a0 BIGINT NOT NULL
, a1 BIGINT NOT NULL