34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# CDDL HEADER START
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# The contents of this file are subject to the terms of the
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# Common Development and Distribution License (the "License").
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# You may not use this file except in compliance with the License.
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# or http://www.opensolaris.org/os/licensing.
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# See the License for the specific language governing permissions
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# and limitations under the License.
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# When distributing Covered Code, include this CDDL HEADER in each
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# If applicable, add the following below this CDDL HEADER, with the
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# fields enclosed by brackets "[]" replaced with your own identifying
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# information: Portions Copyright [yyyy] [name of copyright owner]
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# CDDL HEADER END
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner# Copyright (c) 2009, 2010, Oracle and/or its affiliates. All rights reserved.
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# This test checks whether the arithmetric function "iszero" is available.
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# This was reported as CR #6777491 ("*ksh93* lacks arithmetric function
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# iszero()"):
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# ------------ snip ------------
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# ksh93 lacks arithmetric function "iszero()" which limits the ability
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# to classify floating-point values or even correctly match against
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# zero (since IEEE754-1985/2008 floating-point math differs between
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# positive and negaive zero values).
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# Frequency
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# Always
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# Regression
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# No
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# Steps to Reproduce
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# $ ksh93 -c '(( iszero(0) )) && print "0 is a zero"'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# Expected Result
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# Output to stdout:
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# -- snip --
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# 0 is a zero
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# -- snip --
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# Actual Result
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# ksh93 exists with:
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# -- snip --
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# ksh93: iszero(0) : unknown function
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# -- snip --
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# Error Message(s)
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# ksh93: iszero(0) : unknown function
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# Test Case
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# ksh93 -c '(( iszero(0) )) && print "0 is a zero"'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# ------------ snip ------------
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz#
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# test setup
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzfunction err_exit
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz{
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz print -u2 -n "\t"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz print -u2 -r ${Command}[$1]: "${@:2}"
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner (( Errors < 127 && Errors++ ))
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz}
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzalias err_exit='err_exit $LINENO'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzset -o nounset
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland MainzCommand=${0##*/}
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzinteger Errors=0
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainztypeset str
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzinteger i
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainztypeset -a tests=(
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz '(( iszero(0) )) && print "OK"'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz '(( iszero(0.) )) && print "OK"'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz '(( iszero(-0) )) && print "OK"'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz '(( iszero(-0.) )) && print "OK"'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz 'float n=0. ; (( iszero(n) )) && print "OK"'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz 'float n=+0. ; (( iszero(n) )) && print "OK"'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz 'float n=-0. ; (( iszero(n) )) && print "OK"'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz 'float n=1. ; (( iszero(n) )) || print "OK"'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz 'float n=1. ; (( iszero(n-1.) )) && print "OK"'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz 'float n=-1. ; (( iszero(n+1.) )) && print "OK"'
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz)
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzfor (( i=0 ; i < ${#tests[@]} ; i++ )) ; do
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz str="$( $SHELL -o errexit -c "${tests[i]}" 2>&1 )" || err_exit "test $i: returned non-zero exit code $?"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz [[ "${str}" == "OK" ]] || err_exit "test $i: expected 'OK', got '${str}'"
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzdone
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz# tests done
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzexit $((Errors))