khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-06 04:16:21 +03:00
Code Issues Projects Releases Wiki Activity

rr-quickcheck MySQL: simplify scripts.

Browse Source
This commit is contained in:
Kei Hibino 2017-01-26 09:36:24 +09:00
parent d316472332
commit ce780aaf28
4 changed files with 4 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rr-quickcheck/RDBMs/MySQL/createSchema.sh
View File

@ -1,15 +0,0 @@
#!/bin/sh
set -x
. ./sh
createdb_command() {
cat <<EOF
CREATE SCHEMA ARBITRARY0;
GRANT ALL ON ARBITRARY0.* TO ${USER}@'localhost';
GRANT GRANT OPTION ON ARBITRARY0.* TO ${USER}@'localhost';
EOF
}
do_mysql_root createdb_command

2
rr-quickcheck/RDBMs/MySQL/main.hs
View File

@ -8,4 +8,4 @@ main =
defaultMain . tests $
connectMySQL
defaultMySQLConnectInfo
{ mysqlUser = "", mysqlPassword = "testpassword", mysqlDatabase = "ARBITRARY0" }
{ mysqlUser = "hrr-tester", mysqlDatabase = "ARBITRARY0" }

3
rr-quickcheck/RDBMs/MySQL/schema.sql Normal file
View File

@ -0,0 +1,3 @@
CREATE SCHEMA ARBITRARY0;
GRANT ALL ON ARBITRARY0.* TO 'hrr-tester'@'127.0.0.1';
GRANT GRANT OPTION ON ARBITRARY0.* TO 'hrr-tester'@'127.0.0.1';

7
rr-quickcheck/RDBMs/MySQL/sh
View File

@ -1,7 +0,0 @@
## -*- sh -*-
do_mysql_root() {
cmd=$1
$cmd
$cmd | mysql -p -u root
}