84 lines
2.8 KiB
Lua
84 lines
2.8 KiB
Lua
-- SPDX-License-Identifier: GPL-3.0-or-later
|
|
local ffi = require('ffi')
|
|
|
|
-- Test LRU interface
|
|
local function test_lru()
|
|
local capacity = 1024
|
|
local lru = kres.lru(capacity)
|
|
local dict = {
|
|
"catagmatic", "prevaricator", "statoscope", "workhand", "benzamide",
|
|
"alluvia", "fanciful", "bladish", "Tarsius", "unfast", "appropriative",
|
|
"seraphically", "monkeypod", "deflectometer", "tanglesome", "zodiacal",
|
|
"physiologically", "economizer", "forcepslike", "betrumpet",
|
|
"Danization", "broadthroat", "randir", "usherette", "nephropyosis",
|
|
"hematocyanin", "chrysohermidin", "uncave", "mirksome", "podophyllum",
|
|
"siphonognathous", "indoor", "featheriness", "forwardation",
|
|
"archruler", "soricoid", "Dailamite", "carmoisin", "controllability",
|
|
"unpragmatical", "childless", "transumpt", "productive",
|
|
"thyreotoxicosis", "oversorrow", "disshadow", "osse", "roar",
|
|
"pantomnesia", "talcer", "hydrorrhoea", "Satyridae", "undetesting",
|
|
"smoothbored", "widower", "sivathere", "pendle", "saltation",
|
|
"autopelagic", "campfight", "unexplained", "Macrorhamphosus",
|
|
"absconsa", "counterflory", "interdependent", "triact", "reconcentration",
|
|
"oversharpness", "sarcoenchondroma", "superstimulate", "assessory",
|
|
"pseudepiscopacy", "telescopically", "ventriloque", "politicaster",
|
|
"Caesalpiniaceae", "inopportunity", "Helion", "uncompatible",
|
|
"cephaloclasia", "oversearch", "Mahayanistic", "quarterspace",
|
|
"bacillogenic", "hamartite", "polytheistical", "unescapableness",
|
|
"Pterophorus", "cradlemaking", "Hippoboscidae", "overindustrialize",
|
|
"perishless", "cupidity", "semilichen", "gadge", "detrimental",
|
|
"misencourage", "toparchia", "lurchingly", "apocatastasis"
|
|
}
|
|
|
|
-- Check that key insertion works
|
|
local inserted = 0
|
|
for i, word in ipairs(dict) do
|
|
if lru:set(word, i) then
|
|
if lru:get(word) == i then
|
|
inserted = inserted + 1
|
|
end
|
|
end
|
|
end
|
|
|
|
is(inserted, #dict, 'all inserted keys can be retrieved')
|
|
|
|
-- Check that using binary data as keys works
|
|
local badinserts = 0
|
|
for i, word in ipairs(dict) do
|
|
local word_len = #word
|
|
word = ffi.cast('char *', word)
|
|
if lru:set(word, i, word_len) then
|
|
if lru:get(word, word_len) ~= i then
|
|
badinserts = badinserts + 1
|
|
end
|
|
end
|
|
end
|
|
|
|
is(badinserts, 0, 'insertion works for binary keys')
|
|
|
|
-- Sanity check that non-existent keys cannot be retrieved
|
|
local missing = "not in lru"
|
|
is(lru:get(missing, #missing, false), nil, 'key that wasnt inserted cannot be retrieved')
|
|
|
|
-- Test whether key eviction works and LRU is able to insert past the capacity
|
|
badinserts = 0
|
|
for i = 0, capacity do
|
|
local word = dict[1] .. tostring(i)
|
|
if lru:set(word, i) then
|
|
if lru:get(word) ~= i then
|
|
badinserts = badinserts + 1
|
|
end
|
|
end
|
|
end
|
|
|
|
is(badinserts, 0, 'insertion works for more keys than LRU capacity')
|
|
|
|
-- Delete and GC
|
|
lru = nil -- luacheck: ignore 311
|
|
collectgarbage()
|
|
collectgarbage()
|
|
end
|
|
|
|
return {
|
|
test_lru,
|
|
}
|