1# $NetBSD: t_servent.sh,v 1.1 2011/01/12 17:32:27 pgoyette Exp $ 2# 3# Copyright (c) 2008 The NetBSD Foundation, Inc. 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, this list of conditions and the following disclaimer. 11# 2. Redistributions in binary form must reproduce the above copyright 12# notice, this list of conditions and the following disclaimer in the 13# documentation and/or other materials provided with the distribution. 14# 15# THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 16# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 17# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 18# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 19# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 20# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 21# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 22# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 23# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 24# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 25# POSSIBILITY OF SUCH DAMAGE. 26# 27 28atf_test_case servent 29servent_head() 30{ 31 atf_set "descr" "Checks {get,set,end}servent(3)" 32} 33servent_body() 34{ 35 # 36 # Munge original to: 37 # (1) match output format of the test program 38 # (2) fold all names for the same port/proto together 39 # (3) prune duplicates 40 # 41 tr '\t' ' ' </etc/services | awk ' 42 function add(key, name, i, n, ar) { 43 n = split(names[key], ar); 44 for (i=1; i<=n; i++) { 45 if (name == ar[i]) { 46 return; 47 } 48 } 49 delete ar; 50 names[key] = names[key] " " name; 51 } 52 53 { 54 sub("#.*", "", $0); 55 gsub(" *", " ", $0); 56 if (NF==0) { 57 next; 58 } 59 add($2, $1, 0); 60 for (i=3; i<=NF; i++) { 61 add($2, $i, 1); 62 } 63 } 64 END { 65 for (key in names) { 66 portproto = key; 67 sub("/", ", proto=", portproto); 68 portproto = "port=" portproto; 69 70 n = split(names[key], ar); 71 printf "name=%s, %s, aliases=", ar[1], portproto; 72 for (i=2; i<=n; i++) { 73 if (i>2) { 74 printf " "; 75 } 76 printf "%s", ar[i]; 77 } 78 printf "\n"; 79 delete ar; 80 } 81 } 82 ' | sort >exp 83 84 case "$(uname)" in 85 FreeBSD) 86 # (3) Don't prune duplicates 87 tr '\t' ' ' < /etc/services | 88 sed 's/#.*//;s/ */ /g; /^$/d;s#\([0-9]\)/#\1 #;s/ *$//' | 89 sort | 90 while read l; do 91 set $l 92 name=$1; shift 93 port=$1; shift 94 proto=$1; shift 95 alias="$@" 96 printf "name=%s, port=%s, proto=%s, aliases=%s\n" \ 97 $name $port $proto "$alias" 98 done > exp 99 ;; 100 esac 101 102 # run test program 103 "$(atf_get_srcdir)/h_servent" | sed 's/ *$//' | sort >out 104 105 diff -u exp out || atf_fail "Observed output does not match reference output" 106} 107 108atf_init_test_cases() 109{ 110 atf_add_test_case servent 111} 112