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
   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
   41test(bar1):-
   42  bar1(0.5,C),C=c3{axis:_4862{rotated:true,x:_4878{type:category},
   43  y:_4886{max:1.0,min:0.0,padding:_4918{bottom:0.0,top:0.0},
   44  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]}}},
   45  data:_4822{rows:[elem-prob,'T'-0.50],type:bar,x:elem},
   46  legend:_5082{show:false},size:_4814{height:100}}.
   47test(bar):-
   48  bar(0.5,C),C=c3{axis:_4862{rotated:true,x:_4878{type:category},
   49  y:_4886{max:1.0,min:0.0,padding:_4918{bottom:0.0,top:0.0},
   50  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]}}},
   51  data:_4822{rows:[elem-prob,'T'-0.50,'F'-0.50],type:bar,x:elem},
   52  legend:_5082{show:false},size:_4814{height:100}}.
   53
   54:- end_tests(beta).   55
   56:- begin_tests(av, []).   57
   58:-ensure_loaded(library(cplint_util)).   59
   60test(av1):-
   61  average([1,1],1).
   62
   63test(av2):-
   64  average([1-1,1-1],1).
   65
   66test(av3):-
   67  average([[1,1]-1,[1,1]-1],[1,1]).
   68
   69test(v1):-
   70  variance([1,1],1,0).
   71
   72test(v2):-
   73  variance([1-1,1-1],1,0).
   74
   75test(v3):-
   76  variance([[1,1]-1,[1,1]-1],[1,1],[0,0]).
   77
   78:- end_tests(av).