1#!/bin/ksh -p
2#
3# This file and its contents are supplied under the terms of the
4# Common Development and Distribution License ("CDDL"), version 1.0.
5# You may only use this file in accordance with the terms of version
6# 1.0 of the CDDL.
7#
8# A full copy of the text of the CDDL should have accompanied this
9# source.  A copy of the CDDL is also available via the Internet at
10# http://www.illumos.org/license/CDDL.
11#
12
13#
14# Copyright (c) 2016, 2017 by Delphix. All rights reserved.
15#
16
17. $STF_SUITE/tests/functional/channel_program/channel_common.kshlib
18
19#
20# DESCRIPTION:
21#       Passing the instruction limit option to channel programs should work
22#       correctly. Programs that exceed these instruction limits should fail
23#       gracefully.
24#
25
26verify_runnable "both"
27
28log_assert "Timeouts work correctly."
29
30log_mustnot_checkerror_program "Channel program timed out" \
31    $TESTPOOL $ZCP_ROOT/lua_core/tst.timeout.zcp
32
33function test_instr_limit
34{
35	typeset lim=$1
36
37	log_mustnot eval 'error=$(zfs program -t '$lim' $TESTPOOL $ZCP_ROOT/lua_core/tst.timeout.zcp 2>&1)'
38
39	read -r instrs_run _ < <(echo $error | awk -F "chunk" '{print $2}')
40	log_must [ $instrs_run -ge $(( $lim - 100 )) ]
41	log_must [ $instrs_run -le $(( $lim + 100 )) ]
42	log_note "With limit $lim the program ended after $instrs_run instructions"
43}
44
45test_instr_limit 1000
46test_instr_limit 10000
47test_instr_limit 100000
48test_instr_limit 1000000
49test_instr_limit 2000000
50
51log_pass "Timeouts work correctly."
52