humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add basic tests for PersistentVector.delete

Browse Source
This commit is contained in:
Humza Shahid
2025-12-09 12:27:23 +00:00
parent e6bda83309
commit 102f2788a1
1 changed files with 50 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
test/persistent-vector-tests.sml
View File

@@ -33,23 +33,58 @@ struct
end end
val deleteTests = describe "PersistentVector.delete" val deleteTests = describe "PersistentVector.delete"
[test [ test
"deletes last value correctly \ "deletes last value correctly \
\when only last value is in deletion range" \when only last value is in deletion range"
(fn _ => (fn _ =>
let let
(* arrange *) (* arrange *)
val pv = Pv.fromList [(0, 0), (3, 3), (5, 5)] val pv = Pv.fromList [(0, 0), (3, 3), (5, 5)]
(* act *) (* act *)
val pv = Pv.delete (5, 1, pv) val pv = Pv.delete (5, 1, pv)
(* assert *) (* assert *)
val outputList = Pv.toList pv val outputList = Pv.toList pv
val expectedList = [(0, 0), (3, 3)] val expectedList = [(0, 0), (3, 3)]
in in
Expect.isTrue (outputList = expectedList) Expect.isTrue (outputList = expectedList)
end)] end)
, test
"deletes middle value correctly \
\and adjusts values-after-middle as well"
(fn _ =>
let
(* arrange *)
val pv = Pv.fromList [(0, 0), (3, 3), (5, 5)]
(* act *)
val pv = Pv.delete (3, 1, pv)
(* assert *)
val outputList = Pv.toList pv
val expectedList = [(0, 0), (4, 4)]
in
Expect.isTrue (outputList = expectedList)
end)
, test
"deletes first value correctly \
\and adjusts values-after-first as well"
(fn _ =>
let
(* arrange *)
val pv = Pv.fromList [(0, 0), (3, 3), (5, 5)]
(* act *)
val pv = Pv.delete (0, 1, pv)
(* assert *)
val outputList = Pv.toList pv
val expectedList = [(2, 2), (4, 4)]
in
Expect.isTrue (outputList = expectedList)
end)
]
val tests = [appendTests, deleteTests] val tests = [appendTests, deleteTests]
end end