# WL#6745 InnoDB R-tree support
# This test case will test basic R-tree support features.

# Not supported in embedded
--source include/not_embedded.inc

--source include/have_innodb.inc

# Create table with R-tree index.
create table t1 (i int, g geometry not null, spatial index (g))engine=innodb;

# Insert values.
insert into t1 values (1, POINT(1,1));
insert into t1 values (1, POINT(1.5,1.5));
insert into t1 values (1, POINT(3,3));
insert into t1 values (1, POINT(3.1,3.1));
insert into t1 values (1, POINT(5,5));

analyze table t1;

# Select by R-tree index.
set @g1 = ST_GeomFromText('Polygon((0 0,0 3,3 3,3 0,0 0))');
explain select ST_astext(t1.g) from t1 where MBRWithin(t1.g, @g1);
select ST_astext(t1.g) from t1 where MBRWithin(t1.g, @g1);

# Delete values.
set @g1 = ST_GeomFromText('Polygon((0 0,0 3,3 3,3 0,0 0))');
delete from t1 where MBRWithin(t1.g, @g1);
check table t1;

select ST_astext(t1.g) from t1;

# Update values.
set @g1 = ST_GeomFromText('Polygon((5 5,5 5,5 5,5 5,5 5))');
update t1 set g = POINT(2,2) where MBRWithin(t1.g, @g1);
check table t1;

select ST_astext(t1.g) from t1;

# Show index.
--replace_column 7 #
show indexes from t1;

# Cleanup.
drop table t1;

# Test functions.
create table t1 (name VARCHAR(100), square GEOMETRY not null, spatial index (square))engine=innodb;


INSERT INTO t1 VALUES("small",  ST_GeomFromText('POLYGON (( 0 0, 0 1, 1 1, 1 0, 0 0))'));
INSERT INTO t1 VALUES("big",    ST_GeomFromText('POLYGON (( 0 0, 0 3, 3 3, 3 0, 0 0))'));

INSERT INTO t1 VALUES("up",     ST_GeomFromText('POLYGON (( 0 1, 0 3, 2 3, 2 1, 0 1))'));
INSERT INTO t1 VALUES("up2",    ST_GeomFromText('POLYGON (( 0 2, 0 4, 2 4, 2 2, 0 2))'));
INSERT INTO t1 VALUES("up3",    ST_GeomFromText('POLYGON (( 0 3, 0 5, 2 5, 2 3, 0 3))'));

INSERT INTO t1 VALUES("down",   ST_GeomFromText('POLYGON (( 0 -1, 0  1, 2  1, 2 -1, 0 -1))'));
INSERT INTO t1 VALUES("down2",  ST_GeomFromText('POLYGON (( 0 -2, 0  0, 2  0, 2 -2, 0 -2))'));
INSERT INTO t1 VALUES("down3",  ST_GeomFromText('POLYGON (( 0 -3, 0 -1, 2 -1, 2 -3, 0 -3))'));

INSERT INTO t1 VALUES("right",  ST_GeomFromText('POLYGON (( 1 0, 1 2, 3 2, 3 0, 1 0))'));
INSERT INTO t1 VALUES("right2", ST_GeomFromText('POLYGON (( 2 0, 2 2, 4 2, 4 0, 2 0))'));
INSERT INTO t1 VALUES("right3", ST_GeomFromText('POLYGON (( 3 0, 3 2, 5 2, 5 0, 3 0))'));

INSERT INTO t1 VALUES("left",   ST_GeomFromText('POLYGON (( -1 0, -1 2,  1 2,  1 0, -1 0))'));
INSERT INTO t1 VALUES("left2",  ST_GeomFromText('POLYGON (( -2 0, -2 2,  0 2,  0 0, -2 0))'));
INSERT INTO t1 VALUES("left3",  ST_GeomFromText('POLYGON (( -3 0, -3 2, -1 2, -1 0, -3 0))'));

SET @p = ST_GeomFromText('POLYGON (( 0 0, 0 2, 2 2, 2 0, 0 0))');
SELECT name, ST_AsText(square) from t1 where MBRContains(@p, square);
SELECT name, ST_AsText(square) from t1 where MBRDisjoint(@p, square);
SELECT name, ST_AsText(square) from t1 where MBREquals(@p, square);
SELECT name, ST_AsText(square) from t1 where MBRIntersects(@p, square);
SELECT name, ST_AsText(square) from t1 where MBROverlaps(@p, square);
SELECT name, ST_AsText(square) from t1 where MBRTouches(@p, square);
SELECT name, ST_AsText(square) from t1 where MBRWithin(@p, square);

# MBROverlaps needs a few more tests, with point and line dimensions

# --error ER_GIS_INVALID_DATA
SET @vert1   = ST_GeomFromText('POLYGON ((0 -2, 0 2, 0 -2))');
# --error ER_GIS_INVALID_DATA
SET @horiz1  = ST_GeomFromText('POLYGON ((-2 0, 2 0, -2 0))');
# --error ER_GIS_INVALID_DATA
SET @horiz2 = ST_GeomFromText('POLYGON ((-1 0, 3 0, -1 0))');
# --error ER_GIS_INVALID_DATA
SET @horiz3 = ST_GeomFromText('POLYGON ((2 0, 3 0, 2 0))');
# --error ER_GIS_INVALID_DATA
SET @point1 = ST_GeomFromText('POLYGON ((0 0))');
# --error ER_GIS_INVALID_DATA
SET @point2 = ST_GeomFromText('POLYGON ((-2 0))');

SELECT GROUP_CONCAT(a1.name ORDER BY a1.name) AS MBRoverlaps FROM t1 a1 WHERE MBROverlaps(a1.square, @vert1) GROUP BY a1.name;
SELECT GROUP_CONCAT(a1.name ORDER BY a1.name) AS MBRoverlaps FROM t1 a1 WHERE MBROverlaps(a1.square, @horiz1) GROUP BY a1.name;
SELECT MBROverlaps(@horiz1, @vert1) FROM DUAL;
SELECT MBROverlaps(@horiz1, @horiz2) FROM DUAL;
SELECT MBROverlaps(@horiz1, @horiz3) FROM DUAL;
SELECT MBROverlaps(@horiz1, @point1) FROM DUAL;
SELECT MBROverlaps(@horiz1, @point2) FROM DUAL;

DROP TABLE t1;

# Inplace create spatial index is not supported
create table t1 (i int not null, g geometry not null)engine=innodb;

# Insert values.
insert into t1 values (1, POINT(1,1));
insert into t1 values (2, POINT(1.5,1.5));
insert into t1 values (3, POINT(3,3));
insert into t1 values (4, POINT(3.1,3.1));
insert into t1 values (5, POINT(5,5));

# alter table t1 add primary key(i), algorithm=inplace;
alter table t1 add primary key(i);
alter table t1 drop primary key;

# create spatial index idx on t1(g) algorithm=inplace;
create spatial index idx on t1(g);

create spatial index idx2 on t1(g);

# alter table t1 add primary key(i), algorithm=inplace;
alter table t1 add primary key(i);

show create table t1;

drop index idx on t1;

drop table t1;

#Test multi pk table.
create table t1 (i int, i2 char(10), g geometry not null, primary key (i, i2), spatial index (g))engine=innodb;

# Insert values.
insert into t1 values (1, "111", POINT(1,1));
insert into t1 values (2, "222", POINT(1.5,1.5));
insert into t1 values (3, "333", POINT(3,3));
insert into t1 values (4, "444", POINT(3.1,3.1));
insert into t1 values (5, "555", POINT(5,5));

analyze table t1;

# Select by R-tree index.
set @g1 = ST_GeomFromText('Polygon((0 0,0 3,3 3,3 0,0 0))');
explain select ST_astext(t1.g) from t1 where MBRWithin(t1.g, @g1);
select ST_astext(t1.g) from t1 where MBRWithin(t1.g, @g1);

# Delete values.
set @g1 = ST_GeomFromText('Polygon((0 0,0 3,3 3,3 0,0 0))');
delete from t1 where MBRWithin(t1.g, @g1);
check table t1;

select ST_astext(t1.g) from t1;

# Update values.
set @g1 = ST_GeomFromText('Polygon((5 5,5 5,5 5,5 5,5 5))');
update t1 set g = POINT(2,2) where MBRWithin(t1.g, @g1);
check table t1;

select ST_astext(t1.g) from t1;

# Show index.
--replace_column 7 #
show indexes from t1;

# Cleanup.
drop table t1;

CREATE TABLE `t1` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `way` geometry NOT NULL,
  PRIMARY KEY (`id`),
  SPATIAL KEY `way` (`way`)
) ENGINE=InnoDB;

INSERT INTO t1 SET way = ST_GeomFromText('POINT(1 1)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(1 2)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(1 3)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(1 4)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(1 5)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(2 1)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(2 2)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(2 3)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(2 4)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(2 5)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(3 1)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(3 2)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(3 3)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(3 4)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(3 5)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(4 1)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(4 2)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(4 3)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(4 4)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(4 5)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(5 1)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(5 2)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(5 3)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(5 4)');
INSERT INTO t1 SET way = ST_GeomFromText('POINT(5 5)');

SELECT COUNT(*)
  FROM t1
 WHERE ST_CONTAINS(ST_GeomFromText('POLYGON((2 2,4 2, 4 4, 2 4, 2 2))'),way);

OPTIMIZE TABLE t1;

SELECT COUNT(*)
  FROM t1
 WHERE ST_CONTAINS(ST_GeomFromText('POLYGON((2 2,4 2, 4 4, 2 4, 2 2))'),way);


DROP TABLE t1;

# Check the update with unchanged MBR optimization.
# Create table with R-tree index.
CREATE TABLE t1( i INT, g GEOMETRY NOT NULL, SPATIAL INDEX (g)) ENGINE=InnoDB;

# Insert values.
INSERT INTO t1 VALUES(1, LINESTRING(POINT(1,1), POINT(4, 4)));
INSERT INTO t1 VALUES(2, LINESTRING(POINT(2,2), POINT(5, 5)));

# Update value.
UPDATE t1 SET g = LINESTRING(POINT(1,1), POINT(2,2), POINT(3,3), POINT(4,4))
 WHERE i = 1;
UPDATE t1 SET g = LINESTRING(POINT(1,1), POINT(2,2), POINT(3,3), POINT(8,8))
 WHERE i = 2;


CHECK TABLE t1;

DELETE FROM t1
 WHERE ST_CONTAINS(ST_GeomFromText('POLYGON((0 0,4 0, 4 4, 0 4, 0 0))'),g);

DROP TABLE t1;