1: #! /bin/sh
2:
3: # Run the PCRE tests using the pcretest program. The appropriate tests are
4: # selected, depending on which build-time options were used.
5:
6: # All tests are now run both with and without -s, to ensure that everything is
7: # tested with and without studying. However, there are some tests that produce
8: # different output after studying, typically when we are tracing the actual
9: # matching process (for example, using auto-callouts). In these few cases, the
10: # tests are duplicated in the files, one with /S to force studying always, and
11: # one with /SS to force *not* studying always. The use of -s doesn't then make
12: # any difference to their output. There is also one test which compiles invalid
13: # UTF-8 with the UTF-8 check turned off; for this, studying must also be
14: # disabled with /SS.
15:
16: # When JIT support is available, all the tests are also run with -s+ to test
17: # (again, almost) everything with studying and the JIT option. There are also
18: # two tests for JIT-specific features, one to be run when JIT support is
19: # available, and one when it is not.
20:
21: # The arguments for this script can be individual test numbers, or the word
22: # "valgrind", or "sim" followed by an argument to run cross-compiled
23: # executables under a simulator, for example:
24: #
25: # RunTest 3 sim "qemu-arm -s 8388608"
26:
27: valgrind=
28: sim=
29:
30: # Select which tests to run; for those that are explicitly requested, check
31: # that the necessary optional facilities are available.
32:
33: do1=no
34: do2=no
35: do3=no
36: do4=no
37: do5=no
38: do6=no
39: do7=no
40: do8=no
41: do9=no
42: do10=no
43: do11=no
44: do12=no
45: do13=no
46: do14=no
47: do15=no
48:
49: while [ $# -gt 0 ] ; do
50: case $1 in
51: 1) do1=yes;;
52: 2) do2=yes;;
53: 3) do3=yes;;
54: 4) do4=yes;;
55: 5) do5=yes;;
56: 6) do6=yes;;
57: 7) do7=yes;;
58: 8) do8=yes;;
59: 9) do9=yes;;
60: 10) do10=yes;;
61: 11) do11=yes;;
62: 12) do12=yes;;
63: 13) do13=yes;;
64: 14) do14=yes;;
65: 15) do15=yes;;
66: valgrind) valgrind="valgrind -q --smc-check=all";;
67: sim) shift; sim=$1;;
68: *) echo "Unknown test number $1"; exit 1;;
69: esac
70: shift
71: done
72:
73: # Set up a suitable "diff" command for comparison. Some systems
74: # have a diff that lacks a -u option. Try to deal with this.
75:
76: if diff -u /dev/null /dev/null; then cf="diff -u"; else cf="diff"; fi
77:
78: # Find the test data
79:
80: if [ -n "$srcdir" -a -d "$srcdir" ] ; then
81: testdata="$srcdir/testdata"
82: elif [ -d "./testdata" ] ; then
83: testdata=./testdata
84: elif [ -d "../testdata" ] ; then
85: testdata=../testdata
86: else
87: echo "Cannot find the testdata directory"
88: exit 1
89: fi
90:
91: # Find which optional facilities are available. In some Windows environments
92: # the output of pcretest -C has CRLF at the end of each line, but the shell
93: # strips only linefeeds from the output of a `backquoted` command. Hence the
94: # alternative patterns.
95:
96: case `$sim ./pcretest -C | $sim ./pcregrep 'Internal link size'` in
97: *2|*2[[:space:]]) link_size=2;;
98: *3|*3[[:space:]]) link_size=3;;
99: *4|*4[[:space:]]) link_size=4;;
100: *) echo "Failed to find internal link size"; exit 1;;
101: esac
102:
103: $sim ./pcretest -C | $sim ./pcregrep 'No UTF-8 support' >/dev/null
104: utf8=$?
105:
106: $sim ./pcretest -C | $sim ./pcregrep 'No Unicode properties support' >/dev/null
107: ucp=$?
108:
109: jitopt=
110: $sim ./pcretest -C | $sim ./pcregrep 'No just-in-time compiler support' \
111: >/dev/null
112: jit=$?
113: if [ $jit -ne 0 ] ; then
114: jitopt=-s+
115: fi
116:
117: if [ $utf8 -eq 0 ] ; then
118: if [ $do4 = yes ] ; then
119: echo "Can't run test 4 because UTF-8 support is not configured"
120: exit 1
121: fi
122: if [ $do5 = yes ] ; then
123: echo "Can't run test 5 because UTF-8 support is not configured"
124: exit 1
125: fi
126: if [ $do8 = yes ] ; then
127: echo "Can't run test 8 because UTF-8 support is not configured"
128: exit 1
129: fi
130: if [ $do12 = yes ] ; then
131: echo "Can't run test 12 because UTF-8 support is not configured"
132: exit 1
133: fi
134: fi
135:
136: if [ $ucp -eq 0 ] ; then
137: if [ $do6 = yes ] ; then
138: echo "Can't run test 6 because Unicode property support is not configured"
139: exit 1
140: fi
141: if [ $do9 = yes ] ; then
142: echo "Can't run test 9 because Unicode property support is not configured"
143: exit 1
144: fi
145: if [ $do10 = yes ] ; then
146: echo "Can't run test 10 because Unicode property support is not configured"
147: exit 1
148: fi
149: if [ $do13 = yes ] ; then
150: echo "Can't run test 12 because Unicode property support is not configured"
151: exit 1
152: fi
153: fi
154:
155: if [ $link_size -ne 2 ] ; then
156: if [ $do10 = yes ] ; then
157: echo "Can't run test 10 because the link size ($link_size) is not 2"
158: exit 1
159: fi
160: fi
161:
162: if [ $jit -eq 0 ] ; then
163: if [ $do14 = "yes" ] ; then
164: echo "Can't run test 14 because JIT support is not configured"
165: exit 1
166: fi
167: else
168: if [ $do15 = "yes" ] ; then
169: echo "Can't run test 15 because JIT support is configured"
170: exit 1
171: fi
172: fi
173:
174: # If no specific tests were requested, select all. Those that are not
175: # relevant will be skipped.
176:
177: if [ $do1 = no -a $do2 = no -a $do3 = no -a $do4 = no -a \
178: $do5 = no -a $do6 = no -a $do7 = no -a $do8 = no -a \
179: $do9 = no -a $do10 = no -a $do11 = no -a $do12 = no -a \
180: $do13 = no -a $do14 = no -a $do15 = no ] ; then
181: do1=yes
182: do2=yes
183: do3=yes
184: do4=yes
185: do5=yes
186: do6=yes
187: do7=yes
188: do8=yes
189: do9=yes
190: do10=yes
191: do11=yes
192: do12=yes
193: do13=yes
194: do14=yes
195: do15=yes
196: fi
197:
198: # Show which release and which test data
199:
200: echo ""
201: echo PCRE C library tests using test data from $testdata
202: $sim ./pcretest /dev/null
203:
204: # Primary test, compatible with JIT and all versions of Perl >= 5.8
205:
206: if [ $do1 = yes ] ; then
207: echo "Test 1: main functionality (Compatible with Perl >= 5.8)"
208: for opt in "" "-s" $jitopt; do
209: $sim $valgrind ./pcretest -q $opt $testdata/testinput1 testtry
210: if [ $? = 0 ] ; then
211: $cf $testdata/testoutput1 testtry
212: if [ $? != 0 ] ; then exit 1; fi
213: else exit 1
214: fi
215: if [ "$opt" = "-s" ] ; then echo " OK with study"
216: elif [ "$opt" = "-s+" ] ; then echo " OK with JIT study"
217: else echo " OK"
218: fi
219: done
220: fi
221:
222: # PCRE tests that are not JIT or Perl-compatible: API, errors, internals
223:
224: if [ $do2 = yes ] ; then
225: echo "Test 2: API, errors, internals, and non-Perl stuff (not UTF-8)"
226: for opt in "" "-s" $jitopt; do
227: $sim $valgrind ./pcretest -q $opt $testdata/testinput2 testtry
228: if [ $? = 0 ] ; then
229: $cf $testdata/testoutput2 testtry
230: if [ $? != 0 ] ; then exit 1; fi
231: else
232: echo " "
233: echo "** Test 2 requires a lot of stack. If it has crashed with a"
234: echo "** segmentation fault, it may be that you do not have enough"
235: echo "** stack available by default. Please see the 'pcrestack' man"
236: echo "** page for a discussion of PCRE's stack usage."
237: echo " "
238: exit 1
239: fi
240: if [ "$opt" = "-s" ] ; then echo " OK with study"
241: elif [ "$opt" = "-s+" ] ; then echo " OK with JIT study"
242: else echo " OK"
243: fi
244: done
245: fi
246:
247: # Locale-specific tests, provided that either the "fr_FR" or the "french"
248: # locale is available. The former is the Unix-like standard; the latter is
249: # for Windows. Another possibility is "fr", which needs to be run against
250: # the Windows-specific input and output files.
251:
252: if [ $do3 = yes ] ; then
253: locale -a | grep '^fr_FR$' >/dev/null
254: if [ $? -eq 0 ] ; then
255: locale=fr_FR
256: infile=$testdata/testinput3
257: outfile=$testdata/testoutput3
258: else
259: infile=test3input
260: outfile=test3output
261: locale -a | grep '^french$' >/dev/null
262: if [ $? -eq 0 ] ; then
263: locale=french
264: sed 's/fr_FR/french/' $testdata/testinput3 >test3input
265: sed 's/fr_FR/french/' $testdata/testoutput3 >test3output
266: else
267: locale -a | grep '^fr$' >/dev/null
268: if [ $? -eq 0 ] ; then
269: locale=fr
270: sed 's/fr_FR/fr/' $testdata/wintestinput3 >test3input
271: sed 's/fr_FR/fr/' $testdata/wintestoutput3 >test3output
272: else
273: locale=
274: fi
275: fi
276: fi
277:
278: if [ "$locale" != "" ] ; then
279: echo "Test 3: locale-specific features (using '$locale' locale)"
280: for opt in "" "-s" $jitopt; do
281: $sim $valgrind ./pcretest -q $opt $infile testtry
282: if [ $? = 0 ] ; then
283: $cf $outfile testtry
284: if [ $? != 0 ] ; then
285: echo " "
286: echo "Locale test did not run entirely successfully."
287: echo "This usually means that there is a problem with the locale"
288: echo "settings rather than a bug in PCRE."
289: break;
290: else
291: if [ "$opt" = "-s" ] ; then echo " OK with study"
292: elif [ "$opt" = "-s+" ] ; then echo " OK with JIT study"
293: else echo " OK"
294: fi
295: fi
296: else exit 1
297: fi
298: done
299: else
300: echo "Cannot test locale-specific features - none of the 'fr_FR', 'fr' or"
301: echo "'french' locales exist, or the \"locale\" command is not available"
302: echo "to check for them."
303: echo " "
304: fi
305: fi
306:
307: # Additional tests for UTF8 support
308:
309: if [ $do4 = yes ] ; then
310: echo "Test 4: UTF-8 support (Compatible with Perl >= 5.8)"
311: if [ $utf8 -eq 0 ] ; then
312: echo " Skipped because UTF-8 support is not available"
313: else
314: for opt in "" "-s" $jitopt; do
315: $sim $valgrind ./pcretest -q $opt $testdata/testinput4 testtry
316: if [ $? = 0 ] ; then
317: $cf $testdata/testoutput4 testtry
318: if [ $? != 0 ] ; then exit 1; fi
319: else exit 1
320: fi
321: if [ "$opt" = "-s" ] ; then echo " OK with study"
322: elif [ "$opt" = "-s+" ] ; then echo " OK with JIT study"
323: else echo " OK"
324: fi
325: done
326: fi
327: fi
328:
329: if [ $do5 = yes ] ; then
330: echo "Test 5: API, internals, and non-Perl stuff for UTF-8 support"
331: if [ $utf8 -eq 0 ] ; then
332: echo " Skipped because UTF-8 support is not available"
333: else
334: for opt in "" "-s" $jitopt; do
335: $sim $valgrind ./pcretest -q $opt $testdata/testinput5 testtry
336: if [ $? = 0 ] ; then
337: $cf $testdata/testoutput5 testtry
338: if [ $? != 0 ] ; then exit 1; fi
339: else exit 1
340: fi
341: if [ "$opt" = "-s" ] ; then echo " OK with study"
342: elif [ "$opt" = "-s+" ] ; then echo " OK with JIT study"
343: else echo " OK"
344: fi
345: done
346: fi
347: fi
348:
349: if [ $do6 = yes ] ; then
350: echo "Test 6: Unicode property support (Compatible with Perl >= 5.10)"
351: if [ $utf8 -eq 0 -o $ucp -eq 0 ] ; then
352: echo " Skipped because Unicode property support is not available"
353: else
354: for opt in "" "-s" $jitopt; do
355: $sim $valgrind ./pcretest -q $opt $testdata/testinput6 testtry
356: if [ $? = 0 ] ; then
357: $cf $testdata/testoutput6 testtry
358: if [ $? != 0 ] ; then exit 1; fi
359: else exit 1
360: fi
361: if [ "$opt" = "-s" ] ; then echo " OK with study"
362: elif [ "$opt" = "-s+" ] ; then echo " OK with JIT study"
363: else echo " OK"
364: fi
365: done
366: fi
367: fi
368:
369: # Tests for DFA matching support
370:
371: if [ $do7 = yes ] ; then
372: echo "Test 7: DFA matching"
373: for opt in "" "-s"; do
374: $sim $valgrind ./pcretest -q $opt -dfa $testdata/testinput7 testtry
375: if [ $? = 0 ] ; then
376: $cf $testdata/testoutput7 testtry
377: if [ $? != 0 ] ; then exit 1; fi
378: else exit 1
379: fi
380: if [ "$opt" = "-s" ] ; then echo " OK with study" ; else echo " OK"; fi
381: done
382: fi
383:
384: if [ $do8 = yes ] ; then
385: echo "Test 8: DFA matching with UTF-8"
386: if [ $utf8 -eq 0 ] ; then
387: echo " Skipped because UTF-8 support is not available"
388: else
389: for opt in "" "-s"; do
390: $sim $valgrind ./pcretest -q $opt -dfa $testdata/testinput8 testtry
391: if [ $? = 0 ] ; then
392: $cf $testdata/testoutput8 testtry
393: if [ $? != 0 ] ; then exit 1; fi
394: else exit 1
395: fi
396: if [ "$opt" = "-s" ] ; then echo " OK with study" ; else echo " OK"; fi
397: done
398: fi
399: fi
400:
401: if [ $do9 = yes ] ; then
402: echo "Test 9: DFA matching with Unicode properties"
403: if [ $utf8 -eq 0 -o $ucp -eq 0 ] ; then
404: echo " Skipped because Unicode property support is not available"
405: else
406: for opt in "" "-s"; do
407: $sim $valgrind ./pcretest -q $opt -dfa $testdata/testinput9 testtry
408: if [ $? = 0 ] ; then
409: $cf $testdata/testoutput9 testtry
410: if [ $? != 0 ] ; then exit 1; fi
411: else exit 1
412: fi
413: if [ "$opt" = "-s" ] ; then echo " OK with study" ; else echo " OK"; fi
414: done
415: fi
416: fi
417:
418: # Test of internal offsets and code sizes. This test is run only when there
419: # is Unicode property support and the link size is 2. The actual tests are
420: # mostly the same as in some of the above, but in this test we inspect some
421: # offsets and sizes that require a known link size. This is a doublecheck for
422: # the maintainer, just in case something changes unexpectely.
423:
424: if [ $do10 = yes ] ; then
425: echo "Test 10: Internal offsets and code size tests"
426: if [ $link_size -ne 2 ] ; then
427: echo " Skipped because link size is not 2"
428: elif [ $ucp -eq 0 ] ; then
429: echo " Skipped because Unicode property support is not available"
430: else
431: for opt in "" "-s"; do
432: $sim $valgrind ./pcretest -q $opt $testdata/testinput10 testtry
433: if [ $? = 0 ] ; then
434: $cf $testdata/testoutput10 testtry
435: if [ $? != 0 ] ; then exit 1; fi
436: else exit 1
437: fi
438: if [ "$opt" = "-s" ] ; then echo " OK with study" ; else echo " OK"; fi
439: done
440: fi
441: fi
442:
443: # Test of Perl >= 5.10 features without UTF8 support
444:
445: if [ $do11 = yes ] ; then
446: echo "Test 11: Features from Perl >= 5.10 without UTF8 support"
447: for opt in "" "-s" $jitopt; do
448: $sim $valgrind ./pcretest -q $opt $testdata/testinput11 testtry
449: if [ $? = 0 ] ; then
450: $cf $testdata/testoutput11 testtry
451: if [ $? != 0 ] ; then exit 1; fi
452: else exit 1
453: fi
454: if [ "$opt" = "-s" ] ; then echo " OK with study"
455: elif [ "$opt" = "-s+" ] ; then echo " OK with JIT study"
456: else echo " OK"
457: fi
458: done
459: fi
460:
461: # Test of Perl >= 5.10 features with UTF8 support
462:
463: if [ $do12 = yes ] ; then
464: echo "Test 12: Features from Perl >= 5.10 with UTF8 support"
465: if [ $utf8 -eq 0 ] ; then
466: echo " Skipped because UTF-8 support is not available"
467: else
468: for opt in "" "-s" $jitopt; do
469: $sim $valgrind ./pcretest -q $opt $testdata/testinput12 testtry
470: if [ $? = 0 ] ; then
471: $cf $testdata/testoutput12 testtry
472: if [ $? != 0 ] ; then exit 1; fi
473: else exit 1
474: fi
475: if [ "$opt" = "-s" ] ; then echo " OK with study"
476: elif [ "$opt" = "-s+" ] ; then echo " OK with JIT study"
477: else echo " OK"
478: fi
479: done
480: fi
481: fi
482:
483: # Test non-Perl-compatible Unicode property support
484:
485: if [ $do13 = yes ] ; then
486: echo "Test 13: API, internals, and non-Perl stuff for Unicode property support"
487: if [ $utf8 -eq 0 -o $ucp -eq 0 ] ; then
488: echo " Skipped because Unicode property support is not available"
489: else
490: for opt in "" "-s" $jitopt; do
491: $sim $valgrind ./pcretest -q $opt $testdata/testinput13 testtry
492: if [ $? = 0 ] ; then
493: $cf $testdata/testoutput13 testtry
494: if [ $? != 0 ] ; then exit 1; fi
495: else exit 1
496: fi
497: if [ "$opt" = "-s" ] ; then echo " OK with study"
498: elif [ "$opt" = "-s+" ] ; then echo " OK with JIT study"
499: else echo " OK"
500: fi
501: done
502: fi
503: fi
504:
505: # Test JIT-specific features when JIT is available
506:
507: if [ $do14 = yes ] ; then
508: echo "Test 14: JIT-specific features (JIT available)"
509: if [ $jit -eq 0 ] ; then
510: echo " Skipped because JIT is not available or not usable"
511: else
512: $sim $valgrind ./pcretest -q $testdata/testinput14 testtry
513: if [ $? = 0 ] ; then
514: $cf $testdata/testoutput14 testtry
515: if [ $? != 0 ] ; then exit 1; fi
516: else exit 1
517: fi
518: echo " OK"
519: fi
520: fi
521:
522: # Test JIT-specific features when JIT is not available
523:
524: if [ $do15 = yes ] ; then
525: echo "Test 15: JIT-specific features (JIT not available)"
526: if [ $jit -ne 0 ] ; then
527: echo " Skipped because JIT is available"
528: else
529: $sim $valgrind ./pcretest -q $testdata/testinput15 testtry
530: if [ $? = 0 ] ; then
531: $cf $testdata/testoutput15 testtry
532: if [ $? != 0 ] ; then exit 1; fi
533: else exit 1
534: fi
535: echo " OK"
536: fi
537: fi
538:
539: # End
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to RunTest CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / pcre