Add 'string-tries-sml/' from commit 'd056e08ce768e014ab409c7f63e8fd0adfc1dff2'
git-subtree-dir: string-tries-sml git-subtree-mainline:dba78da7ecgit-subtree-split:d056e08ce7
This commit is contained in:
4
string-tries-sml/tests/string-set-tests.mlb
Normal file
4
string-tries-sml/tests/string-set-tests.mlb
Normal file
@@ -0,0 +1,4 @@
|
||||
$(SML_LIB)/basis/basis.mlb
|
||||
|
||||
../src/string-set.sml
|
||||
string-set-tests.sml
|
||||
209
string-tries-sml/tests/string-set-tests.sml
Normal file
209
string-tries-sml/tests/string-set-tests.sml
Normal file
@@ -0,0 +1,209 @@
|
||||
structure StringSetTests =
|
||||
struct
|
||||
fun assertTrue (isTrue, msg) =
|
||||
if isTrue then ()
|
||||
else
|
||||
(print (msg ^ "\n"); raise Empty)
|
||||
|
||||
fun assertFalse (isFalse, msg) = assertTrue (not isFalse, msg)
|
||||
|
||||
(* below tests ported from https://github.com/kpol/trie/blob/master/src/KTrie.Tests/TrieTests.cs *)
|
||||
|
||||
fun testExists () =
|
||||
let
|
||||
val trie = StringSet.fromList ["abc", "abde"]
|
||||
|
||||
val _ = assertTrue (StringSet.exists ("abc", trie), "abc should exist")
|
||||
val _ = assertTrue (StringSet.exists ("abde", trie), "abde should exist")
|
||||
|
||||
val _ = assertFalse (StringSet.exists ("a", trie), "a should not exist")
|
||||
val _ = assertFalse (StringSet.exists ("ab", trie), "ab should not exist")
|
||||
val _ = assertFalse (StringSet.exists ("abcd", trie), "abcd should not exist")
|
||||
val _ = assertFalse (StringSet.exists ("abce", trie), "abce should not exist")
|
||||
val _ = assertFalse (StringSet.exists ("x", trie), "x should not exist")
|
||||
in
|
||||
print "StringSet.exists passed all tests\n"
|
||||
end
|
||||
|
||||
fun testGetPrefixList () =
|
||||
let
|
||||
val trie = StringSet.fromList ["abc", "abde", "abx", "abxx"]
|
||||
|
||||
val aMatches = StringSet.getPrefixList ("a", trie) = ["abc", "abde", "abx", "abxx"]
|
||||
val _ = assertTrue (aMatches, "a matches")
|
||||
|
||||
val xMatches = StringSet.getPrefixList ("x", trie) = []
|
||||
val _ = assertTrue (xMatches, "x matches")
|
||||
|
||||
val abMatches = StringSet.getPrefixList ("ab", trie) = ["abc", "abde", "abx", "abxx"]
|
||||
val _ = assertTrue (abMatches, "ab matches")
|
||||
|
||||
val abcMatches = StringSet.getPrefixList ("abc", trie) = ["abc"]
|
||||
val _ = assertTrue (abcMatches, "abc matches")
|
||||
|
||||
val abccMatches = StringSet.getPrefixList ("abcc", trie) = []
|
||||
val _ = assertTrue (abccMatches, "abcc matches")
|
||||
|
||||
val abxMatches = StringSet.getPrefixList ("abx", trie) = ["abx", "abxx"]
|
||||
val _ = assertTrue (abxMatches, "abx matches")
|
||||
in
|
||||
print "StringSet.getPrefixList passed all tests\n"
|
||||
end
|
||||
|
||||
fun remove1 () =
|
||||
let
|
||||
val trie = StringSet.fromList ["a", "ab", "abc"]
|
||||
|
||||
val _ = assertTrue (StringSet.exists ("a", trie), "a exists before remove1")
|
||||
|
||||
val trie = StringSet.remove ("a", trie)
|
||||
val _ = assertFalse (StringSet.exists ("a", trie), "a does not exist after remove1")
|
||||
|
||||
val _ = assertTrue (StringSet.exists ("ab", trie), "ab still exists after remove1")
|
||||
val _ = assertTrue (StringSet.exists ("abc", trie), "abc still exists after remove1")
|
||||
in
|
||||
print "StringSet.remove: passed remove1\n"
|
||||
end
|
||||
|
||||
fun remove2 () =
|
||||
let
|
||||
val trie = StringSet.fromList ["a", "ab", "abc", "abd"]
|
||||
|
||||
val _ = assertTrue (StringSet.exists ("ab", trie), "ab exists before remove2")
|
||||
val trie = StringSet.remove ("ab", trie)
|
||||
val _ = assertFalse (StringSet.exists ("ab", trie), "ab no longer exists after remove2")
|
||||
|
||||
val _ = assertTrue (StringSet.exists ("a", trie), "remove2 contains a")
|
||||
val _ = assertTrue (StringSet.exists ("abc", trie), "remove2 contains abc")
|
||||
val _ = assertTrue (StringSet.exists ("abd", trie), "remove2 contains abd")
|
||||
in
|
||||
print "StringSet.remove: passed remove2\n"
|
||||
end
|
||||
|
||||
fun remove3 () =
|
||||
let
|
||||
val trie = StringSet.fromList ["abc"]
|
||||
|
||||
val _ = assertTrue (StringSet.exists ("abc", trie), "abc exists before remove3")
|
||||
val trie = StringSet.remove ("abc", trie)
|
||||
val _ = assertFalse (StringSet.exists ("abc", trie), "abc no longer exists after remove3")
|
||||
|
||||
val _ = assertTrue (StringSet.isEmpty trie, "trie is empty after remove3")
|
||||
|
||||
val trie = StringSet.insert ("abc", trie)
|
||||
val _ = assertTrue (StringSet.exists ("abc", trie), "abc exists after insertion in remove3")
|
||||
in
|
||||
print "StringSet.remove: passed remove3\n"
|
||||
end
|
||||
|
||||
fun remove4 () =
|
||||
let
|
||||
val trie = StringSet.fromList ["abc", "abcd"]
|
||||
val _ = assertTrue (StringSet.exists ("abc", trie), "abc exists before remove4")
|
||||
|
||||
val trie = StringSet.remove ("abc", trie)
|
||||
val _ = assertTrue (StringSet.exists ("abcd", trie), "abcd still exists after removing abc in remove4")
|
||||
val _ = assertFalse (StringSet.exists ("abc", trie), "abc doesn't exist after remove in remove4")
|
||||
in
|
||||
print "StringSet.remove: passed remove4\n"
|
||||
end
|
||||
|
||||
fun remove5 () =
|
||||
let
|
||||
val trie = StringSet.fromList ["abc", "ab", "ade", "abcde", "x"]
|
||||
|
||||
val trie2 = StringSet.remove ("xy", trie)
|
||||
val _ = assertTrue (trie = trie2, "removing key (xy) which doesn't exist in trie returns same trie")
|
||||
|
||||
val trie3 = StringSet.remove ("abcd", trie)
|
||||
val _ = assertTrue (trie = trie3, "removing key (abcd) which doesn't exist in trie returns same trie")
|
||||
|
||||
val _ = assertTrue (StringSet.exists ("abcde", trie), "abcde exists before remove in remove5")
|
||||
val trie = StringSet.remove ("abcde", trie)
|
||||
val _ = assertFalse (StringSet.exists ("abcde", trie), "abcde does not exist after remove in remove5")
|
||||
|
||||
val _ = assertTrue (StringSet.exists ("x", trie), "x exists before remove in remove5")
|
||||
val trie = StringSet.remove ("x", trie)
|
||||
val _ = assertFalse (StringSet.exists ("x", trie), "x does not exist after remove in remove5")
|
||||
|
||||
val _ = assertTrue (StringSet.exists ("abc", trie), "abc exists before remove in remove5")
|
||||
val trie = StringSet.remove ("abc", trie)
|
||||
val _ = assertFalse (StringSet.exists ("abc", trie), "abc does not exist after remove in remove5")
|
||||
|
||||
val _ = assertTrue (StringSet.exists ("ab", trie), "trie still contains ab after removals in remove5")
|
||||
val _ = assertTrue (StringSet.exists ("ade", trie), "trie still contains ade after removals in remove5")
|
||||
in
|
||||
print "StringSet.remove: passed remove5\n"
|
||||
end
|
||||
|
||||
fun insert1 () =
|
||||
let
|
||||
val trie = StringSet.empty
|
||||
val _ = assertFalse (StringSet.exists ("abc", trie), "abc does not exist before it is added to trie")
|
||||
|
||||
val trie = StringSet.insert ("abc", trie)
|
||||
val _ = assertTrue (StringSet.exists ("abc", trie), "abc exists after being addedd to trie")
|
||||
in
|
||||
print "StringSet.insert: passed insert1\n"
|
||||
end
|
||||
|
||||
fun insert2 () =
|
||||
let
|
||||
val trie = StringSet.fromList ["abc"]
|
||||
val trie2 = StringSet.insert ("abc", trie)
|
||||
|
||||
val _ = assertTrue (trie = trie2, "trie handles duplicate insertion by returning same trie")
|
||||
in
|
||||
print "StringSet.insert: passed insert2\n"
|
||||
end
|
||||
|
||||
fun insert3 () =
|
||||
let
|
||||
val trie = StringSet.empty
|
||||
val _ = assertFalse (StringSet.exists ("abcd", trie), "empty trie does not contain abcd")
|
||||
|
||||
val trie = StringSet.insert ("abcd", trie)
|
||||
val _ = assertTrue (StringSet.exists ("abcd", trie), "abcd exists after inserting it into empty trie")
|
||||
val _ = assertFalse (StringSet.exists ("abc", trie), "abc does not exist before inserting it")
|
||||
|
||||
val trie = StringSet.insert ("abc", trie)
|
||||
val _ = assertTrue (StringSet.exists ("abc", trie), "abc exists after inserting it into trie")
|
||||
|
||||
val trie = StringSet.remove ("abc", trie)
|
||||
val _ = assertFalse (StringSet.exists ("abc", trie), "abc does not exist after removing it from trie")
|
||||
in
|
||||
print "StringSet.insert: passed insert3\n"
|
||||
end
|
||||
|
||||
fun getPrefixList () =
|
||||
let
|
||||
val trie = StringSet.fromList ["z", "xc", "x", "zzz", "abc", "abcde"]
|
||||
val lst = StringSet.getPrefixList ("ab", trie)
|
||||
|
||||
val _ = assertTrue (lst = ["abc", "abcde"], "prefix list contains abc and abcde when prefix is 'ab'")
|
||||
in
|
||||
print "StringSet.getPrefixList: passed\n"
|
||||
end
|
||||
|
||||
fun run () =
|
||||
let
|
||||
val _ = testExists ()
|
||||
val _ = testGetPrefixList ()
|
||||
|
||||
val _ = remove1 ()
|
||||
val _ = remove2 ()
|
||||
val _ = remove3 ()
|
||||
val _ = remove4 ()
|
||||
val _ = remove5 ()
|
||||
|
||||
val _ = insert1 ()
|
||||
val _ = insert2 ()
|
||||
val _ = insert3 ()
|
||||
|
||||
val _ = getPrefixList ()
|
||||
in
|
||||
()
|
||||
end
|
||||
end
|
||||
|
||||
val _ = StringSetTests.run ()
|
||||
Reference in New Issue
Block a user