# Unit tests for operators bbox, inst, val, deftime and present.

###############################################################################

create database mratest;
open database mratest;

###############################################################################

let mr1 = 
    [ const movingregion value (((0.0 10.0 TRUE TRUE)
			         ((((1.0 3.5 1.5 1.5)
			  	    (2.0 5.5 3.0 4.5)
				    (3.0 6.5 3.5 5.0)
  			            (4.0 6.5 5.5 5.0)
			            (4.0 5.5 5.5 4.5)
			            (5.0 4.5 7.5 2.5)
			            (5.0 2.5 7.5 1.0)
			            (4.0 1.5 7.0 0.5)
			            (3.0 1.5 2.5 0.5))
			           ((2.0 3.0 3.0 2.0)
			            (2.0 4.0 3.0 3.0)
			            (3.0 4.0 4.0 3.0)
			            (3.0 3.0 4.0 2.0)))))) ];

###############################################################################

let mr1pa =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (1.0 1.0 7.0 7.0))) ];

#testcase "a1 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-04-20:26:40" "2000-01-05-20:34:17.143" TRUE TRUE) (2.111111111111111 2.111111111111111 2.714285714285714 2.714285714285714)) (("2000-01-07" "2000-01-09-16:00" TRUE TRUE) (3.4 3.4 5.0 5.0))))
query intersection(mr1pa, mr1);

#testcase "a2 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-04-20:26:40" TRUE FALSE) FALSE) (("2000-01-04-20:26:40" "2000-01-05-20:34:17.143" TRUE TRUE) TRUE) (("2000-01-05-20:34:17.143" "2000-01-07" FALSE FALSE) FALSE) (("2000-01-07" "2000-01-09-16:00" TRUE TRUE) TRUE) (("2000-01-09-16:00" "2000-01-13" FALSE TRUE) FALSE)))
query mr1pa inside mr1;

###############################################################################

let mr1pb =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (3.0 1.75 4.0 1.75))) ];

#testcase "b1 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-13" TRUE TRUE) (3.0 1.75 4.0 1.75))))
query intersection(mr1pb, mr1);

#testcase "b2 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-13" TRUE TRUE) TRUE)))
query mr1pb inside mr1;

###############################################################################

let mr1pc =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (3.0 0.25 4.0 0.25))) ];

# It would be preferable if intersection returns an undefined mpoint value
# for test case c1 but undef mpoint values are not supported by the current
# version of the TemporalAlgebra (as of 26-Mar-2006).

#testcase "c1 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ())
query intersection(mr1pc, mr1);

#testcase "c2 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-13" TRUE TRUE) FALSE)))
query mr1pc inside mr1;

###############################################################################

let mr1pd =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (3.0 4.25 3.5 4.25))) ];

#testcase "d1 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-13" TRUE TRUE) (3.0 4.25 3.5 4.25))))
query intersection(mr1pd, mr1);

#testcase "d2 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-13" TRUE TRUE) TRUE)))
query mr1pd inside mr1;

###############################################################################

let mr1pe =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (4.5 4.0 5.0 4.0))) ];

#testcase "e1 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-13" TRUE TRUE) (4.5 4.0 5.0 4.0))))
query intersection(mr1pe, mr1);

#testcase "e2 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-13" TRUE TRUE) TRUE)))
query mr1pe inside mr1;

###############################################################################

let mr1pf =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (5.0 0.25 7.5 0.25))) ];

#testcase "f1 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ())
query intersection(mr1pf, mr1);

#testcase "f2 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-13" TRUE TRUE) FALSE)))
query mr1pf inside mr1;

###############################################################################

let mr1pg =
    [ const mpoint value (((-10.0 10.0 TRUE TRUE) 
		           (1.0 3.0 1.0 4.0))) ];

#testcase "g1 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-03" TRUE TRUE) (1.0 3.5 1.0 3.5))))
query intersection(mr1pg, mr1);

#testcase "g2 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("1999-12-24" "2000-01-03" TRUE FALSE) FALSE) (("2000-01-03" "2000-01-03" TRUE TRUE) TRUE) (("2000-01-03" "2000-01-13" FALSE TRUE) FALSE)))
query mr1pg inside mr1;

###############################################################################

let mr1ph =
    [ const mpoint value (((-10.0 10.0 TRUE TRUE) 
		           (1.0 5.5 3.0 5.5))) ];

#testcase "h1 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-03" TRUE TRUE) (2.0 5.5 2.0 5.5))))
query intersection(mr1ph, mr1);

#testcase "h2 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("1999-12-24" "2000-01-03" TRUE FALSE) FALSE) (("2000-01-03" "2000-01-03" TRUE TRUE) TRUE) (("2000-01-03" "2000-01-13" FALSE TRUE) FALSE)))
query mr1ph inside mr1;

###############################################################################

let mr1pi =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (2.0 5.5 1.0 6.5))) ];

#testcase "i1 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-03" TRUE TRUE) (2.0 5.5 2.0 5.5))))
query intersection(mr1pi, mr1);

#testcase "i2 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-03" TRUE TRUE) TRUE) (("2000-01-03" "2000-01-13" FALSE TRUE) FALSE)))
query mr1pi inside mr1;

###############################################################################

let mr1pj =
    [ const mpoint value (((0.0 20.0 TRUE TRUE) 
		           (4.0 4.5 2.0 4.5))) ];

#testcase "j1 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-13" TRUE TRUE) (4.0 4.5 3.0 4.5))))
query intersection(mr1pj, mr1);

#testcase "j2 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-13" TRUE TRUE) TRUE) (("2000-01-13" "2000-01-23" FALSE TRUE) FALSE)))
query mr1pj inside mr1;

###############################################################################

let mr1pk =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (1.0 3.5 1.0 4.5))) ];

#testcase "k1 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-03" TRUE TRUE) (1.0 3.5 1.0 3.5))))
query intersection(mr1pk, mr1);

#testcase "k2 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-03" TRUE TRUE) TRUE) (("2000-01-03" "2000-01-13" FALSE TRUE) FALSE)))
query mr1pk inside mr1;

###############################################################################

let mr1pl1 =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (2.0 5.5 3.5 5.0))) ];

#testcase "l11 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-13" TRUE TRUE) (2.0 5.5 3.5 5.0))))
query intersection(mr1pl1, mr1);

#testcase "l12 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-13" TRUE TRUE) TRUE)))
query mr1pl1 inside mr1;

###############################################################################

let mr1pl2 =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (2.25 5.75 3.375 4.875))) ];

#testcase "l21 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-13" TRUE TRUE) (2.25 5.75 3.375 4.875))))
query intersection(mr1pl2, mr1);

#testcase "l22 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-13" TRUE TRUE) TRUE)))
query mr1pl2 inside mr1;

###############################################################################

let mr1pl3 =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (2.25 5.75 3.75 5.25))) ];

#testcase "l31 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-10-12:00" TRUE TRUE) (2.25 5.75 3.375 5.375))))
query intersection(mr1pl3, mr1);

#testcase "l32 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-10-12:00" TRUE TRUE) TRUE) (("2000-01-10-12:00" "2000-01-13" FALSE TRUE) FALSE)))
query mr1pl3 inside mr1;

###############################################################################

let mr1pl4 =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (1.75 5.25 3.25 4.75))) ];

#testcase "l41 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-07-24:00" "2000-01-13" TRUE TRUE) (2.5 5.0 3.25 4.75))))
query intersection(mr1pl4, mr1);

#testcase "l42 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-08" TRUE FALSE) FALSE) (("2000-01-08" "2000-01-13" TRUE TRUE) TRUE)))
query mr1pl4 inside mr1;

###############################################################################

let mr1pl5 =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (1.75 5.25 3.75 5.25))) ];

#testcase "l41 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-05-12:00" "2000-01-11-08:00" TRUE TRUE) (2.25 5.25 3.416666666666667 5.25))))
query intersection(mr1pl5, mr1);

#testcase "l42 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-05-12:00" TRUE FALSE) FALSE) (("2000-01-05-12:00" "2000-01-11-08:00" TRUE TRUE) TRUE) (("2000-01-11-08:00" "2000-01-13" FALSE TRUE) FALSE)))
query mr1pl5 inside mr1;

###############################################################################

let mr1pm1 =
    [ const mpoint value (((-10.0 10.0 TRUE TRUE) 
		           (1.0 4.25 2.5 4.25))) ];

#testcase "m11 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-08" TRUE TRUE) (1.75 4.25 2.125 4.25))))
query intersection(mr1pm1, mr1);

#testcase "m12 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("1999-12-24" "2000-01-03" TRUE FALSE) FALSE) (("2000-01-03" "2000-01-08" TRUE TRUE) TRUE) (("2000-01-08" "2000-01-13" FALSE TRUE) FALSE)))
query mr1pm1 inside mr1;

###############################################################################

let mr1pm2 =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (2.5 4.25 1.75 4.25))) ];

#testcase "m21 - intersection"
#tolerance_real 0.00000001
#yields (mpoint ((("2000-01-03" "2000-01-08" TRUE TRUE) (2.5 4.25 2.125 4.25))))
query intersection(mr1pm2, mr1);

#testcase "m22 - inside"
#tolerance_real 0.00000001
#yields (mbool ((("2000-01-03" "2000-01-08" TRUE TRUE) TRUE) (("2000-01-08" "2000-01-13" FALSE TRUE) FALSE)))
query mr1pm2 inside mr1;

###############################################################################

let r1 = [ const region value ((((200.0 100.0)
                                 (100.0 100.0)
                                 (100.0 200.0)
                                 (200.0 200.0))
                                ((175.0 125.0)
                                 (125.0 125.0)
                                 (125.0 175.0)
                                 (175.0 175.0)))) ];

let r1p1 =
    [ const mpoint value (((0.0 10.0 TRUE TRUE) 
		           (50.0 150.0 250.0 150.0))) ];

#testcase "n - at"
#yields (mpoint ((("2000-01-05-12:00" "2000-01-06-18:00" TRUE TRUE) (100.0 150.0 125.0 150.0)) (("2000-01-09-06:00" "2000-01-10-12:00" TRUE TRUE) (175.0 150.0 200.0 150.0))))
query r1p1 at r1;

###############################################################################

let mr2 = [ const movingregion value (((0.0 10.0 TRUE FALSE)
                                       ((((  0.0   0.0  50.0  50.0)  
                                          (  0.0 100.0  50.0 150.0)
                                          (100.0 100.0 150.0 150.0)
                                          (100.0   0.0 150.0  50.0))
                                         (( 25.0  25.0  75.0  75.0)
                                          ( 25.0  75.0  75.0 125.0)
                                          ( 75.0  75.0 125.0 125.0)
                                          ( 75.0  25.0 125.0  75.0)))))) ];

let mr2p1 = [ const point value (30.0 30.0) ];

#testcase "o - at"
#yields (mpoint ((("2000-01-04" "2000-01-09" TRUE TRUE) (30.0 30.0 30.0 30.0))))
query mr2 at mr2p1;

#teardown
close database;
delete database mratest;