mirror of
https://github.com/dimitri/pgloader.git
synced 2025-08-07 23:07:00 +02:00
19 lines
468 B
Common Lisp
19 lines
468 B
Common Lisp
;;; facility to easily run the program
|
|
|
|
(ql:quickload :pgloader)
|
|
(in-package :pgloader)
|
|
|
|
(setq *myconn-host* "localhost"
|
|
*myconn-user* "debian-sys-maint"
|
|
*myconn-pass* "vtmMI04yBZlFprYm")
|
|
|
|
(loop
|
|
for test in (list #'pgloader.mysql:stream-database
|
|
#'pgloader.mysql:export-database
|
|
#'pgloader.mysql:export-import-database)
|
|
do
|
|
(format t "~&~%Testing ~a:~%~%" test)
|
|
(funcall test "yagoa" :only-tables '("membres" "sav_themes")))
|
|
|
|
|