1*dfc11533SChris Williamson#!/bin/ksh -p
2*dfc11533SChris Williamson#
3*dfc11533SChris Williamson# This file and its contents are supplied under the terms of the
4*dfc11533SChris Williamson# Common Development and Distribution License ("CDDL"), version 1.0.
5*dfc11533SChris Williamson# You may only use this file in accordance with the terms of version
6*dfc11533SChris Williamson# 1.0 of the CDDL.
7*dfc11533SChris Williamson#
8*dfc11533SChris Williamson# A full copy of the text of the CDDL should have accompanied this
9*dfc11533SChris Williamson# source.  A copy of the CDDL is also available via the Internet at
10*dfc11533SChris Williamson# http://www.illumos.org/license/CDDL.
11*dfc11533SChris Williamson#
12*dfc11533SChris Williamson
13*dfc11533SChris Williamson#
14*dfc11533SChris Williamson# Copyright (c) 2016 by Delphix. All rights reserved.
15*dfc11533SChris Williamson#
16*dfc11533SChris Williamson
17*dfc11533SChris Williamsonverify_runnable "global"
18*dfc11533SChris Williamson
19*dfc11533SChris Williamson. $STF_SUITE/tests/functional/channel_program/channel_common.kshlib
20*dfc11533SChris Williamson
21*dfc11533SChris Williamson#
22*dfc11533SChris Williamson# DESCRIPTION:
23*dfc11533SChris Williamson#	Try returning various values that lua allows you to construct,
24*dfc11533SChris Williamson#       but that cannot be represented as nvlists and therefore should
25*dfc11533SChris Williamson#       cause the script to fail (but not panic). Try sending the values
26*dfc11533SChris Williamson#       back to userland from both "return" and "error()".
27*dfc11533SChris Williamson#
28*dfc11533SChris Williamson
29*dfc11533SChris Williamsonverify_runnable "both"
30*dfc11533SChris Williamson
31*dfc11533SChris Williamsonset -A args 'function() return 1 end' \
32*dfc11533SChris Williamson	'{[{}]=true}' \
33*dfc11533SChris Williamson	'{[function() return 1 end]=0}' \
34*dfc11533SChris Williamson	'assert' \
35*dfc11533SChris Williamson	'0, assert' \
36*dfc11533SChris Williamson	'true, {[{}]=0}' \
37*dfc11533SChris Williamson	'{val=true}, {val=false}' \
38*dfc11533SChris Williamson	'{1, 2, 3}, {[4]=5}' \
39*dfc11533SChris Williamson	'nil, true, 1, "test", {}, {val=true}' \
40*dfc11533SChris Williamson	'{[false]=true, ["false"]=false}' \
41*dfc11533SChris Williamson	'{[true]=false, ["true"]=true}' \
42*dfc11533SChris Williamson	'{[0]=true, ["0"]=false}' \
43*dfc11533SChris Williamson	'{0,0,0,["1"]=0}' \
44*dfc11533SChris Williamson	'{0,0,0,["2"]=0}' \
45*dfc11533SChris Williamson	'{0,0,0,["3"]=0}'
46*dfc11533SChris Williamson
47*dfc11533SChris Williamsontypeset -i last_index=$((${#args[*]} - 1))
48*dfc11533SChris Williamsonfor i in $(seq 0 $last_index); do
49*dfc11533SChris Williamson	log_note "running program: ${args[i]}"
50*dfc11533SChris Williamson	log_mustnot_checkerror_program "execution failed" $TESTPOOL - <<-EOF
51*dfc11533SChris Williamson		return ${args[i]}
52*dfc11533SChris Williamson	EOF
53*dfc11533SChris Williamson	((i = i + 1))
54*dfc11533SChris Williamsondone
55*dfc11533SChris Williamson
56*dfc11533SChris Williamsonfor i in $(seq 0 $last_index); do
57*dfc11533SChris Williamson	log_note "running program: ${args[i]}"
58*dfc11533SChris Williamson	log_mustnot_checkerror_program "execution failed" $TESTPOOL - <<-EOF
59*dfc11533SChris Williamson		error(${args[i]})
60*dfc11533SChris Williamson	EOF
61*dfc11533SChris Williamson	((i = i + 1))
62*dfc11533SChris Williamsondone
63*dfc11533SChris Williamson
64*dfc11533SChris Williamsonlog_pass "Returning lua constructs that cannot be converted to " \
65*dfc11533SChris Williamson    "nvlists fails as expected."
66