swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

22
unikernel/duniverse/base/test/test_base_stack.ml Normal file
View file

@ -0,0 +1,22 @@
open! Import
open Stack
include Test_container.Test_S1 (Stack)
include Test_stack.Test (Test_stack.Debug (Stack))
let capacity = capacity
let set_capacity = set_capacity
let%test_unit _ =
let t = create () in
[%test_result: int] (capacity t) ~expect:0;
set_capacity t (-1);
[%test_result: int] (capacity t) ~expect:0;
set_capacity t 10;
[%test_result: int] (capacity t) ~expect:10;
set_capacity t 0;
[%test_result: int] (capacity t) ~expect:0;
push t ();
set_capacity t 0;
[%test_result: int] (length t) ~expect:1;
[%test_pred: int] (fun c -> c >= 1) (capacity t)
;;