mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-11-28 22:24:49 +03:00
add a random test instance for PostgreSQL.
This commit is contained in:
parent
136e75baf0
commit
9d2c3c7a3c
6
rr-quickcheck/RDBMs/PostgreSQL/createDB.sh
Executable file
6
rr-quickcheck/RDBMs/PostgreSQL/createDB.sh
Executable file
@ -0,0 +1,6 @@
|
||||
#!/bin/sh
|
||||
|
||||
set -x
|
||||
|
||||
createdb hrrtest
|
||||
echo "CREATE SCHEMA ARBITRARY0" | psql hrrtest
|
5
rr-quickcheck/RDBMs/PostgreSQL/createUser.sh
Executable file
5
rr-quickcheck/RDBMs/PostgreSQL/createUser.sh
Executable file
@ -0,0 +1,5 @@
|
||||
#!/bin/sh
|
||||
|
||||
set -x
|
||||
|
||||
createuser -d $USER
|
6
rr-quickcheck/RDBMs/PostgreSQL/main.hs
Normal file
6
rr-quickcheck/RDBMs/PostgreSQL/main.hs
Normal 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"
|
@ -1,5 +1,3 @@
|
||||
CREATE SCHEMA ARBITRARY0;
|
||||
|
||||
CREATE TABLE ARBITRARY0.a
|
||||
( a0 BIGINT NOT NULL
|
||||
, a1 BIGINT NOT NULL
|
||||
|
Loading…
Reference in New Issue
Block a user