22 lines
593 B
OCaml
22 lines
593 B
OCaml
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)
|
|
;;
|