[redis.git] / tests / unit / cas.tcl

start_server {} {
    test {EXEC works on WATCHed key not modified} {
        r watch x y z
        r watch k
        r multi
        r ping
        r exec
    } {PONG}

    test {EXEC fail on WATCHed key modified (1 key of 1 watched)} {
        r set x 30
        r watch x
        r set x 40
        r multi
        r ping
        r exec
    } {}

    test {EXEC fail on WATCHed key modified (1 key of 5 watched)} {
        r set x 30
        r watch a b x k z
        r set x 40
        r multi
        r ping
        r exec
    } {}

    test {After successful EXEC key is no longer watched} {
        r set x 30
        r watch x
        r multi
        r ping
        r exec
        r set x 40
        r multi
        r ping
        r exec
    } {PONG}

    test {After failed EXEC key is no longer watched} {
        r set x 30
        r watch x
        r set x 40
        r multi
        r ping
        r exec
        r set x 40
        r multi
        r ping
        r exec
    } {PONG}

    test {It is possible to UNWATCH} {
        r set x 30
        r watch x
        r set x 40
        r unwatch
        r multi
        r ping
        r exec
    } {PONG}

    test {UNWATCH when there is nothing watched works as expected} {
        r unwatch
    } {OK}

    test {FLUSHALL is able to touch the watched keys} {
        r set x 30
        r watch x
        r flushall
        r multi
        r ping
        r exec
    } {}

    test {FLUSHALL does not touch non affected keys} {
        r del x
        r watch x
        r flushall
        r multi
        r ping
        r exec
    } {PONG}

    test {FLUSHDB is able to touch the watched keys} {
        r set x 30
        r watch x
        r flushdb
        r multi
        r ping
        r exec
    } {}

    test {FLUSHDB does not touch non affected keys} {
        r del x
        r watch x
        r flushdb
        r multi
        r ping
        r exec
    } {PONG}

    test {WATCH is able to remember the DB a key belongs to} {
        r select 5
        r set x 30
        r watch x
        r select 1
        r set x 10
        r select 5
        r multi
        r ping
        r exec
    } {PONG}
}
Commit	Line	Data
9e5d2e8b	1	start_server {} {
c20c189d	2	test {EXEC works on WATCHed key not modified} {
	3	r watch x y z
	4	r watch k
	5	r multi
	6	r ping
	7	r exec
	8	} {PONG}
	9
	10	test {EXEC fail on WATCHed key modified (1 key of 1 watched)} {
	11	r set x 30
	12	r watch x
	13	r set x 40
	14	r multi
	15	r ping
	16	r exec
	17	} {}
	18
	19	test {EXEC fail on WATCHed key modified (1 key of 5 watched)} {
	20	r set x 30
	21	r watch a b x k z
	22	r set x 40
	23	r multi
	24	r ping
	25	r exec
	26	} {}
	27
	28	test {After successful EXEC key is no longer watched} {
	29	r set x 30
	30	r watch x
	31	r multi
	32	r ping
	33	r exec
	34	r set x 40
	35	r multi
	36	r ping
	37	r exec
	38	} {PONG}
	39
	40	test {After failed EXEC key is no longer watched} {
	41	r set x 30
	42	r watch x
	43	r set x 40
	44	r multi
	45	r ping
	46	r exec
	47	r set x 40
	48	r multi
	49	r ping
	50	r exec
	51	} {PONG}
	52
	53	test {It is possible to UNWATCH} {
	54	r set x 30
	55	r watch x
	56	r set x 40
	57	r unwatch
	58	r multi
	59	r ping
	60	r exec
	61	} {PONG}
	62
	63	test {UNWATCH when there is nothing watched works as expected} {
	64	r unwatch
	65	} {OK}
9b30e1a2	66
	67	test {FLUSHALL is able to touch the watched keys} {
	68	r set x 30
	69	r watch x
	70	r flushall
	71	r multi
	72	r ping
	73	r exec
	74	} {}
	75
	76	test {FLUSHALL does not touch non affected keys} {
	77	r del x
	78	r watch x
	79	r flushall
	80	r multi
	81	r ping
	82	r exec
	83	} {PONG}
	84
	85	test {FLUSHDB is able to touch the watched keys} {
	86	r set x 30
	87	r watch x
	88	r flushdb
	89	r multi
	90	r ping
	91	r exec
	92	} {}
	93
	94	test {FLUSHDB does not touch non affected keys} {
	95	r del x
	96	r watch x
	97	r flushdb
	98	r multi
	99	r ping
	100	r exec
	101	} {PONG}
	102
	103	test {WATCH is able to remember the DB a key belongs to} {
	104	r select 5
	105	r set x 30
	106	r watch x
	107	r select 1
	108	r set x 10
	109	r select 5
	110	r multi
	111	r ping
	112	r exec
	113	} {PONG}
c20c189d	114	}