lib/libc_r/test/propagate_s.pl

   1 #!/usr/bin/env 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: src/lib/libc_r/test/propagate_s.pl,v 1.1.2.1 2000/07/17 22:18:32 jasone Exp $
  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
  44 print "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`;
  50 if (!open (NMOUT, "<./propagate_s.out"))
  51 {
  52     print "not ok 1\n";
  53 }
  54 else
  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 }