1 #! /bin/sh 2 3 # Run PCRE tests. 4 5 valgrind= 6 7 # Set up a suitable "diff" command for comparison. Some systems 8 # have a diff that lacks a -u option. Try to deal with this. 9 10 if diff -u /dev/null /dev/null; then cf="diff -u"; else cf="diff"; fi 11 12 # Find the test data 13 14 testdata=testdata 15 if [ -n "$srcdir" -a -d "$srcdir" ] ; then 16 testdata="$srcdir/testdata" 17 fi 18 19 # Find which optional facilities are available 20 21 case `./pcretest -C | ./pcregrep 'Internal link size'` in 22 *2) link_size=2;; 23 *3) link_size=3;; 24 *4) link_size=4;; 25 *) echo "Failed to find internal link size"; exit 1;; 26 esac 27 28 ./pcretest -C | ./pcregrep 'No UTF-8 support' >/dev/null 29 utf8=$? 30 31 ./pcretest -C | ./pcregrep 'No Unicode properties support' >/dev/null 32 ucp=$? 33 34 # Select which tests to run; for those that are explicitly requested, check 35 # that the necessary optional facilities are available. 36 37 do1=no 38 do2=no 39 do3=no 40 do4=no 41 do5=no 42 do6=no 43 do7=no 44 do8=no 45 do9=no 46 do10=no 47 do11=no 48 do12=no 49 50 while [ $# -gt 0 ] ; do 51 case $1 in 52 1) do1=yes;; 53 2) do2=yes;; 54 3) do3=yes;; 55 4) do4=yes;; 56 5) do5=yes;; 57 6) do6=yes;; 58 7) do7=yes;; 59 8) do8=yes;; 60 9) do9=yes;; 61 10) do10=yes;; 62 11) do11=yes;; 63 12) do12=yes;; 64 valgrind) valgrind="valgrind -q";; 65 *) echo "Unknown test number $1"; exit 1;; 66 esac 67 shift 68 done 69 70 if [ $utf8 -eq 0 ] ; then 71 if [ $do4 = yes ] ; then 72 echo "Can't run test 4 because UTF-8 support is not configured" 73 exit 1 74 fi 75 if [ $do5 = yes ] ; then 76 echo "Can't run test 5 because UTF-8 support is not configured" 77 exit 1 78 fi 79 if [ $do8 = yes ] ; then 80 echo "Can't run test 8 because UTF-8 support is not configured" 81 exit 1 82 fi 83 fi 84 85 if [ $ucp -eq 0 ] ; then 86 if [ $do6 = yes ] ; then 87 echo "Can't run test 6 because Unicode property support is not configured" 88 exit 1 89 fi 90 if [ $do9 = yes ] ; then 91 echo "Can't run test 9 because Unicode property support is not configured" 92 exit 1 93 fi 94 if [ $do10 = yes ] ; then 95 echo "Can't run test 10 because Unicode property support is not configured" 96 exit 1 97 fi 98 if [ $do12 = yes ] ; then 99 echo "Can't run test 12 because Unicode property support is not configured" 100 exit 1 101 fi 102 fi 103 104 if [ $link_size -ne 2 ] ; then 105 if [ $do10 = yes ] ; then 106 echo "Can't run test 10 because the link size ($link_size) is not 2" 107 exit 1 108 fi 109 fi 110 111 # If no specific tests were requested, select all that are relevant. 112 113 if [ $do1 = no -a $do2 = no -a $do3 = no -a $do4 = no -a \ 114 $do5 = no -a $do6 = no -a $do7 = no -a $do8 = no -a \ 115 $do9 = no -a $do10 = no -a $do11 = no -a $do12 = no ] ; then 116 do1=yes 117 do2=yes 118 do3=yes 119 if [ $utf8 -ne 0 ] ; then do4=yes; fi 120 if [ $utf8 -ne 0 ] ; then do5=yes; fi 121 if [ $utf8 -ne 0 -a $ucp -ne 0 ] ; then do6=yes; fi 122 do7=yes 123 if [ $utf8 -ne 0 ] ; then do8=yes; fi 124 if [ $utf8 -ne 0 -a $ucp -ne 0 ] ; then do9=yes; fi 125 if [ $link_size -eq 2 -a $ucp -ne 0 ] ; then do10=yes; fi 126 do11=yes 127 if [ $utf8 -ne 0 -a $ucp -ne 0 ] ; then do12=yes; fi 128 fi 129 130 # Show which release 131 132 echo "" 133 echo PCRE C library tests 134 ./pcretest /dev/null 135 136 # Primary test, compatible with all versions of Perl >= 5.8 137 138 if [ $do1 = yes ] ; then 139 echo "Test 1: main functionality (Compatible with Perl >= 5.8)" 140 $valgrind ./pcretest -q $testdata/testinput1 testtry 141 if [ $? = 0 ] ; then 142 $cf $testdata/testoutput1 testtry 143 if [ $? != 0 ] ; then exit 1; fi 144 else exit 1 145 fi 146 echo "OK" 147 fi 148 149 # PCRE tests that are not Perl-compatible - API, errors, internals 150 151 if [ $do2 = yes ] ; then 152 echo "Test 2: API, errors, internals, and non-Perl stuff" 153 $valgrind ./pcretest -q $testdata/testinput2 testtry 154 if [ $? = 0 ] ; then 155 $cf $testdata/testoutput2 testtry 156 if [ $? != 0 ] ; then exit 1; fi 157 else 158 echo " " 159 echo "** Test 2 requires a lot of stack. If it has crashed with a" 160 echo "** segmentation fault, it may be that you do not have enough" 161 echo "** stack available by default. Please see the 'pcrestack' man" 162 echo "** page for a discussion of PCRE's stack usage." 163 echo " " 164 exit 1 165 fi 166 echo "OK" 167 fi 168 169 # Locale-specific tests, provided that either the "fr_FR" or the "french" 170 # locale is available. The former is the Unix-like standard; the latter is 171 # for Windows. 172 173 if [ $do3 = yes ] ; then 174 locale -a | grep '^fr_FR$' >/dev/null 175 if [ $? -eq 0 ] ; then 176 locale=fr_FR 177 infile=$testdata/testinput3 178 outfile=$testdata/testoutput3 179 else 180 locale -a | grep '^french$' >/dev/null 181 if [ $? -eq 0 ] ; then 182 locale=french 183 sed 's/fr_FR/french/' $testdata/testinput3 >test3input 184 sed 's/fr_FR/french/' $testdata/testoutput3 >test3output 185 infile=test3input 186 outfile=test3output 187 else 188 locale= 189 fi 190 fi 191 192 if [ "$locale" != "" ] ; then 193 echo "Test 3: locale-specific features (using '$locale' locale)" 194 $valgrind ./pcretest -q $infile testtry 195 if [ $? = 0 ] ; then 196 $cf $outfile testtry 197 if [ $? != 0 ] ; then 198 echo " " 199 echo "Locale test did not run entirely successfully." 200 echo "This usually means that there is a problem with the locale" 201 echo "settings rather than a bug in PCRE." 202 else 203 echo "OK" 204 fi 205 else exit 1 206 fi 207 else 208 echo "Cannot test locale-specific features - neither the 'fr_FR' nor the" 209 echo "'french' locale exists, or the \"locale\" command is not available" 210 echo "to check for them." 211 echo " " 212 fi 213 fi 214 215 # Additional tests for UTF8 support 216 217 if [ $do4 = yes ] ; then 218 echo "Test 4: UTF-8 support (Compatible with Perl >= 5.8)" 219 $valgrind ./pcretest -q $testdata/testinput4 testtry 220 if [ $? = 0 ] ; then 221 $cf $testdata/testoutput4 testtry 222 if [ $? != 0 ] ; then exit 1; fi 223 else exit 1 224 fi 225 echo "OK" 226 fi 227 228 if [ $do5 = yes ] ; then 229 echo "Test 5: API, internals, and non-Perl stuff for UTF-8 support" 230 $valgrind ./pcretest -q $testdata/testinput5 testtry 231 if [ $? = 0 ] ; then 232 $cf $testdata/testoutput5 testtry 233 if [ $? != 0 ] ; then exit 1; fi 234 else exit 1 235 fi 236 echo "OK" 237 fi 238 239 if [ $do6 = yes ] ; then 240 echo "Test 6: Unicode property support (Compatible with Perl >= 5.10)" 241 $valgrind ./pcretest -q $testdata/testinput6 testtry 242 if [ $? = 0 ] ; then 243 $cf $testdata/testoutput6 testtry 244 if [ $? != 0 ] ; then exit 1; fi 245 else exit 1 246 fi 247 echo "OK" 248 fi 249 250 # Tests for DFA matching support 251 252 if [ $do7 = yes ] ; then 253 echo "Test 7: DFA matching" 254 $valgrind ./pcretest -q -dfa $testdata/testinput7 testtry 255 if [ $? = 0 ] ; then 256 $cf $testdata/testoutput7 testtry 257 if [ $? != 0 ] ; then exit 1; fi 258 else exit 1 259 fi 260 echo "OK" 261 fi 262 263 if [ $do8 = yes ] ; then 264 echo "Test 8: DFA matching with UTF-8" 265 $valgrind ./pcretest -q -dfa $testdata/testinput8 testtry 266 if [ $? = 0 ] ; then 267 $cf $testdata/testoutput8 testtry 268 if [ $? != 0 ] ; then exit 1; fi 269 else exit 1 270 fi 271 echo "OK" 272 fi 273 274 if [ $do9 = yes ] ; then 275 echo "Test 9: DFA matching with Unicode properties" 276 $valgrind ./pcretest -q -dfa $testdata/testinput9 testtry 277 if [ $? = 0 ] ; then 278 $cf $testdata/testoutput9 testtry 279 if [ $? != 0 ] ; then exit 1; fi 280 else exit 1 281 fi 282 echo "OK" 283 fi 284 285 # Test of internal offsets and code sizes. This test is run only when there 286 # is Unicode property support and the link size is 2. The actual tests are 287 # mostly the same as in some of the above, but in this test we inspect some 288 # offsets and sizes that require a known link size. This is a doublecheck for 289 # the maintainer, just in case something changes unexpectely. 290 291 if [ $do10 = yes ] ; then 292 echo "Test 10: Internal offsets and code size tests" 293 $valgrind ./pcretest -q $testdata/testinput10 testtry 294 if [ $? = 0 ] ; then 295 $cf $testdata/testoutput10 testtry 296 if [ $? != 0 ] ; then exit 1; fi 297 else exit 1 298 fi 299 echo "OK" 300 fi 301 302 # Test of Perl >= 5.10 features 303 304 if [ $do11 = yes ] ; then 305 echo "Test 11: Features from Perl >= 5.10" 306 $valgrind ./pcretest -q $testdata/testinput11 testtry 307 if [ $? = 0 ] ; then 308 $cf $testdata/testoutput11 testtry 309 if [ $? != 0 ] ; then exit 1; fi 310 else exit 1 311 fi 312 echo "OK" 313 fi 314 315 # Test non-Perl-compatible Unicode property support 316 317 if [ $do12 = yes ] ; then 318 echo "Test 12: API, internals, and non-Perl stuff for Unicode property support" 319 $valgrind ./pcretest -q $testdata/testinput12 testtry 320 if [ $? = 0 ] ; then 321 $cf $testdata/testoutput12 testtry 322 if [ $? != 0 ] ; then exit 1; fi 323 else exit 1 324 fi 325 echo "OK" 326 fi 327 328 # End 329
