1# Before `make install' is performed this script should be runnable with
2# `make test'.
3
4##################### We start with some black magic to print on failure.
5
6BEGIN { $| = 1; print "1..14\n"; }
7END {print "not ok 1\n" unless $loaded;}
8use Text::NSP::Measures::2D::Fisher::left;
9$loaded = 1;
10print "ok 1\n";
11print "ok 2\n";
12
13######################### End of black magic.
14
15############ Computing left value for some count values.
16
17$value = calculateStatistic(n11 => 10,
18                                 n1p => 20,
19                                 np1 => 20,
20                                 npp => 60);
21$err = getErrorCode();
22if($err)
23{
24    print "not ok 3\n";
25}
26elsif($value >= 0.98634 && $value <= 0.98635)
27{
28    print "ok 3\n";
29}
30else
31{
32    print "not ok 3\n";
33}
34
35############Error Code check for missing values
36
37%count_values = (n1p => 20,
38                 np1 => 20,
39                 npp => 60);
40
41$value = calculateStatistic(%count_values);
42
43$err = getErrorCode();
44if($err == 200)
45{
46  print "ok 4\n";
47}
48else
49{
50  print"not ok 4\n";
51}
52
53############Error Code check for missing values
54
55%count_values = (n11 =>10,
56                 np1 => 20,
57                 npp => 60);
58
59$value = calculateStatistic(%count_values);
60
61$err = getErrorCode();
62if($err == 200)
63{
64  print "ok 5\n";
65}
66else
67{
68  print"not ok 5\n";
69}
70############Error Code check for missing values
71
72%count_values = (n11=>10,
73                 n1p => 20,
74                 np1 => 20);
75
76$value = calculateStatistic(%count_values);
77
78$err = getErrorCode();
79if($err == 200)
80{
81  print "ok 6\n";
82}
83else
84{
85  print"not ok 6\n";
86}
87############Error Code check for -ve values
88
89%count_values = (n11 => -10,
90                 n1p => 20,
91                 np1 => 20,
92                 npp => 60);
93
94$value = calculateStatistic(%count_values);
95
96$err = getErrorCode();
97if($err == 201)
98{
99  print "ok 7\n";
100}
101else
102{
103  print"not ok 7\n";
104}
105
106############Error Code check for -ve values
107
108%count_values = (n11 => 10,
109                 n1p => -20,
110                 np1 => 20,
111                 npp => 60);
112
113$value = calculateStatistic(%count_values);
114
115$err = getErrorCode();
116if($err == 204)
117{
118  print "ok 8\n";
119}
120else
121{
122  print"not ok 8\n";
123}
124
125############Error Code check for -ve values
126
127%count_values = (n11 => 10,
128                 n1p => 20,
129                 np1 => 20,
130                 npp => -60);
131
132$value = calculateStatistic(%count_values);
133
134$err = getErrorCode();
135if($err == 204)
136{
137  print "ok 9\n";
138}
139else
140{
141  print"not ok 9\n";
142}
143
144############Error Code check invalid values
145
146%count_values = (n11 => 80,
147                 n1p => 20,
148                 np1 => 20,
149                 npp => 60);
150
151$value = calculateStatistic(%count_values);
152
153$err = getErrorCode();
154if($err == 202)
155{
156  print "ok 10\n";
157}
158else
159{
160  print"not ok 10\n";
161}
162
163############Error Code check invalid values
164
165%count_values = (n11 => 30,
166                 n1p => 20,
167                 np1 => 20,
168                 npp => 60);
169
170$value = calculateStatistic(%count_values);
171
172$err = getErrorCode();
173if($err == 202)
174{
175  print "ok 11\n";
176}
177else
178{
179  print"not ok 11\n";
180}
181
182
183############Error Code check invalid values
184
185%count_values = (n11 => 10,
186                 n1p => 70,
187                 np1 => 20,
188                 npp => 60);
189
190$value = calculateStatistic(%count_values);
191
192$err = getErrorCode();
193if($err == 203)
194{
195  print "ok 12\n";
196}
197else
198{
199  print"not ok 12\n";
200  print $err;
201}
202
203############## Checking Error code for -ve observed frequency
204
205$value = calculateStatistic(n11 => 10,
206                                    n1p => 20,
207                                    np1 => 11,
208                                    npp => 20);
209$err = getErrorCode();
210if($err==201)
211{
212    print "ok 13\n";
213}
214else
215{
216    print "not ok 13\n";
217}
218
219############## Checking measure value for a contingency table with a zero observed value
220
221$value = calculateStatistic(n11 => 10,
222                                    n1p => 20,
223                                    np1 => 20,
224                                    npp => 30);
225$err = getErrorCode();
226if($value<=0.00614931 and $value >= 0.0061493)
227{
228    print "ok 14\n";
229}
230else
231{
232    print "not ok 14\n";
233}
234