1#! /usr/bin/atf-sh 2# $NetBSD: t_klua_pr_52864.sh,v 1.4 2024/04/28 07:27:41 rillig Exp $ 3# 4# Copyright (c) 2018 The NetBSD Foundation, Inc. 5# All rights reserved. 6# 7# Redistribution and use in source and binary forms, with or without 8# modification, are permitted provided that the following conditions 9# are met: 10# 1. Redistributions of source code must retain the above copyright 11# notice, this list of conditions and the following disclaimer. 12# 2. Redistributions in binary form must reproduce the above copyright 13# notice, this list of conditions and the following disclaimer in the 14# documentation and/or other materials provided with the distribution. 15# 16# THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 17# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 18# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 19# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 20# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 21# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 22# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 23# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 24# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 25# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 26# POSSIBILITY OF SUCH DAMAGE. 27# 28 29atf_test_case luastate cleanup 30luastate_head() { 31 atf_set "descr" "Test that once lua(4) is loaded and a state is " \ 32 "created, system does not crash when listing states" \ 33 "(PR port-macppc/52864)" 34 atf_set "require.user" "root" 35} 36 37luastate_body() { 38 err=$( modstat -e 2>&1 ) 39 if [ $? -gt 0 ]; then 40 atf_skip "${err##modstat:}" 41 fi 42 sysctl -q kern.lua.verbose 43 if [ $? -eq 1 ]; then 44 atf_check -s exit:0 modload lua 45 fi 46 atf_check -s exit:0 luactl -q create atfluastate 47 atf_check -s exit:0 -o ignore luactl 48} 49 50luastate_cleanup() { 51 modunload lua >/dev/null 2>&1 52} 53 54atf_init_test_cases() { 55 atf_add_test_case luastate 56} 57