1#!/usr/bin/perl -w 2# 3# Copyright (C) 2001 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 11# unmodified other than the allowable addition of one or more 12# 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# $FreeBSD$ 31# 32# Test thread stack guard functionality. The C test program needs to be driven 33# by this script because it segfaults when the stack guard is hit. 34# 35 36print "1..30\n"; 37 38$i = 0; 39# Iterates 10 times. 40for ($stacksize = 65536; $stacksize < 131072; $stacksize += 7168) 41{ 42 # Iterates 3 times (1024, 4096, 7168). 43 for ($guardsize = 1024; $guardsize < 8192; $guardsize += 3072) 44 { 45 $i++; 46 47 print "stacksize: $stacksize, guardsize: $guardsize\n"; 48 49 `./guard_b $stacksize $guardsize >guard_b.out 2>&1`; 50 51 if (! -f "./guard_b.out") 52 { 53 print "not ok $i\n"; 54 } 55 else 56 { 57 `diff guard_b.exp guard_b.out >guard_b.diff 2>&1`; 58 if ($?) 59 { 60 # diff returns non-zero if there is a difference. 61 print "not ok $i\n"; 62 } 63 else 64 { 65 print "ok $i\n"; 66 } 67 } 68 } 69} 70