futriix/tests/unit/cron.tcl

start_server {tags {"CRON"} overrides {hz 100} } {
    test {keydb.cron singleshot past tense} {
        r flushall
        r keydb.cron testjob single 0 1 {redis.call("incr", "testkey")} 1 testkey
        after 300
        assert_equal 1 [r get testkey]
        assert_equal 0 [r exists testjob]
    }

    test {keydb.cron repeat past tense next exec is in the future} {
        r flushall
        r keydb.cron testjob repeat 0 1000000 {redis.call("incr", "testkey")} 1 testkey
        after 300
        assert_equal 1 [r get testkey]
        assert_equal 1 [r exists testjob]
        r del testjob
    }

    test {keydb.cron repeat works} {
        r flushall
        r keydb.cron testjob repeat 0 900 {redis.call("incr","testkey")}
        after 1000
        assert_equal 2 [r get testkey]
    }

    test {keydb.cron overwrite works} {
        r flushall
        r keydb.cron testjob single 500 {redis.call("set","testkey","a")} 1 testkey
        r keydb.cron testjob single 500 {redis.call("set","anotherkey","b")} 1 anotherkey
        after 1000
        assert_equal 0 [r exists testkey]
        assert_equal b [r get anotherkey]
    }

    test {keydb.cron delete key stops job} {
        r flushall
        r keydb.cron testjob single 500 {redis.call("set","testkey","a")}
        r del testjob
        after 1000
        assert_equal 0 [r exists testkey]
    }

    test {keydb.cron zero interval rejected} {
        catch {r keydb.cron testjob single 0 0 {redis.call("incr","testkey")} 1 testkey} e
        assert_match {ERR*} $e
    }
}