181 lines
5.7 KiB
Plaintext
181 lines
5.7 KiB
Plaintext
# delete database mytestdb;
|
|
|
|
#setup Forall2Test StandardAlgebra RelationAlgebra Temporal2Algebra
|
|
create database mytestdb;
|
|
|
|
# Here come: The tests
|
|
|
|
# ================
|
|
# Real Tests
|
|
# ================
|
|
|
|
# ==============================================================================
|
|
# TypeConstructor MPoint2
|
|
# ==============================================================================
|
|
|
|
# ----------------------
|
|
# -- anonymous object --
|
|
# ----------------------
|
|
|
|
#testcase open_db_1st_time
|
|
#yields success
|
|
open database mytestdb;
|
|
|
|
# --------------------------------
|
|
# -- variable assignement - let --
|
|
# --------------------------------
|
|
|
|
#testcase mpoint2_variable_undef_1
|
|
#yields success
|
|
let mm_var_undef = [const mpoint2 value undef];
|
|
|
|
#testcase mpoint2_variable_2000_1
|
|
#yields success
|
|
let mm_var_2000 = [const mpoint2 value ((("2000-01-01" "2000-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0)))];
|
|
|
|
#testcase mpoint2_variable_2000_2100_1
|
|
#yields success
|
|
let mm_var_2000_2100 = [const mpoint2 value ((("2000-01-01" "2000-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0))(("2100-01-01" "2100-01-01-00:01" TRUE FALSE)(1.0 1.0 0.0 0.0)))];
|
|
|
|
# ---------------------------
|
|
# -- attribute in relation --
|
|
# ---------------------------
|
|
|
|
#testcase mpoint2_relation_undef_1
|
|
#yields success
|
|
let mm_rel_undef = [const rel(tuple([MMP: mpoint2])) value ((undef))];
|
|
|
|
#testcase mpoint2_relation_2000_1
|
|
#yields success
|
|
let mm_rel_2000 = [const rel(tuple([MMP: mpoint2])) value (( ((("2000-01-01" "2000-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0))) ))];
|
|
|
|
#testcase mpoint2_relation_2000_2100_1
|
|
#yields success
|
|
let mm_rel_2000_2100 = [const rel(tuple([MMP: mpoint2])) value ((((("2000-01-01" "2000-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0))(("2100-01-01" "2100-01-01-00:01" TRUE FALSE)(1.0 1.0 0.0 0.0)))))];
|
|
|
|
# ----------------------------------------
|
|
# -- variable assignement - let - check --
|
|
# ----------------------------------------
|
|
|
|
#testcase mpoint2_variable_undef_2
|
|
#yields (mpoint2 undefined)
|
|
query mm_var_undef;
|
|
|
|
#testcase mpoint2_variable_2000_2
|
|
#yields (mpoint2((("2000-01-01" "2000-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0))))
|
|
query mm_var_2000;
|
|
|
|
#testcase mpoint2_variable_2000_2100_2
|
|
#yields (mpoint2((("2000-01-01" "2000-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0))(("2100-01-01" "2100-01-01-00:01" TRUE FALSE)(1.0 1.0 0.0 0.0))))
|
|
query mm_var_2000_2100;
|
|
|
|
|
|
# -----------------------------------
|
|
# -- attribute in relation - check --
|
|
# -----------------------------------
|
|
|
|
#testcase mpoint2_relation_undef_2
|
|
#yields ((rel (tuple ((MMP mpoint2)))) ((undefined)))
|
|
query mm_rel_undef;
|
|
|
|
#testcase mpoint2_relation_2000_2
|
|
#yields ((rel(tuple((MMP mpoint2))))((((("2000-01-01" "2000-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0))))))
|
|
query mm_rel_2000;
|
|
|
|
#testcase mpoint2_relation_2000_2100_2
|
|
#yields ((rel(tuple((MMP mpoint2))))((((("2000-01-01" "2000-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0))(("2100-01-01" "2100-01-01-00:01" TRUE FALSE)(1.0 1.0 0.0 0.0))))))
|
|
query mm_rel_2000_2100;
|
|
|
|
|
|
# --------------------------------------------------
|
|
# -- sync with other instances -- do checks there --
|
|
# --------------------------------------------------
|
|
|
|
#testcase signal_other_do_check
|
|
#yields (int 3)
|
|
query barrier('check1', 3);
|
|
|
|
#testcase wait_other_check_done
|
|
#yields (int 3)
|
|
query barrier('finish1', 3);
|
|
|
|
# ------------------------------------------------------
|
|
# -- do some dummy updates and let others check again --
|
|
# ------------------------------------------------------
|
|
|
|
#testcase close_update_open_db_3
|
|
#yields success
|
|
let dummy1 = [const mpoint2 value ((("2011-01-01" "2011-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0)))];
|
|
|
|
#testcase close_update_open_db_4
|
|
#yields success
|
|
let dummy2 = [const mpoint2 value ((("2012-01-01" "2012-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0)))];
|
|
|
|
#testcase close_update_open_db_5
|
|
#yields success
|
|
let dummy3 = [const mpoint2 value ((("2013-01-01" "2013-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0)))];
|
|
|
|
#testcase close_update_open_db_6
|
|
#yields success
|
|
let dummy4 = [const mpoint2 value ((("2014-01-01" "2014-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0)))];
|
|
|
|
#testcase close_update_open_db_7
|
|
#yields success
|
|
let dummy5 = [const mpoint2 value ((("2015-01-01" "2015-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0)))];
|
|
|
|
|
|
# ----------------------------------------
|
|
# -- variable assignement - let - check --
|
|
# ----------------------------------------
|
|
|
|
#testcase mpoint2_variable_undef_3
|
|
#yields (mpoint2 undefined)
|
|
query mm_var_undef;
|
|
|
|
#testcase mpoint2_variable_2000_3
|
|
#yields (mpoint2((("2000-01-01" "2000-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0))))
|
|
query mm_var_2000;
|
|
|
|
#testcase mpoint2_variable_2000_2100_3
|
|
#yields (mpoint2((("2000-01-01" "2000-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0))(("2100-01-01" "2100-01-01-00:01" TRUE FALSE)(1.0 1.0 0.0 0.0))))
|
|
query mm_var_2000_2100;
|
|
|
|
|
|
# -----------------------------------
|
|
# -- attribute in relation - check --
|
|
# -----------------------------------
|
|
|
|
#testcase mpoint2_relation_undef_3
|
|
#yields ((rel (tuple ((MMP mpoint2)))) ((undefined)))
|
|
query mm_rel_undef;
|
|
|
|
#testcase mpoint2_relation_2000_3
|
|
#yields ((rel(tuple((MMP mpoint2))))((((("2000-01-01" "2000-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0))))))
|
|
query mm_rel_2000;
|
|
|
|
#testcase mpoint2_relation_2000_2100_3
|
|
#yields ((rel(tuple((MMP mpoint2))))((((("2000-01-01" "2000-01-01-00:01" TRUE FALSE)(0.0 0.0 1.0 1.0))(("2100-01-01" "2100-01-01-00:01" TRUE FALSE)(1.0 1.0 0.0 0.0))))))
|
|
query mm_rel_2000_2100;
|
|
|
|
#testcase mpoint2_relation_invalid
|
|
#yields error
|
|
let mm_rel_invalid = [const rel(tuple([MMP: mpoint2])) value (( 123 ))];
|
|
|
|
|
|
# --------------------------------------------------
|
|
# -- sync with other instances -- do checks there --
|
|
# --------------------------------------------------
|
|
|
|
#testcase signal_other_do_check
|
|
#yields (int 3)
|
|
query barrier('check2', 3);
|
|
|
|
#testcase wait_other_check_done
|
|
#yields (int 3)
|
|
query barrier('finish2', 3);
|
|
|
|
|
|
#teardown
|
|
close database;
|
|
delete database mytestdb;
|