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