#======================================================================
#
# Trigger Tests
# (test case numbering refer to requirement document TP v1.1)
#======================================================================

USE test;
--source suite/funcs_1/include/tb3.inc

# OBM - ToDo
############
# 1. Performace
###############################################

--disable_abort_on_error

#####################################################
################# Section 3.5.1 #####################
# Syntax checks for CREATE TRIGGER and DROP TRIGGER #
#####################################################

#Section 3.5.1.1
# Testcase: Ensure that all clauses that should be supported are supported.
let $message= Testcase: 3.5.1.1:;
--source include/show_msg.inc
# OBN - This test case tests basic trigger definition and execution
#       of INSERT/UPDATE/DELETE actions and BEFORE/AFTER timings.
#       As such it covers the equirements in sections 3.5.6.1, 3.5.6.2,
#       3.5.6.4, 3.5.6.5, 3.5.7.1, 3.5.7.2, 3.5.7.3, 3.5.7.17 below.
#     - Note currently as a result of limitations with locking tables in
#       triggers, a specific locking of the tables is done.
#       Once fixed, the locking and alias referances should be removed

use test;
# Trigger Definition
 Create trigger trg1_1 BEFORE INSERT
  on tb3 for each row set @test_before = 2, new.f142 = @test_before;
 Create trigger trg1_2 AFTER INSERT
  on tb3 for each row set @test_after = 6;
 Create trigger trg1_4 BEFORE UPDATE
  on tb3 for each row set @test_before = 27,
     new.f142 = @test_before,
     new.f122 = 'Before Update Trigger';
 Create trigger trg1_3 AFTER UPDATE
  on tb3 for each row set @test_after = '15';
 Create trigger trg1_5 BEFORE DELETE on tb3 for each row
  select count(*) into @test_before from tb3 as tr_tb3
   where f121 = 'Test 3.5.1.1';
 Create trigger trg1_6 AFTER DELETE on tb3 for each row
  select count(*) into @test_after from tb3 as tr_tb3
   where f121 = 'Test 3.5.1.1';
# Trigger Execution Insert (before and after)
 set @test_before = 1;
 set @test_after = 5;
        select @test_before, @test_after;
 Insert into tb3 (f121, f122, f142, f144, f134)
  values ('Test 3.5.1.1', 'First Row', @test_before, @test_after, 1);
        --sorted_result
 select f121, f122, f142, f144, f134 from tb3 where f121 = 'Test 3.5.1.1';
        select @test_before, @test_after;

# Trigger Execution Update (before and after)
 set @test_before = 18;
 set @test_after = 8;
        select @test_before, @test_after;
 Update tb3 set  tb3.f122 = 'Update',
   tb3.f142 = @test_before,
   tb3.f144 = @test_after
  where tb3.f121 = 'Test 3.5.1.1';
        --sorted_result
 select f121, f122, f142, f144, f134 from tb3 where f121 = 'Test 3.5.1.1';
        select @test_before, @test_after;

# Trigger Execution Delete (before and after)
 Insert into tb3 (f121, f122, f142, f144, f134)
  values ('Test 3.5.1.1', 'Second Row', 5, 6, 2);
 set @test_before = 0;
 set @test_after = 0;
        --sorted_result
 select f121, f122, f142, f144, f134 from tb3 where f121 = 'Test 3.5.1.1';
        select @test_before, @test_after;
 Delete from tb3 where f121 = 'Test 3.5.1.1' and f134 = 2;
        --sorted_result
 select f121, f122, f142, f144, f134 from tb3 where f121 = 'Test 3.5.1.1';
        select @test_before, @test_after;

#Cleanup
 --disable_warnings
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg1_1;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg1_2;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg1_3;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg1_4;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg1_5;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg1_6;
 --enable_warnings
 delete from tb3 where f121='Test 3.5.1.1';
 --enable_warnings

#Section 3.5.1.2
# Testcase: Ensure that all clauses that should not be supported are disallowed
#           with an appropriate error message.
let $message= Testcase: 3.5.1.2:;
--source include/show_msg.inc
 
 --error ER_PARSE_ERROR
 Create trigger trg_1 after insert
  on tb3 for each statement set @x= 1;

#Cleanup
 --disable_warnings
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg_1;
 --enable_warnings
 

#Section 3.5.1.3
# Testcase: Ensure that all supported clauses are supported only in the correct order.
let $message= Testcase 3.5.1.3:;
--source include/show_msg.inc
 --error ER_PARSE_ERROR
 CREATE TRIGGER trg3_1 on tb3 BEFORE INSERT for each row set new.f120 = 't';

 --error ER_PARSE_ERROR
 CREATE trg3_2 TRIGGER AFTER INSERT on tb3 for each row set new.f120 = 's';
  
 --error ER_PARSE_ERROR
 CREATE TRIGGER trg3_3 Before DELETE on tb3 set @ret1 = 'test' for each row;
 
 --error ER_PARSE_ERROR
 CREATE TRIGGER trg3_4 DELETE AFTER on tb3 set @ret1 = 'test' for each row;

 --error ER_PARSE_ERROR
 CREATE for each row TRIGGER trg3_5 AFTER UPDATE on tb3 set @ret1 = 'test';
 
#Cleanup
# OBN - Although none of the above should have been created we should do a cleanup
#       since if they have been created, not dropping them will affect following
#       tests.
 --disable_warnings
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg3_1;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg3_2;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg3_3;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg3_4;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg3_5;
 --enable_warnings


#Section 3.5.1.4
# Testcase: Ensure that an appropriate error message is returned if a clause
#           is out-of-order in an SQL statement.
# OBN - FIXME - Missing 3.5.1.4 need to add

#Section 3.5.1.5
# Testcase: Ensure that all clauses that are defined to be mandatory are indeed
#           required to be mandatory by the MySQL server and tools
let  $message= Testcase: 3.5.1.5:;
--source include/show_msg.inc

 --error ER_PARSE_ERROR
 CREATE TRIGGER trg4_1 AFTER on tb3 for each row set new.f120 = 'e';

 --error ER_PARSE_ERROR
 CREATE TRIGGER trg4_2 INSERT on tb3 for each set row  new.f120 = 'f';

 --error ER_PARSE_ERROR
 CREATE TRIGGER trg4_3 BEFORE INSERT tb3 for each row set new.f120 = 'g';

 --error ER_PARSE_ERROR
 CREATE TRIGGER trg4_4 AFTER UPDATE on tb3 for each set new.f120 = 'g';

 --error ER_PARSE_ERROR
 CREATE trg4_5 AFTER DELETE on tb3 for each set new.f120 = 'g';

 --error ER_PARSE_ERROR
 CREATE TRIGGER trg4_6 BEFORE DELETE for each row set new.f120 = 'g';

#Cleanup
# OBN - Although none of the above should have been created we should do a cleanup
#       since if they have been created, not dropping them will affect following
#       tests.
 --disable_warnings
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg4_1;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg4_2;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg4_3;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg4_4;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg4_5;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg4_6;
 --enable_warnings

#Section 3.5.1.6
# Testcase: Ensure that any clauses that are defined to be optional are indeed
#           trated as optional by MySQL server and tools
let $message= Testcase 3.5.1.6: - Need to fix;
--source include/show_msg.inc
# OBN - FIXME - Missing 3.5.1.6 need to add

#Section 3.5.1.7
# Testcase: Ensure that all valid, fully-qualified, and non-qualified,
#           trigger names are accepted, at creation time.
let $message= Testcase 3.5.1.7: - need to fix;
--source include/show_msg.inc

 drop table if exists t1;
        --replace_result $engine_type <engine_to_be_used>
 eval create table t1 (f1 int, f2 char(25),f3 int) engine = $engine_type;
 CREATE TRIGGER trg5_1 BEFORE INSERT on test.t1
  for each row set new.f3 = '14';
# In 5.0 names to long (more than 64 chars) were trimed without an error
# In 5.1 an error is returned. So adding a call with the expected error
# and one with a shorter name to validate proper execution
 --error ER_TOO_LONG_IDENT
 CREATE TRIGGER trg_abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ
  BEFORE UPDATE on test.t1 for each row set new.f3 = '42';
 CREATE TRIGGER trg_abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWX
  BEFORE UPDATE on test.t1 for each row set new.f3 = '42';

 insert into t1 (f2) values ('insert 3.5.1.7');
 select * from t1;
 update t1 set f2='update 3.5.1.7';
 select * from t1;
 select trigger_name from information_schema.triggers where trigger_schema <> 'sys' order by trigger_name;

#Cleanup
 --disable_warnings
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg5_1;
 # In 5.1 the long name should generate an error that is to long
 --error ER_TOO_LONG_IDENT
 drop trigger trg_abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ;
 drop trigger trg_abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWX;
 drop table t1;

#Section 3.5.1.8
# Testcase: Ensure that any invalid trigger name is never accepted, and that an
#            appropriate error message is returned when the name is rejected.
let $message= Testcase 3.5.1.8:;
--source include/show_msg.inc

 --error ER_PARSE_ERROR
 CREATE TRIGGER trg12* before insert on tb3 for each row set new.f120 = 't';

 --error ER_PARSE_ERROR
 CREATE TRIGGER trigger before insert on tb3 for each row set new.f120 = 't';

 --error ER_PARSE_ERROR
 CREATE TRIGGER 100 before insert on tb3 for each row set new.f120 = 't';

 --error ER_PARSE_ERROR
 CREATE TRIGGER @@view before insert on tb3 for each row set new.f120 = 't';

 --error ER_PARSE_ERROR
 CREATE TRIGGER @name before insert on tb3 for each row set new.f120 = 't';

 --error ER_TRG_IN_WRONG_SCHEMA
 CREATE TRIGGER tb3.trg6_1 BEFORE INSERT on test.tb3
  for each row set new.f120 ='X';
 
 --disable_warnings
        drop database if exists trig_db;
 --enable_warnings
 create database trig_db;
 use trig_db;
        --replace_result $engine_type <engine_to_be_used>
 eval create table t1 (f1 integer) engine = $engine_type;

 # Can't create a trigger in a different database
 use test;
 --error ER_NO_SUCH_TABLE
 CREATE TRIGGER trig_db.trg6_2 AFTER INSERT on tb3
  for each row set @ret_trg6_2 = 5;

 # Can't create a trigger refrencing a table in a different db
 use trig_db;
 --error ER_TRG_IN_WRONG_SCHEMA
 CREATE TRIGGER trg6_3 AFTER INSERT on test.tb3
  for each row set @ret_trg6_3 = 18;

 use test;

#Cleanup
 --disable_warnings
 drop database trig_db;
# OBN - Although none of the above should have been created we should do a cleanup
#       since if they have been created, not dropping them will affect following
#       tests.
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg6_1;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg6_3;
 --enable_warnings

#Section 3.5.1.9
#Testcase:  Ensure that a reference to a non-existent trigger is rejected with
#           an appropriate error message.
let $message= Testcase 3.5.1.9:(cannot be inplemented at this point);
--source include/show_msg.inc


#Section 3.5.1.10
#Testcase: Ensure that it is not possible to create two triggers with the same name on
#          the same table
let $message= Testcase 3.5.1.10:;
--source include/show_msg.inc

 CREATE TRIGGER trg7_1 BEFORE UPDATE on tb3 for each row set new.f120 ='X';

 --error ER_TRG_ALREADY_EXISTS
 CREATE TRIGGER trg7_1 AFTER INSERT on tb3 for each row set @x ='Y';

#Cleanup
 --disable_warnings
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trg7_1;
 --enable_warnings


#Section 3.5.1.?
# Testcase: Ensure that it is not possible to create two or more triggers with
#           the same name, provided each is associated with a different table.
let $message= Testcase 3.5.1.?:;
--source include/show_msg.inc

 --disable_warnings
 drop table if exists t1;
 drop table if exists t2;
 --enable_warnings
        --replace_result $engine_type <engine_to_be_used>
 eval create table t1 (f1 char(50), f2 integer) engine = $engine_type;
        --replace_result $engine_type <engine_to_be_used>
 eval create table t2 (f1 char(50), f2 integer) engine = $engine_type;

 create trigger trig before insert on t1
  for each row set new.f1 ='trig t1';

 --error ER_TRG_ALREADY_EXISTS
 create trigger trig before update on t2
  for each row set new.f1 ='trig t2';

 insert into t1 value ('insert to t1',1);
 select * from t1;
 update t1 set f1='update to t1';
 select * from t1;
 insert into t2 value ('insert to t2',2);
 update t2 set f1='update to t1';
 select * from t2;

#Cleanup
 --disable_warnings
 drop table t1;
 drop table t2;
 --error 0, ER_TRG_DOES_NOT_EXIST
 drop trigger trig;
 --enable_warnings


#Section 3.5.1.11
# Testcase: Ensure that it is possible to create two or more triggers with
#           the same name, provided each resides in a different database
let $message= Testcase 3.5.1.11:;
--source include/show_msg.inc

 --disable_warnings
        drop database if exists trig_db1;
        drop database if exists trig_db2;
        drop database if exists trig_db3;
 --enable_warnings
 create database trig_db1;
 create database trig_db2;
 create database trig_db3;
 use trig_db1;
        --replace_result $engine_type <engine_to_be_used>
 eval create table t1 (f1 char(50), f2 integer) engine = $engine_type;
 create trigger trig before insert on t1
  for each row set new.f1 ='trig1', @test_var1='trig1';
 use trig_db2;
        --replace_result $engine_type <engine_to_be_used>
 eval create table t2 (f1 char(50), f2 integer) engine = $engine_type;
 create trigger trig before insert on t2
  for each row set new.f1 ='trig2', @test_var2='trig2';
 use trig_db3;
        --replace_result $engine_type <engine_to_be_used>
 eval create table t1 (f1 char(50), f2 integer) engine = $engine_type;
 create trigger trig before insert on t1
  for each row set new.f1 ='trig3', @test_var3='trig3';

 set @test_var1= '', @test_var2= '', @test_var3= '';
 use trig_db1;
 insert into t1 (f1,f2) values ('insert to db1 t1',1);
 insert into trig_db1.t1 (f1,f2) values ('insert to db1 t1 from db1',2);
 insert into trig_db2.t2 (f1,f2) values ('insert to db2 t2 from db1',3);
 insert into trig_db3.t1 (f1,f2) values ('insert to db3 t1 from db1',4);
 select @test_var1, @test_var2, @test_var3;
 select * from t1 order by f2;
 select * from trig_db2.t2;
 select * from trig_db3.t1;
 select * from t1 order by f2;
 use test;

#Cleanup
 --disable_warnings
 drop database trig_db1;
 drop database trig_db2;
 drop database trig_db3;
 --enable_warnings

###########################################
################ Section 3.5.2 ############
# Check for the global nature of Triggers #
###########################################

#Section 3.5.2.1
# Test case: Ensure that if a trigger created without a qualifying database
#            name belongs to the database in use at creation time.
#Section 3.5.2.2
# Test case: Ensure that if a trigger created with a qualifying database name
#            belongs to the database specified.
#Section 3.5.2.3
# Test case: Ensure that if a trigger created with a qualifying database name
#            does not belong to the database in use at creation time unless
#            the qualifying database name identifies the database that is
#            also in use at creation time.
let $message= Testcase 3.5.2.1/2/3:;
--source include/show_msg.inc


 --disable_warnings
        drop database if exists trig_db1;
        drop database if exists trig_db2;
 --enable_warnings
 create database trig_db1;
 create database trig_db2;
 use trig_db1;
        --replace_result $engine_type <engine_to_be_used>
 eval create table t1 (f1 char(50), f2 integer) engine = $engine_type;
        --replace_result $engine_type <engine_to_be_used>
 eval create table trig_db2.t1 (f1 char(50), f2 integer) engine = $engine_type;
 create trigger trig1_b before insert on t1
  for each row set @test_var1='trig1_b';
 create trigger trig_db1.trig1_a after insert on t1
  for each row set @test_var2='trig1_a';
 create trigger trig_db2.trig2 before insert on trig_db2.t1
  for each row set @test_var3='trig2';
 select trigger_schema, trigger_name, event_object_table
        from information_schema.triggers
        where trigger_schema like 'trig_db%'
        order by trigger_name;

 set @test_var1= '', @test_var2= '', @test_var3= '';
 insert into t1 (f1,f2) values ('insert to db1 t1 from db1',352);
 insert into trig_db2.t1 (f1,f2) values ('insert to db2 t1 from db1',352);
 select @test_var1, @test_var2, @test_var3;

#Cleanup
 --disable_warnings
 drop database trig_db1;
 drop database trig_db2;
DROP TABLE test.tb3;