v/vlib/db/pg/pg_orm_test.v

// vtest build: started_postgres?
module main

import orm
import db.pg
import time

struct TestCustomSqlType {
	id      int    @[primary; sql: serial]
	custom  string @[sql_type: 'TEXT']
	custom1 string @[sql_type: 'VARCHAR(191)']
	custom2 string @[sql_type: 'TIMESTAMP']
	custom3 string @[sql_type: 'uuid']
}

struct TestCustomWrongSqlType {
	id      int @[primary; sql: serial]
	custom  string
	custom1 string @[sql_type: 'VARCHAR']
	custom2 string @[sql_type: 'money']
	custom3 string @[sql_type: 'xml']
}

struct TestTimeType {
mut:
	id         int @[primary; sql: serial]
	username   string
	created_at time.Time @[sql_type: 'TIMESTAMP']
	updated_at string    @[sql_type: 'TIMESTAMP']
	deleted_at time.Time
}

struct TestDefaultAttribute {
	id         string @[default: 'gen_random_uuid()'; primary; sql_type: 'uuid']
	name       string
	created_at string @[default: 'CURRENT_TIMESTAMP'; sql_type: 'TIMESTAMP']
}

@[comment: 'This is a table comment']
struct TestCommentAttribute {
	id         string @[primary; sql: serial]
	name       string @[comment: 'real user name']
	created_at string @[default: 'CURRENT_TIMESTAMP'; sql_type: 'TIMESTAMP']
}

fn test_pg_orm() {
	$if !network ? {
		eprintln('> Skipping test ${@FN}, since `-d network` is not passed.')
		eprintln('> This test requires a working postgres server running on localhost.')
		return
	}
	mut db := pg.connect(
		host:     'localhost'
		user:     'postgres'
		password: '12345678'
		dbname:   'postgres'
	) or { panic(err) }

	defer {
		db.close() or {}
	}
	table := orm.Table{
		name: 'Test'
	}
	db.drop(table) or {}

	db.create(table, [
		orm.TableField{
			name: 'id'
			typ:  typeof[string]().idx
			//			is_time: false
			default_val: ''
			is_arr:      false
			attrs:       [
				VAttribute{
					name:    'primary'
					has_arg: false
					arg:     ''
					kind:    .plain
				},
				VAttribute{
					name:    'sql'
					has_arg: true
					arg:     'serial'
					kind:    .plain
				},
			]
		},
		orm.TableField{
			name: 'name'
			typ:  typeof[string]().idx
			//			is_time: false
			default_val: ''
			is_arr:      false
			attrs:       []
		},
		orm.TableField{
			name: 'age'
			typ:  typeof[i64]().idx
			//			is_time: false
			default_val: ''
			is_arr:      false
			attrs:       []
		},
	]) or { panic(err) }

	db.insert(table, orm.QueryData{
		fields: ['name', 'age']
		data:   [orm.string_to_primitive('Louis'), orm.int_to_primitive(101)]
	}) or { panic(err) }

	res := db.select(orm.SelectConfig{
		table:      table
		is_count:   false
		has_where:  true
		has_order:  false
		order:      ''
		order_type: .asc
		has_limit:  false
		primary:    'id'
		has_offset: false
		fields:     ['id', 'name', 'age']
		types:      [typeof[int]().idx, typeof[string]().idx, typeof[i64]().idx]
	}, orm.QueryData{}, orm.QueryData{
		fields: ['name', 'age']
		data:   [orm.Primitive('Louis'), orm.Primitive(101)]
		types:  []
		kinds:  [.eq, .eq]
		is_and: [true]
	}) or { panic(err) }

	id := res[0][0]
	name := res[0][1]
	age := res[0][2]

	assert id is int
	if id is int {
		assert id == 1
	}

	assert name is string
	if name is string {
		assert name == 'Louis'
	}

	assert age is i64
	if age is i64 {
		assert age == 101
	}

	/** test orm sql type
	* - verify if all type create by attribute sql_type has created
	*/
	sql db {
		drop table TestCustomSqlType
	} or {}

	sql db {
		create table TestCustomSqlType
	}!

	mut result_custom_sql := db.exec("
		SELECT DATA_TYPE
		FROM INFORMATION_SCHEMA.COLUMNS
		WHERE TABLE_NAME = 'TestCustomSqlType'
		ORDER BY ORDINAL_POSITION
	") or {
		println(err)
		panic(err)
	}
	mut information_schema_data_types_results := []string{}
	information_schema_custom_sql := ['integer', 'text', 'character varying',
		'timestamp without time zone', 'uuid']

	for data_type in result_custom_sql {
		x := data_type.vals[0]
		information_schema_data_types_results << x?
	}

	assert information_schema_data_types_results == information_schema_custom_sql

	/** test_orm_time_type
	* - test time.Time v type with sql_type: 'TIMESTAMP'
	* - test string v type with sql_type: 'TIMESTAMP'
	* - test time.Time v type without
	*/
	today := time.parse('2022-07-16 15:13:27') or {
		println(err)
		panic(err)
	}

	model := TestTimeType{
		username:   'hitalo'
		created_at: today
		updated_at: today.str()
		deleted_at: today
	}

	sql db {
		create table TestTimeType
	}!

	sql db {
		insert model into TestTimeType
	}!

	results := sql db {
		select from TestTimeType where username == 'hitalo'
	}!

	sql db {
		drop table TestTimeType
	}!

	assert results[0].username == model.username
	assert results[0].created_at == model.created_at
	assert results[0].updated_at == model.updated_at
	assert results[0].deleted_at == model.deleted_at

	/** test default attribute
	*/
	sql db {
		create table TestDefaultAttribute
	}!

	mut result_defaults := db.exec("
		SELECT column_default
		FROM INFORMATION_SCHEMA.COLUMNS
		WHERE TABLE_NAME = 'TestDefaultAttribute'
		ORDER BY ORDINAL_POSITION
	") or {
		println(err)
		panic(err)
	}
	mut information_schema_defaults_results := []string{}

	for defaults in result_defaults {
		x := defaults.vals[0]
		information_schema_defaults_results << x or { '' }
	}
	sql db {
		drop table TestDefaultAttribute
	}!
	assert ['gen_random_uuid()', '', 'CURRENT_TIMESTAMP'] == information_schema_defaults_results

	/** test comment attribute
	*/
	sql db {
		create table TestCommentAttribute
	}!

	mut column_comments := db.exec("
		SELECT 
		a.attname AS column_name,
		col_description(a.attrelid, a.attnum) AS column_comment
		FROM pg_attribute a
		JOIN pg_class c ON c.oid = a.attrelid
		JOIN pg_namespace n ON n.oid = c.relnamespace
		WHERE c.relname = 'TestCommentAttribute' 
		AND n.nspname = 'public'
		AND a.attnum > 0
		AND NOT a.attisdropped
		ORDER BY a.attnum
	") or {
		println(err)
		panic(err)
	}

	mut table_comment := db.exec("
		SELECT 
		nspname AS schema_name,
		relname AS table_name,
		obj_description(pc.oid) AS table_comment
		FROM pg_class pc
		JOIN pg_namespace pn ON pn.oid = pc.relnamespace
		WHERE pc.relkind = 'r' AND pc.relname = 'TestCommentAttribute'
		ORDER BY schema_name, table_name
	") or {
		println(err)
		panic(err)
	}

	sql db {
		drop table TestCommentAttribute
	}!

	mut information_schema_column_comment_results := []string{}

	for comment in column_comments {
		x := comment.vals[1]
		information_schema_column_comment_results << x or { '' }
	}
	assert information_schema_column_comment_results == ['', 'real user name', '']

	mut information_schema_table_comment_result := []string{}
	for comment in table_comment {
		x := comment.vals[2]
		information_schema_table_comment_result << x or { '' }
	}
	assert information_schema_table_comment_result == ['This is a table comment']
}