propagate_s.pl revision 59667 
1263320Sdim#!/usr/bin/perl -w
2263320Sdim#
3263320Sdim# Copyright (C) 2000 Jason Evans <jasone@freebsd.org>.
4263320Sdim# All rights reserved.
5269012Semaste#
6263320Sdim# Redistribution and use in source and binary forms, with or without
7263320Sdim# modification, are permitted provided that the following conditions
8263320Sdim# are met:
9263320Sdim# 1. Redistributions of source code must retain the above copyright
10263320Sdim#    notice(s), this list of conditions and the following disclaimer as
11263320Sdim#    the first lines of this file unmodified other than the possible
12263320Sdim#    addition of one or more copyright notices.
13263320Sdim# 2. Redistributions in binary form must reproduce the above copyright
14263320Sdim#    notice(s), this list of conditions and the following disclaimer in
15263320Sdim#    the documentation and/or other materials provided with the
16263320Sdim#    distribution.
17263320Sdim#
18263320Sdim# 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