propagate_s.pl revision 59667
1#!/usr/bin/perl -w 2# 3# Copyright (C) 2000 Jason Evans <jasone@freebsd.org>. 4# All rights reserved. 5# 6# Redistribution and use in source and binary forms, with or without 7# modification, are permitted provided that the following conditions 8# are met: 9# 1. Redistributions of source code must retain the above copyright 10# notice(s), this list of conditions and the following disclaimer as 11# the first lines of this file unmodified other than the possible 12# addition of one or more copyright notices. 13# 2. Redistributions in binary form must reproduce the above copyright 14# notice(s), this list of conditions and the following disclaimer in 15# the documentation and/or other materials provided with the 16# distribution. 17# 18# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDER(S) ``AS IS'' AND ANY 19# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 20# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 21# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER(S) BE 22# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 23# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 24# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR 25# BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 26# WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE 27# OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, 28# EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 29# 30########################################################################### 31# 32# Verify that no cancellation points are propagated inside of libc_r. 33# 34# $FreeBSD: head/lib/libkse/test/propagate_s.pl 59667 2000-04-26 23:25:58Z jasone $ 35# 36 37@CPOINTS = ("aio_suspend", "close", "creat", "fcntl", "fsync", "mq_receive", 38 "mq_send", "msync", "nanosleep", "open", "pause", 39 "pthread_cond_timedwait", "pthread_cond_wait", "pthread_join", 40 "pthread_testcancel", "read", "sem_wait", "sigsuspend", 41 "sigtimedwait", "sigwait", "sigwaitinfo", "sleep", "system", 42 "tcdrain", "wait", "waitpid", "write"); 43 44print "1..1\n"; 45 46$cpoints = join '\|', @CPOINTS; 47$regexp = "\" U \\(" . $cpoints . "\\\)\$\""; 48 49`nm -a /usr/lib/libc.a |grep $regexp >propagate_s.out`; 50if (!open (NMOUT, "<./propagate_s.out")) 51{ 52 print "not ok 1\n"; 53} 54else 55{ 56 $propagations = 0; 57 58 while (<NMOUT>) 59 { 60 $propagations++; 61 print "$_\n"; 62 } 63 if ($propagations != 0) 64 { 65 print "$propagations propagation(s)\n"; 66 print "not ok 1\n"; 67 } 68 else 69 { 70 print "ok 1\n"; 71 } 72 close NMOUT; 73 unlink "propagate_s.out"; 74} 75