git mv Ingress ingress

controllers/nginx-third-party/lua/vendor/lua-resty-lrucache/t/init-by-lua.t

@@ -0,0 +1,121 @@
+# vim:set ft= ts=4 sw=4 et fdm=marker:
+
+use Test::Nginx::Socket::Lua;
+use Cwd qw(cwd);
+
+repeat_each(1);
+
+plan tests => repeat_each() * 13;
+
+#no_diff();
+#no_long_string();
+
+my $pwd = cwd();
+
+our $HttpConfig = <<"_EOC_";
+    lua_package_path "$pwd/lib/?.lua;$pwd/../lua-resty-core/lib/?.lua;;";
+    #init_by_lua '
+    #local v = require "jit.v"
+    #v.on("$Test::Nginx::Util::ErrLogFile")
+    #require "resty.core"
+    #';
+
+_EOC_
+
+no_long_string();
+run_tests();
+
+__DATA__
+
+=== TEST 1: sanity
+--- http_config eval
+"$::HttpConfig"
+. qq!
+        init_by_lua '
+            local function log(...)
+                ngx.log(ngx.WARN, ...)
+            end
+
+            local lrucache = require "resty.lrucache"
+            local c = lrucache.new(2)
+
+            collectgarbage()
+
+            c:set("dog", 32)
+            c:set("cat", 56)
+            log("dog: ", c:get("dog"))
+            log("cat: ", c:get("cat"))
+
+            c:set("dog", 32)
+            c:set("cat", 56)
+            log("dog: ", c:get("dog"))
+            log("cat: ", c:get("cat"))
+
+            c:delete("dog")
+            c:delete("cat")
+            log("dog: ", c:get("dog"))
+            log("cat: ", c:get("cat"))
+        ';
+!
+
+--- config
+    location = /t {
+        echo ok;
+    }
+--- request
+    GET /t
+--- response_body
+ok
+--- no_error_log
+[error]
+--- error_log
+dog: 32
+cat: 56
+dog: 32
+cat: 56
+dog: nil
+cat: nil
+
+
+
+=== TEST 2: sanity
+--- http_config eval
+"$::HttpConfig"
+. qq!
+init_by_lua '
+    lrucache = require "resty.lrucache"
+    flv_index, err = lrucache.new(200)
+    if not flv_index then
+        ngx.log(ngx.ERR, "failed to create the cache: ", err)
+        return
+    end
+
+    flv_meta, err = lrucache.new(200)
+    if not flv_meta then
+        ngx.log(ngx.ERR, "failed to create the cache: ", err)
+        return
+    end
+
+    flv_channel, err = lrucache.new(200)
+    if not flv_channel then
+        ngx.log(ngx.ERR, "failed to create the cache: ", err)
+        return
+    end
+
+    ngx.log(ngx.WARN, "3 lrucache initialized.")
+';
+!
+
+--- config
+    location = /t {
+        echo ok;
+    }
+--- request
+    GET /t
+--- response_body
+ok
+--- no_error_log
+[error]
+--- error_log
+3 lrucache initialized.
+

controllers/nginx-third-party/lua/vendor/lua-resty-lrucache/t/mixed.t

@@ -0,0 +1,75 @@
+# vim:set ft= ts=4 sw=4 et fdm=marker:
+
+use Test::Nginx::Socket::Lua;
+use Cwd qw(cwd);
+
+repeat_each(2);
+
+plan tests => repeat_each() * (blocks() * 3);
+
+#no_diff();
+#no_long_string();
+
+my $pwd = cwd();
+
+our $HttpConfig = <<"_EOC_";
+    lua_package_path "$pwd/lib/?.lua;$pwd/../lua-resty-core/lib/?.lua;;";
+    #init_by_lua '
+    #local v = require "jit.v"
+    #v.on("$Test::Nginx::Util::ErrLogFile")
+    #require "resty.core"
+    #';
+
+_EOC_
+
+no_long_string();
+run_tests();
+
+__DATA__
+
+=== TEST 1: sanity
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache"
+            local c = lrucache.new(2)
+
+            collectgarbage()
+
+            c:set("dog", 32)
+            c:set("cat", 56)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+
+            local lrucache = require "resty.lrucache.pureffi"
+            local c2 = lrucache.new(2)
+
+            ngx.say("dog: ", c2:get("dog"))
+            ngx.say("cat: ", c2:get("cat"))
+
+            c2:set("dog", 9)
+            c2:set("cat", "hi")
+
+            ngx.say("dog: ", c2:get("dog"))
+            ngx.say("cat: ", c2:get("cat"))
+
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 32
+cat: 56
+dog: nil
+cat: nil
+dog: 9
+cat: hi
+dog: 32
+cat: 56
+
+--- no_error_log
+[error]
+

controllers/nginx-third-party/lua/vendor/lua-resty-lrucache/t/pureffi/init-by-lua.t

@@ -0,0 +1,121 @@
+# vim:set ft= ts=4 sw=4 et fdm=marker:
+
+use Test::Nginx::Socket::Lua;
+use Cwd qw(cwd);
+
+repeat_each(1);
+
+plan tests => repeat_each() * 13;
+
+#no_diff();
+#no_long_string();
+
+my $pwd = cwd();
+
+our $HttpConfig = <<"_EOC_";
+    lua_package_path "$pwd/lib/?.lua;$pwd/../lua-resty-core/lib/?.lua;;";
+    #init_by_lua '
+    #local v = require "jit.v"
+    #v.on("$Test::Nginx::Util::ErrLogFile")
+    #require "resty.core"
+    #';
+
+_EOC_
+
+no_long_string();
+run_tests();
+
+__DATA__
+
+=== TEST 1: sanity
+--- http_config eval
+"$::HttpConfig"
+. qq!
+        init_by_lua '
+            local function log(...)
+                ngx.log(ngx.WARN, ...)
+            end
+
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(2)
+
+            collectgarbage()
+
+            c:set("dog", 32)
+            c:set("cat", 56)
+            log("dog: ", c:get("dog"))
+            log("cat: ", c:get("cat"))
+
+            c:set("dog", 32)
+            c:set("cat", 56)
+            log("dog: ", c:get("dog"))
+            log("cat: ", c:get("cat"))
+
+            c:delete("dog")
+            c:delete("cat")
+            log("dog: ", c:get("dog"))
+            log("cat: ", c:get("cat"))
+        ';
+!
+
+--- config
+    location = /t {
+        echo ok;
+    }
+--- request
+    GET /t
+--- response_body
+ok
+--- no_error_log
+[error]
+--- error_log
+dog: 32
+cat: 56
+dog: 32
+cat: 56
+dog: nil
+cat: nil
+
+
+
+=== TEST 2: sanity
+--- http_config eval
+"$::HttpConfig"
+. qq!
+init_by_lua '
+    lrucache = require "resty.lrucache.pureffi"
+    flv_index, err = lrucache.new(200)
+    if not flv_index then
+        ngx.log(ngx.ERR, "failed to create the cache: ", err)
+        return
+    end
+
+    flv_meta, err = lrucache.new(200)
+    if not flv_meta then
+        ngx.log(ngx.ERR, "failed to create the cache: ", err)
+        return
+    end
+
+    flv_channel, err = lrucache.new(200)
+    if not flv_channel then
+        ngx.log(ngx.ERR, "failed to create the cache: ", err)
+        return
+    end
+
+    ngx.log(ngx.WARN, "3 lrucache initialized.")
+';
+!
+
+--- config
+    location = /t {
+        echo ok;
+    }
+--- request
+    GET /t
+--- response_body
+ok
+--- no_error_log
+[error]
+--- error_log
+3 lrucache initialized.
+

controllers/nginx-third-party/lua/vendor/lua-resty-lrucache/t/pureffi/sanity.t

@@ -0,0 +1,390 @@
+# vim:set ft= ts=4 sw=4 et fdm=marker:
+
+use Test::Nginx::Socket::Lua;
+use Cwd qw(cwd);
+
+repeat_each(2);
+
+plan tests => repeat_each() * (blocks() * 3);
+
+#no_diff();
+#no_long_string();
+
+my $pwd = cwd();
+
+our $HttpConfig = <<"_EOC_";
+    lua_package_path "$pwd/lib/?.lua;$pwd/../lua-resty-core/lib/?.lua;;";
+    #init_by_lua '
+    #local v = require "jit.v"
+    #v.on("$Test::Nginx::Util::ErrLogFile")
+    #require "resty.core"
+    #';
+
+_EOC_
+
+no_long_string();
+run_tests();
+
+__DATA__
+
+=== TEST 1: sanity
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(2)
+
+            collectgarbage()
+
+            c:set("dog", 32)
+            c:set("cat", 56)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+
+            c:set("dog", 32)
+            c:set("cat", 56)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+
+            c:delete("dog")
+            c:delete("cat")
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 32
+cat: 56
+dog: 32
+cat: 56
+dog: nil
+cat: nil
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 2: evict existing items
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(2)
+            if not c then
+               ngx.say("failed to init lrucace: ", err)
+               return
+            end
+
+            c:set("dog", 32)
+            c:set("cat", 56)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+
+            c:set("bird", 76)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+            ngx.say("bird: ", c:get("bird"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 32
+cat: 56
+dog: nil
+cat: 56
+bird: 76
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 3: evict existing items (reordered, get should also count)
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(2)
+            if not c then
+               ngx.say("failed to init lrucace: ", err)
+               return
+            end
+
+            c:set("cat", 56)
+            c:set("dog", 32)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+
+            c:set("bird", 76)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+            ngx.say("bird: ", c:get("bird"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 32
+cat: 56
+dog: nil
+cat: 56
+bird: 76
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 4: ttl
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(1)
+
+            c:set("dog", 32, 0.6)
+            ngx.say("dog: ", c:get("dog"))
+
+            ngx.sleep(0.3)
+            ngx.say("dog: ", c:get("dog"))
+
+            ngx.sleep(0.31)
+            ngx.say("dog: ", c:get("dog"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 32
+dog: 32
+dog: nil32
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 5: load factor
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(1, 0.25)
+
+            ngx.say(c.bucket_sz)
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+4
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 6: load factor clamped to 0.1
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(3, 0.05)
+
+            ngx.say(c.bucket_sz)
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+32
+--- no_error_log
+[error]
+
+
+
+=== TEST 7: load factor saturated to 1
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(3, 2.1)
+
+            ngx.say(c.bucket_sz)
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+4
+--- no_error_log
+[error]
+
+
+
+=== TEST 8: non-string keys
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local function log(...)
+                ngx.say(...)
+            end
+
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(2)
+
+            collectgarbage()
+
+            local tab1 = {1, 2}
+            local tab2 = {3, 4}
+
+            c:set(tab1, 32)
+            c:set(tab2, 56)
+            log("tab1: ", c:get(tab1))
+            log("tab2: ", c:get(tab2))
+
+            c:set(tab1, 32)
+            c:set(tab2, 56)
+            log("tab1: ", c:get(tab1))
+            log("tab2: ", c:get(tab2))
+
+            c:delete(tab1)
+            c:delete(tab2)
+            log("tab1: ", c:get(tab1))
+            log("tab2: ", c:get(tab2))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+tab1: 32
+tab2: 56
+tab1: 32
+tab2: 56
+tab1: nil
+tab2: nil
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 9: replace value
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(1)
+
+            c:set("dog", 32)
+            ngx.say("dog: ", c:get("dog"))
+
+            c:set("dog", 33)
+            ngx.say("dog: ", c:get("dog"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 32
+dog: 33
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 10: replace value 2
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(1)
+
+            c:set("dog", 32, 1.0)
+            ngx.say("dog: ", c:get("dog"))
+
+            c:set("dog", 33, 0.3)
+            ngx.say("dog: ", c:get("dog"))
+
+            ngx.sleep(0.4)
+            ngx.say("dog: ", c:get("dog"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 32
+dog: 33
+dog: nil33
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 11: replace value 3 (the old value has longer expire time)
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(1)
+
+            c:set("dog", 32, 1.2)
+            c:set("dog", 33, 0.6)
+            ngx.sleep(0.2)
+            ngx.say("dog: ", c:get("dog"))
+
+            ngx.sleep(0.5)
+            ngx.say("dog: ", c:get("dog"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 33
+dog: nil33
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 12: replace value 4
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache.pureffi"
+            local c = lrucache.new(1)
+
+            c:set("dog", 32, 0.1)
+            ngx.sleep(0.2)
+
+            c:set("dog", 33)
+            ngx.sleep(0.2)
+            ngx.say("dog: ", c:get("dog"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 33
+
+--- no_error_log
+[error]

controllers/nginx-third-party/lua/vendor/lua-resty-lrucache/t/sanity.t

@@ -0,0 +1,250 @@
+# vim:set ft= ts=4 sw=4 et fdm=marker:
+
+use Test::Nginx::Socket::Lua;
+use Cwd qw(cwd);
+
+repeat_each(2);
+
+plan tests => repeat_each() * (blocks() * 3);
+
+#no_diff();
+#no_long_string();
+
+my $pwd = cwd();
+
+our $HttpConfig = <<"_EOC_";
+    lua_package_path "$pwd/lib/?.lua;$pwd/../lua-resty-core/lib/?.lua;;";
+    #init_by_lua '
+    #local v = require "jit.v"
+    #v.on("$Test::Nginx::Util::ErrLogFile")
+    #require "resty.core"
+    #';
+
+_EOC_
+
+no_long_string();
+run_tests();
+
+__DATA__
+
+=== TEST 1: sanity
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache"
+            local c = lrucache.new(2)
+
+            collectgarbage()
+
+            c:set("dog", 32)
+            c:set("cat", 56)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+
+            c:set("dog", 32)
+            c:set("cat", 56)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+
+            c:delete("dog")
+            c:delete("cat")
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 32
+cat: 56
+dog: 32
+cat: 56
+dog: nil
+cat: nil
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 2: evict existing items
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache"
+            local c = lrucache.new(2)
+            if not c then
+               ngx.say("failed to init lrucace: ", err)
+               return
+            end
+
+            c:set("dog", 32)
+            c:set("cat", 56)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+
+            c:set("bird", 76)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+            ngx.say("bird: ", c:get("bird"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 32
+cat: 56
+dog: nil
+cat: 56
+bird: 76
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 3: evict existing items (reordered, get should also count)
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache"
+            local c = lrucache.new(2)
+            if not c then
+               ngx.say("failed to init lrucace: ", err)
+               return
+            end
+
+            c:set("cat", 56)
+            c:set("dog", 32)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+
+            c:set("bird", 76)
+            ngx.say("dog: ", c:get("dog"))
+            ngx.say("cat: ", c:get("cat"))
+            ngx.say("bird: ", c:get("bird"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 32
+cat: 56
+dog: nil
+cat: 56
+bird: 76
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 4: ttl
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache"
+            local c = lrucache.new(1)
+
+            c:set("dog", 32, 0.5)
+            ngx.say("dog: ", c:get("dog"))
+
+            ngx.sleep(0.25)
+            ngx.say("dog: ", c:get("dog"))
+
+            ngx.sleep(0.26)
+            ngx.say("dog: ", c:get("dog"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 32
+dog: 32
+dog: nil32
+
+--- no_error_log
+[error]
+
+
+
+=== TEST 5: ttl
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache"
+            local lim = 5
+            local c = lrucache.new(lim)
+            local n = 1000
+
+            for i = 1, n do
+                c:set("dog" .. i, i)
+                c:delete("dog" .. i, i)
+                c:set("dog" .. i, i)
+                local cnt = 0
+                for k, v in pairs(c.hasht) do
+                    cnt = cnt + 1
+                end
+                assert(cnt <= lim)
+            end
+
+            for i = 1, n do
+                local key = "dog" .. math.random(1, n)
+                c:get(key)
+            end
+
+            for i = 1, n do
+                local key = "dog" .. math.random(1, n)
+                c:get(key)
+                c:set("dog" .. i, i)
+
+                local cnt = 0
+                for k, v in pairs(c.hasht) do
+                    cnt = cnt + 1
+                end
+                assert(cnt <= lim)
+            end
+
+            ngx.say("ok")
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+ok
+
+--- no_error_log
+[error]
+--- timeout: 20
+
+
+
+=== TEST 6: replace value
+--- http_config eval: $::HttpConfig
+--- config
+    location = /t {
+        content_by_lua '
+            local lrucache = require "resty.lrucache"
+            local c = lrucache.new(1)
+
+            c:set("dog", 32)
+            ngx.say("dog: ", c:get("dog"))
+
+            c:set("dog", 33)
+            ngx.say("dog: ", c:get("dog"))
+        ';
+    }
+--- request
+    GET /t
+--- response_body
+dog: 32
+dog: 33
+
+--- no_error_log
+[error]
+