1:- module(test_cplint_util, 2 [test_util/0]). 3:- use_module(library(plunit)). 4 5 6:-use_module(library(cplint_test/cplint_test)). 7 8test_util:- 9 run_tests([ 10 beta,av,draw 11 ]). 12 13 14 15:- begin_tests(beta, []). 16 17:-ensure_loaded(library(cplint_util)). 18 19test(beta_1_1):- 20 run((beta([1,1],B), 21 close_to(B,1.0))). 22 23 24test(beta_2_2):- 25 run((beta([2,2],B), 26 close_to(B,0.16666666666666663))). 27 28test(beta_1_2):- 29 run((beta([1,2],B), 30 close_to(B,0.49999999999999994))). 31 32 33test(beta_05_05):- 34 run((beta([0.5,0.5],B), 35 close_to(B,3.1415926535897927))). 36 37test(beta_03_03):- 38 run((beta([0.3,0.3],B), 39 close_to(B,6.009623683731014))). 40 41 42 43:- end_tests(beta). 44 45:- begin_tests(av, []). 46 47:-ensure_loaded(library(cplint_util)). 48 49 50 51test(av1):- 52 average([1,1],1). 53 54test(av2):- 55 average([1-1,1-1],1). 56 57test(av3):- 58 average([[1,1]-1,[1,1]-1],[1,1]). 59 60test(v1):- 61 variance([1,1],1,0). 62 63test(v2):- 64 variance([1-1,1-1],1,0). 65 66test(v3):- 67 variance([[1,1]-1,[1,1]-1],[1,1],[0,0]). 68 69:- end_tests(av). 70 71 72:- begin_tests(draw, []). 73:-ensure_loaded(library(cplint_util)). 74test(bar1):- 75 bar1(0.5,C),C=c3{axis:_4862{rotated:true,x:_4878{type:category}, 76 y:_4886{max:1.0,min:0.0,padding:_4918{bottom:0.0,top:0.0}, 77 tick:_4942{values:[0.0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0]}}}, 78 data:_4822{rows:[elem-prob,'T'-0.50],type:bar,x:elem}, 79 legend:_5082{show:false},size:_4814{height:100}}. 80test(bar):- 81 bar(0.5,C),C=c3{axis:_4862{rotated:true,x:_4878{type:category}, 82 y:_4886{max:1.0,min:0.0,padding:_4918{bottom:0.0,top:0.0}, 83 tick:_4942{values:[0.0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0]}}}, 84 data:_4822{rows:[elem-prob,'T'-0.50,'F'-0.50],type:bar,x:elem}, 85 legend:_5082{show:false},size:_4814{height:100}}. 86 87 88test(hist1):- 89 histogram([1,2,3,4],H), 90 H = c3{axis:_{x:_{tick:_{fit:false}}}, 91 bar:_{width:_{ratio:1.0}}, data:_{columns:[[x|_], 92 [freq|_]], type:bar, x:x}, legend:_{show:false}}. 93 94test(hist2):- 95 histogram([1-1,2-1,3-1,4-1],H), 96 H = c3{axis:_{x:_{tick:_{fit:false}}}, 97 bar:_{width:_{ratio:1.0}}, data:_{columns:[[x|_], 98 [freq|_]], type:bar, x:x}, legend:_{show:false}}. 99 100 101test(dens1):- 102 density([1,2,3,4],H), 103 H = c3{axis:_{x:_{tick:_{fit:false}}}, 104 data:_{columns:[[x, 1.040625, 1.121875, 1.203125, 1.284375, 1.365625|_], 105 [dens, 1, 0, 0, 0|_]], x:x}}. 106 107test(dens2):- 108 density([1-1,2-1,3-1,4-1],H), 109 H = c3{axis:_{x:_{tick:_{fit:false}}}, 110 data:_{columns:[[x, 1.040625, 1.121875, 1.203125, 1.284375, 1.365625|_], 111 [dens, 1, 0, 0, 0|_]], x:x}}. 112 113test(dens3):- 114 densities([1,2,3,4],[1,2,3,4],H), 115 H = c3{axis:_{x:_{tick:_{fit:false}}}, 116 data:_{columns:[[x, 1.040625, 1.121875, 1.203125, 1.284375, 1.365625|_], [pre, 1, 0, 0, 0|_], [post, 1, 0, 0|_]], x:x}}. 117 118test(dens4):- 119 densities([1-1,2-1,3-1,4-1],[1-1,2-1,3-1,4-1],H), 120 H = c3{axis:_{x:_{tick:_{fit:false}}}, 121 data:_{columns:[[x, 1.040625, 1.121875, 1.203125, 1.284375, 1.365625|_], [pre, 1, 0, 0, 0|_], [post, 1, 0, 0|_]], x:x}}. 122 123:- end_tests(draw).