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).