added basic tests for cache interface

diff --git a/tests/config/cache_test.lua b/tests/config/cache_test.lua
new file mode 100644 (file)
index 0000000..06f6f92
--- /dev/null
+++ b/tests/config/cache_test.lua
@@ -0,0 +1,38 @@
+-- test if cache module properties work
+local function test_properties()
+       is(type(cache), 'table', 'cache module is loaded')
+       is(cache.count(), 0, 'cache is empty on startup')
+       local backends = cache.backends()
+       is(type(backends), 'table', 'cache provides a list of backends')
+       ok(backends['lmdb'], 'cache provides built-in lmdb backend')
+       is(cache.current_storage, 'lmdb://', 'cache starts with lmdb backend')
+       is(cache.current_size, 100 * MB, 'cache starts with default size limit')
+       is(cache.max_ttl(10), 10, 'allows setting maximum TTL')
+       is(cache.max_ttl(), 10, 'stored maximum TTL')
+       is(cache.min_ttl(1), 1, 'allows setting minimum TTL')
+       is(cache.min_ttl(), 1, 'stored minimum TTL')
+end
+
+-- test if the stats work with reopening the cache
+local function test_stats()
+       ok(cache.close(), 'cache can be closed')
+       boom(cache.open, {100 * MB, 'invalid://'}, 'cache cannot be opened with invalid backend')
+       ok(cache.open(100 * MB), 'cache can be reopened')
+       local s = cache.stats()
+       is(type(s), 'table', 'stats returns a table')
+       same({s.hit, s.miss, s.insert, s.delete}, {0, 0, 0, 0}, 'stats returns correct fields')
+end
+
+-- test if cache can be resized or shrunk
+local function test_resize()
+       ok(cache.open(200 * MB, 'lmdb://'), 'cache can be resized')
+       is(cache.current_size, 200 * MB, 'cache was resized')
+       ok(cache.open(50 * MB), 'cache can be shrunk')
+       is(cache.current_size, 50 * MB, 'cache was shrunk')
+end
+
+return {
+       test_properties,
+       test_stats,
+       test_resize,
+}
\ No newline at end of file