60 lines
		
	
	
		
			1.5 KiB
		
	
	
	
		
			ReasonML
		
	
	
	
	
	
			
		
		
	
	
			60 lines
		
	
	
		
			1.5 KiB
		
	
	
	
		
			ReasonML
		
	
	
	
	
	
| open Jest;
 | |
| open Expect;
 | |
| 
 | |
| exception ShapeWrong(string);
 | |
| describe("CDF", () => {
 | |
|   test("raise - w/o order", () => {
 | |
|     expect(() => {
 | |
|       module CDF =
 | |
|         CDFunctor.Make({
 | |
|           let shape: DistTypes.xyShape = {
 | |
|             xs: [|10., 4., 8.|],
 | |
|             ys: [|8., 9., 2.|],
 | |
|           };
 | |
|         });
 | |
|       ();
 | |
|     })
 | |
|     |> toThrow
 | |
|   });
 | |
|   test("raise - with order", () => {
 | |
|     expect(() => {
 | |
|       module CDF =
 | |
|         CDFunctor.Make({
 | |
|           let shape: DistTypes.xyShape = {
 | |
|             xs: [|1., 4., 8.|],
 | |
|             ys: [|8., 9., 2.|],
 | |
|           };
 | |
|         });
 | |
|       ();
 | |
|     })
 | |
|     |> not_
 | |
|     |> toThrow
 | |
|   });
 | |
|   test("order#1", () => {
 | |
|     let a = CDFunctor.order({xs: [|1., 4., 8.|], ys: [|8., 9., 2.|]});
 | |
|     let b: DistTypes.xyShape = {xs: [|1., 4., 8.|], ys: [|8., 9., 2.|]};
 | |
|     expect(a) |> toEqual(b);
 | |
|   });
 | |
|   test("order#2", () => {
 | |
|     let a = CDFunctor.order({xs: [|10., 5., 12.|], ys: [|8., 9., 2.|]});
 | |
|     let b: DistTypes.xyShape = {xs: [|5., 10., 12.|], ys: [|9., 8., 2.|]};
 | |
|     expect(a) |> toEqual(b);
 | |
|   });
 | |
|   test("minX", () => {
 | |
|     module CDF =
 | |
|       CDFunctor.Make({
 | |
|         let shape: DistTypes.xyShape =
 | |
|           CDFunctor.order({xs: [|20., 4., 8.|], ys: [|8., 9., 2.|]});
 | |
|       });
 | |
|     expect(CDF.minX()) |> toEqual(4.);
 | |
|   });
 | |
|   test("maxX", () => {
 | |
|     module CDF =
 | |
|       CDFunctor.Make({
 | |
|         let shape: DistTypes.xyShape =
 | |
|           CDFunctor.order({xs: [|20., 4., 8.|], ys: [|8., 9., 2.|]});
 | |
|       });
 | |
|     expect(CDF.maxX()) |> toEqual(20.);
 | |
|   });
 | |
| });
 |