create.janet

#!/usr/bin/env janet
(import "mysql")
(def conn (mysql/connect {:host "127.0.0.1" :username "root"}))
(print "create database")
(pp (mysql/exec conn "CREATE DATABASE IF NOT EXISTS `test`"))
(print "create table")
(pp (mysql/exec conn "CREATE TABLE IF NOT EXISTS test.`fruit` (
    `fruit_id` int(10) unsigned NOT NULL auto_increment,
    `name` varchar(50) NOT NULL,
    `variety` varchar(50) NOT NULL,
    PRIMARY KEY  (`fruit_id`)
  );"))
(print "insert data")
(pp (mysql/exec conn "INSERT INTO test.`fruit` (`fruit_id`, `name`, `variety`) VALUES
(1, 'Apple', 'Red Delicious'),
(2, 'Pear', 'Comice'),
(3, 'Orange', 'Navel'),
(4, 'Pear', 'Bartlett'),
(5, 'Orange', 'Blood'),
(6, 'Apple', 'Cox''s Orange Pippin'),
(7, 'Apple', 'Granny Smith'),
(8, 'Pear', 'Anjou'),
(9, 'Orange', 'Valencia'),
(10, 'Banana', 'Plantain'),
(11, 'Banana', 'Burro'),
(12, 'Banana', 'Cavendish');
"))