1272343Sngie# $NetBSD: t_protoent.sh,v 1.2 2012/09/03 15:32:18 christos Exp $ 2272343Sngie# 3272343Sngie# Copyright (c) 2008 The NetBSD Foundation, Inc. 4272343Sngie# All rights reserved. 5272343Sngie# 6272343Sngie# Redistribution and use in source and binary forms, with or without 7272343Sngie# modification, are permitted provided that the following conditions 8272343Sngie# are met: 9272343Sngie# 1. Redistributions of source code must retain the above copyright 10272343Sngie# notice, this list of conditions and the following disclaimer. 11272343Sngie# 2. Redistributions in binary form must reproduce the above copyright 12272343Sngie# notice, this list of conditions and the following disclaimer in the 13272343Sngie# documentation and/or other materials provided with the distribution. 14272343Sngie# 15272343Sngie# THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 16272343Sngie# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 17272343Sngie# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 18272343Sngie# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 19272343Sngie# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 20272343Sngie# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 21272343Sngie# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 22272343Sngie# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 23272343Sngie# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 24272343Sngie# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 25272343Sngie# POSSIBILITY OF SUCH DAMAGE. 26272343Sngie# 27272343Sngie 28272343Sngieatf_test_case protoent 29272343Sngieprotoent_head() 30272343Sngie{ 31272343Sngie atf_set "descr" "Checks {get,set,end}protoent(3)" 32272343Sngie} 33272343Sngieprotoent_body() 34272343Sngie{ 35272343Sngie # 36272343Sngie # Munge original to: 37272343Sngie # (1) match output format of the test program 38272343Sngie # (2) fold all names for the same port/proto together 39272343Sngie # (3) prune duplicates 40272343Sngie # 41272343Sngie tr '\t' ' ' </etc/protocols | awk ' 42272343Sngie function add(key, name, i, n, ar) { 43272343Sngie n = split(names[key], ar); 44272343Sngie for (i = 1; i <= n; i++) { 45272343Sngie if (name == ar[i]) { 46272343Sngie return; 47272343Sngie } 48272343Sngie } 49272343Sngie delete ar; 50272343Sngie names[key] = names[key] " " name; 51272343Sngie } 52272343Sngie { 53272343Sngie sub("#.*", "", $0); 54272343Sngie gsub(" *", " ", $0); 55272343Sngie if (NF == 0) { 56272343Sngie next; 57272343Sngie } 58272343Sngie add($2, $1, 0); 59272343Sngie for (i = 3; i <= NF; i++) { 60272343Sngie add($2, $i, 1); 61272343Sngie } 62272343Sngie } 63272343Sngie END { 64272343Sngie for (key in names) { 65272343Sngie proto = key; 66272343Sngie 67272343Sngie n = split(names[key], ar); 68272343Sngie printf "name=%s, proto=%s, aliases=", ar[1], proto; 69272343Sngie for (i=2; i<=n; i++) { 70272343Sngie if (i>2) { 71272343Sngie printf " "; 72272343Sngie } 73272343Sngie printf "%s", ar[i]; 74272343Sngie } 75272343Sngie printf "\n"; 76272343Sngie delete ar; 77272343Sngie } 78272343Sngie } 79272343Sngie ' | sort >exp 80272343Sngie 81272343Sngie # run test program 82272343Sngie "$(atf_get_srcdir)/h_protoent" | sed 's/ *$//' | sort >out 83272343Sngie 84272343Sngie diff -u exp out || \ 85272343Sngie atf_fail "Observed output does not match reference output" 86272343Sngie} 87272343Sngie 88272343Sngieatf_init_test_cases() 89272343Sngie{ 90272343Sngie atf_add_test_case protoent 91272343Sngie} 92