1#! /bin/sh 2# Generated from testsuite.at by GNU Autoconf 2.69. 3# 4# Copyright (C) 2009-2012 Free Software Foundation, Inc. 5# 6# This test suite is free software; the Free Software Foundation gives 7# unlimited permission to copy, distribute and modify it. 8## -------------------- ## 9## M4sh Initialization. ## 10## -------------------- ## 11 12# Be more Bourne compatible 13DUALCASE=1; export DUALCASE # for MKS sh 14if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : 15 emulate sh 16 NULLCMD=: 17 # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which 18 # is contrary to our usage. Disable this feature. 19 alias -g '${1+"$@"}'='"$@"' 20 setopt NO_GLOB_SUBST 21else 22 case `(set -o) 2>/dev/null` in #( 23 *posix*) : 24 set -o posix ;; #( 25 *) : 26 ;; 27esac 28fi 29 30 31as_nl=' 32' 33export as_nl 34# Printing a long string crashes Solaris 7 /usr/bin/printf. 35as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' 36as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo 37as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo 38# Prefer a ksh shell builtin over an external printf program on Solaris, 39# but without wasting forks for bash or zsh. 40if test -z "$BASH_VERSION$ZSH_VERSION" \ 41 && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then 42 as_echo='print -r --' 43 as_echo_n='print -rn --' 44elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then 45 as_echo='printf %s\n' 46 as_echo_n='printf %s' 47else 48 if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then 49 as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' 50 as_echo_n='/usr/ucb/echo -n' 51 else 52 as_echo_body='eval expr "X$1" : "X\\(.*\\)"' 53 as_echo_n_body='eval 54 arg=$1; 55 case $arg in #( 56 *"$as_nl"*) 57 expr "X$arg" : "X\\(.*\\)$as_nl"; 58 arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; 59 esac; 60 expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" 61 ' 62 export as_echo_n_body 63 as_echo_n='sh -c $as_echo_n_body as_echo' 64 fi 65 export as_echo_body 66 as_echo='sh -c $as_echo_body as_echo' 67fi 68 69# The user is always right. 70if test "${PATH_SEPARATOR+set}" != set; then 71 PATH_SEPARATOR=: 72 (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { 73 (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || 74 PATH_SEPARATOR=';' 75 } 76fi 77 78 79# IFS 80# We need space, tab and new line, in precisely that order. Quoting is 81# there to prevent editors from complaining about space-tab. 82# (If _AS_PATH_WALK were called with IFS unset, it would disable word 83# splitting by setting IFS to empty value.) 84IFS=" "" $as_nl" 85 86# Find who we are. Look in the path if we contain no directory separator. 87as_myself= 88case $0 in #(( 89 *[\\/]* ) as_myself=$0 ;; 90 *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR 91for as_dir in $PATH 92do 93 IFS=$as_save_IFS 94 test -z "$as_dir" && as_dir=. 95 test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break 96 done 97IFS=$as_save_IFS 98 99 ;; 100esac 101# We did not find ourselves, most probably we were run as `sh COMMAND' 102# in which case we are not to be found in the path. 103if test "x$as_myself" = x; then 104 as_myself=$0 105fi 106if test ! -f "$as_myself"; then 107 $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 108 exit 1 109fi 110 111# Unset variables that we do not need and which cause bugs (e.g. in 112# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" 113# suppresses any "Segmentation fault" message there. '((' could 114# trigger a bug in pdksh 5.2.14. 115for as_var in BASH_ENV ENV MAIL MAILPATH 116do eval test x\${$as_var+set} = xset \ 117 && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : 118done 119PS1='$ ' 120PS2='> ' 121PS4='+ ' 122 123# NLS nuisances. 124LC_ALL=C 125export LC_ALL 126LANGUAGE=C 127export LANGUAGE 128 129# CDPATH. 130(unset CDPATH) >/dev/null 2>&1 && unset CDPATH 131 132if test "x$CONFIG_SHELL" = x; then 133 as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : 134 emulate sh 135 NULLCMD=: 136 # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which 137 # is contrary to our usage. Disable this feature. 138 alias -g '\${1+\"\$@\"}'='\"\$@\"' 139 setopt NO_GLOB_SUBST 140else 141 case \`(set -o) 2>/dev/null\` in #( 142 *posix*) : 143 set -o posix ;; #( 144 *) : 145 ;; 146esac 147fi 148" 149 as_required="as_fn_return () { (exit \$1); } 150as_fn_success () { as_fn_return 0; } 151as_fn_failure () { as_fn_return 1; } 152as_fn_ret_success () { return 0; } 153as_fn_ret_failure () { return 1; } 154 155exitcode=0 156as_fn_success || { exitcode=1; echo as_fn_success failed.; } 157as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } 158as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } 159as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } 160if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : 161 162else 163 exitcode=1; echo positional parameters were not saved. 164fi 165test x\$exitcode = x0 || exit 1 166test -x / || exit 1" 167 as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO 168 as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO 169 eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && 170 test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 171test \$(( 1 + 1 )) = 2 || exit 1" 172 if (eval "$as_required") 2>/dev/null; then : 173 as_have_required=yes 174else 175 as_have_required=no 176fi 177 if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : 178 179else 180 as_save_IFS=$IFS; IFS=$PATH_SEPARATOR 181as_found=false 182for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH 183do 184 IFS=$as_save_IFS 185 test -z "$as_dir" && as_dir=. 186 as_found=: 187 case $as_dir in #( 188 /*) 189 for as_base in sh bash ksh sh5; do 190 # Try only shells that exist, to save several forks. 191 as_shell=$as_dir/$as_base 192 if { test -f "$as_shell" || test -f "$as_shell.exe"; } && 193 { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : 194 CONFIG_SHELL=$as_shell as_have_required=yes 195 if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : 196 break 2 197fi 198fi 199 done;; 200 esac 201 as_found=false 202done 203$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && 204 { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : 205 CONFIG_SHELL=$SHELL as_have_required=yes 206fi; } 207IFS=$as_save_IFS 208 209 210 if test "x$CONFIG_SHELL" != x; then : 211 export CONFIG_SHELL 212 # We cannot yet assume a decent shell, so we have to provide a 213# neutralization value for shells without unset; and this also 214# works around shells that cannot unset nonexistent variables. 215# Preserve -v and -x to the replacement shell. 216BASH_ENV=/dev/null 217ENV=/dev/null 218(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV 219case $- in # (((( 220 *v*x* | *x*v* ) as_opts=-vx ;; 221 *v* ) as_opts=-v ;; 222 *x* ) as_opts=-x ;; 223 * ) as_opts= ;; 224esac 225exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} 226# Admittedly, this is quite paranoid, since all the known shells bail 227# out after a failed `exec'. 228$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 229exit 255 230fi 231 232 if test x$as_have_required = xno; then : 233 $as_echo "$0: This script requires a shell more modern than all" 234 $as_echo "$0: the shells that I found on your system." 235 if test x${ZSH_VERSION+set} = xset ; then 236 $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" 237 $as_echo "$0: be upgraded to zsh 4.3.4 or later." 238 else 239 $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, 240$0: including any error possibly output before this 241$0: message. Then install a modern shell, or manually run 242$0: the script under such a shell if you do have one." 243 fi 244 exit 1 245fi 246fi 247fi 248SHELL=${CONFIG_SHELL-/bin/sh} 249export SHELL 250# Unset more variables known to interfere with behavior of common tools. 251CLICOLOR_FORCE= GREP_OPTIONS= 252unset CLICOLOR_FORCE GREP_OPTIONS 253 254## --------------------- ## 255## M4sh Shell Functions. ## 256## --------------------- ## 257# as_fn_unset VAR 258# --------------- 259# Portably unset VAR. 260as_fn_unset () 261{ 262 { eval $1=; unset $1;} 263} 264as_unset=as_fn_unset 265 266# as_fn_set_status STATUS 267# ----------------------- 268# Set $? to STATUS, without forking. 269as_fn_set_status () 270{ 271 return $1 272} # as_fn_set_status 273 274# as_fn_exit STATUS 275# ----------------- 276# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. 277as_fn_exit () 278{ 279 set +e 280 as_fn_set_status $1 281 exit $1 282} # as_fn_exit 283 284# as_fn_mkdir_p 285# ------------- 286# Create "$as_dir" as a directory, including parents if necessary. 287as_fn_mkdir_p () 288{ 289 290 case $as_dir in #( 291 -*) as_dir=./$as_dir;; 292 esac 293 test -d "$as_dir" || eval $as_mkdir_p || { 294 as_dirs= 295 while :; do 296 case $as_dir in #( 297 *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( 298 *) as_qdir=$as_dir;; 299 esac 300 as_dirs="'$as_qdir' $as_dirs" 301 as_dir=`$as_dirname -- "$as_dir" || 302$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ 303 X"$as_dir" : 'X\(//\)[^/]' \| \ 304 X"$as_dir" : 'X\(//\)$' \| \ 305 X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || 306$as_echo X"$as_dir" | 307 sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ 308 s//\1/ 309 q 310 } 311 /^X\(\/\/\)[^/].*/{ 312 s//\1/ 313 q 314 } 315 /^X\(\/\/\)$/{ 316 s//\1/ 317 q 318 } 319 /^X\(\/\).*/{ 320 s//\1/ 321 q 322 } 323 s/.*/./; q'` 324 test -d "$as_dir" && break 325 done 326 test -z "$as_dirs" || eval "mkdir $as_dirs" 327 } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" 328 329 330} # as_fn_mkdir_p 331 332# as_fn_executable_p FILE 333# ----------------------- 334# Test if FILE is an executable regular file. 335as_fn_executable_p () 336{ 337 test -f "$1" && test -x "$1" 338} # as_fn_executable_p 339# as_fn_append VAR VALUE 340# ---------------------- 341# Append the text in VALUE to the end of the definition contained in VAR. Take 342# advantage of any shell optimizations that allow amortized linear growth over 343# repeated appends, instead of the typical quadratic growth present in naive 344# implementations. 345if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : 346 eval 'as_fn_append () 347 { 348 eval $1+=\$2 349 }' 350else 351 as_fn_append () 352 { 353 eval $1=\$$1\$2 354 } 355fi # as_fn_append 356 357# as_fn_arith ARG... 358# ------------------ 359# Perform arithmetic evaluation on the ARGs, and store the result in the 360# global $as_val. Take advantage of shells that can avoid forks. The arguments 361# must be portable across $(()) and expr. 362if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : 363 eval 'as_fn_arith () 364 { 365 as_val=$(( $* )) 366 }' 367else 368 as_fn_arith () 369 { 370 as_val=`expr "$@" || test $? -eq 1` 371 } 372fi # as_fn_arith 373 374 375# as_fn_error STATUS ERROR [LINENO LOG_FD] 376# ---------------------------------------- 377# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are 378# provided, also output the error to LOG_FD, referencing LINENO. Then exit the 379# script with STATUS, using 1 if that was 0. 380as_fn_error () 381{ 382 as_status=$1; test $as_status -eq 0 && as_status=1 383 if test "$4"; then 384 as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack 385 $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 386 fi 387 $as_echo "$as_me: error: $2" >&2 388 as_fn_exit $as_status 389} # as_fn_error 390 391if expr a : '\(a\)' >/dev/null 2>&1 && 392 test "X`expr 00001 : '.*\(...\)'`" = X001; then 393 as_expr=expr 394else 395 as_expr=false 396fi 397 398if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then 399 as_basename=basename 400else 401 as_basename=false 402fi 403 404as_me=`$as_basename -- "$0" || 405$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ 406 X"$0" : 'X\(//\)$' \| \ 407 X"$0" : 'X\(/\)' \| . 2>/dev/null || 408$as_echo X/"$0" | 409 sed '/^.*\/\([^/][^/]*\)\/*$/{ 410 s//\1/ 411 q 412 } 413 /^X\/\(\/\/\)$/{ 414 s//\1/ 415 q 416 } 417 /^X\/\(\/\).*/{ 418 s//\1/ 419 q 420 } 421 s/.*/./; q'` 422 423if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then 424 as_dirname=dirname 425else 426 as_dirname=false 427fi 428 429# Avoid depending upon Character Ranges. 430as_cr_letters='abcdefghijklmnopqrstuvwxyz' 431as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' 432as_cr_Letters=$as_cr_letters$as_cr_LETTERS 433as_cr_digits='0123456789' 434as_cr_alnum=$as_cr_Letters$as_cr_digits 435 436 437 as_lineno_1=$LINENO as_lineno_1a=$LINENO 438 as_lineno_2=$LINENO as_lineno_2a=$LINENO 439 eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && 440 test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { 441 # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) 442 sed -n ' 443 p 444 /[$]LINENO/= 445 ' <$as_myself | 446 sed ' 447 s/[$]LINENO.*/&-/ 448 t lineno 449 b 450 :lineno 451 N 452 :loop 453 s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ 454 t loop 455 s/-\n.*// 456 ' >$as_me.lineno && 457 chmod +x "$as_me.lineno" || 458 { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } 459 460 # If we had to re-execute with $CONFIG_SHELL, we're ensured to have 461 # already done that, so ensure we don't try to do so again and fall 462 # in an infinite loop. This has already happened in practice. 463 _as_can_reexec=no; export _as_can_reexec 464 # Don't try to exec as it changes $[0], causing all sort of problems 465 # (the dirname of $[0] is not the place where we might find the 466 # original and so on. Autoconf is especially sensitive to this). 467 . "./$as_me.lineno" 468 # Exit status is that of the last command. 469 exit 470} 471 472ECHO_C= ECHO_N= ECHO_T= 473case `echo -n x` in #((((( 474-n*) 475 case `echo 'xy\c'` in 476 *c*) ECHO_T=' ';; # ECHO_T is single tab character. 477 xy) ECHO_C='\c';; 478 *) echo `echo ksh88 bug on AIX 6.1` > /dev/null 479 ECHO_T=' ';; 480 esac;; 481*) 482 ECHO_N='-n';; 483esac 484 485rm -f conf$$ conf$$.exe conf$$.file 486if test -d conf$$.dir; then 487 rm -f conf$$.dir/conf$$.file 488else 489 rm -f conf$$.dir 490 mkdir conf$$.dir 2>/dev/null 491fi 492if (echo >conf$$.file) 2>/dev/null; then 493 if ln -s conf$$.file conf$$ 2>/dev/null; then 494 as_ln_s='ln -s' 495 # ... but there are two gotchas: 496 # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. 497 # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. 498 # In both cases, we have to default to `cp -pR'. 499 ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || 500 as_ln_s='cp -pR' 501 elif ln conf$$.file conf$$ 2>/dev/null; then 502 as_ln_s=ln 503 else 504 as_ln_s='cp -pR' 505 fi 506else 507 as_ln_s='cp -pR' 508fi 509rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file 510rmdir conf$$.dir 2>/dev/null 511 512if mkdir -p . 2>/dev/null; then 513 as_mkdir_p='mkdir -p "$as_dir"' 514else 515 test -d ./-p && rmdir ./-p 516 as_mkdir_p=false 517fi 518 519as_test_x='test -x' 520as_executable_p=as_fn_executable_p 521 522# Sed expression to map a string onto a valid CPP name. 523as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" 524 525# Sed expression to map a string onto a valid variable name. 526as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" 527 528 529 530 531 532SHELL=${CONFIG_SHELL-/bin/sh} 533 534# How were we run? 535at_cli_args="$@" 536 537 538# Not all shells have the 'times' builtin; the subshell is needed to make 539# sure we discard the 'times: not found' message from the shell. 540at_times_p=false 541(times) >/dev/null 2>&1 && at_times_p=: 542 543# CLI Arguments to pass to the debugging scripts. 544at_debug_args= 545# -e sets to true 546at_errexit_p=false 547# Shall we be verbose? ':' means no, empty means yes. 548at_verbose=: 549at_quiet= 550# Running several jobs in parallel, 0 means as many as test groups. 551at_jobs=1 552at_traceon=: 553at_trace_echo=: 554at_check_filter_trace=: 555 556# Shall we keep the debug scripts? Must be `:' when the suite is 557# run by a debug script, so that the script doesn't remove itself. 558at_debug_p=false 559# Display help message? 560at_help_p=false 561# Display the version message? 562at_version_p=false 563# List test groups? 564at_list_p=false 565# --clean 566at_clean=false 567# Test groups to run 568at_groups= 569# Whether to rerun failed tests. 570at_recheck= 571# Whether a write failure occurred 572at_write_fail=0 573 574# The directory we run the suite in. Default to . if no -C option. 575at_dir=`pwd` 576# An absolute reference to this testsuite script. 577case $as_myself in 578 [\\/]* | ?:[\\/]* ) at_myself=$as_myself ;; 579 * ) at_myself=$at_dir/$as_myself ;; 580esac 581# Whether -C is in effect. 582at_change_dir=false 583 584# Whether to enable colored test results. 585at_color=no 586# List of the tested programs. 587at_tested='' 588# As many question marks as there are digits in the last test group number. 589# Used to normalize the test group numbers so that `ls' lists them in 590# numerical order. 591at_format='?' 592# Description of all the test groups. 593at_help_all="1;basics.at:24;Check basics.;; 5942;numbers.at:24;Check numbers.;; 5953;constants.at:24;Check constants.;; 5964;variables.at:24;Check variables.;; 5975;functions.at:24;Check functions.;; 5986;un_ops.at:24;Check unary operations.;; 5997;bin_ops.at:24;Check binary operations.;; 600" 601# List of the all the test groups. 602at_groups_all=`$as_echo "$at_help_all" | sed 's/;.*//'` 603 604# at_fn_validate_ranges NAME... 605# ----------------------------- 606# Validate and normalize the test group number contained in each variable 607# NAME. Leading zeroes are treated as decimal. 608at_fn_validate_ranges () 609{ 610 for at_grp 611 do 612 eval at_value=\$$at_grp 613 if test $at_value -lt 1 || test $at_value -gt 7; then 614 $as_echo "invalid test group: $at_value" >&2 615 exit 1 616 fi 617 case $at_value in 618 0*) # We want to treat leading 0 as decimal, like expr and test, but 619 # AS_VAR_ARITH treats it as octal if it uses $(( )). 620 # With XSI shells, ${at_value#${at_value%%[1-9]*}} avoids the 621 # expr fork, but it is not worth the effort to determine if the 622 # shell supports XSI when the user can just avoid leading 0. 623 eval $at_grp='`expr $at_value + 0`' ;; 624 esac 625 done 626} 627 628at_prev= 629for at_option 630do 631 # If the previous option needs an argument, assign it. 632 if test -n "$at_prev"; then 633 at_option=$at_prev=$at_option 634 at_prev= 635 fi 636 637 case $at_option in 638 *=?*) at_optarg=`expr "X$at_option" : '[^=]*=\(.*\)'` ;; 639 *) at_optarg= ;; 640 esac 641 642 # Accept the important Cygnus configure options, so we can diagnose typos. 643 644 case $at_option in 645 --help | -h ) 646 at_help_p=: 647 ;; 648 649 --list | -l ) 650 at_list_p=: 651 ;; 652 653 --version | -V ) 654 at_version_p=: 655 ;; 656 657 --clean | -c ) 658 at_clean=: 659 ;; 660 661 --color ) 662 at_color=always 663 ;; 664 --color=* ) 665 case $at_optarg in 666 no | never | none) at_color=never ;; 667 auto | tty | if-tty) at_color=auto ;; 668 always | yes | force) at_color=always ;; 669 *) at_optname=`echo " $at_option" | sed 's/^ //; s/=.*//'` 670 as_fn_error $? "unrecognized argument to $at_optname: $at_optarg" ;; 671 esac 672 ;; 673 674 --debug | -d ) 675 at_debug_p=: 676 ;; 677 678 --errexit | -e ) 679 at_debug_p=: 680 at_errexit_p=: 681 ;; 682 683 --verbose | -v ) 684 at_verbose=; at_quiet=: 685 ;; 686 687 --trace | -x ) 688 at_traceon='set -x' 689 at_trace_echo=echo 690 at_check_filter_trace=at_fn_filter_trace 691 ;; 692 693 [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9]) 694 at_fn_validate_ranges at_option 695 as_fn_append at_groups "$at_option$as_nl" 696 ;; 697 698 # Ranges 699 [0-9]- | [0-9][0-9]- | [0-9][0-9][0-9]- | [0-9][0-9][0-9][0-9]-) 700 at_range_start=`echo $at_option |tr -d X-` 701 at_fn_validate_ranges at_range_start 702 at_range=`$as_echo "$at_groups_all" | \ 703 sed -ne '/^'$at_range_start'$/,$p'` 704 as_fn_append at_groups "$at_range$as_nl" 705 ;; 706 707 -[0-9] | -[0-9][0-9] | -[0-9][0-9][0-9] | -[0-9][0-9][0-9][0-9]) 708 at_range_end=`echo $at_option |tr -d X-` 709 at_fn_validate_ranges at_range_end 710 at_range=`$as_echo "$at_groups_all" | \ 711 sed -ne '1,/^'$at_range_end'$/p'` 712 as_fn_append at_groups "$at_range$as_nl" 713 ;; 714 715 [0-9]-[0-9] | [0-9]-[0-9][0-9] | [0-9]-[0-9][0-9][0-9] | \ 716 [0-9]-[0-9][0-9][0-9][0-9] | [0-9][0-9]-[0-9][0-9] | \ 717 [0-9][0-9]-[0-9][0-9][0-9] | [0-9][0-9]-[0-9][0-9][0-9][0-9] | \ 718 [0-9][0-9][0-9]-[0-9][0-9][0-9] | \ 719 [0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] | \ 720 [0-9][0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] ) 721 at_range_start=`expr $at_option : '\(.*\)-'` 722 at_range_end=`expr $at_option : '.*-\(.*\)'` 723 if test $at_range_start -gt $at_range_end; then 724 at_tmp=$at_range_end 725 at_range_end=$at_range_start 726 at_range_start=$at_tmp 727 fi 728 at_fn_validate_ranges at_range_start at_range_end 729 at_range=`$as_echo "$at_groups_all" | \ 730 sed -ne '/^'$at_range_start'$/,/^'$at_range_end'$/p'` 731 as_fn_append at_groups "$at_range$as_nl" 732 ;; 733 734 # Directory selection. 735 --directory | -C ) 736 at_prev=--directory 737 ;; 738 --directory=* ) 739 at_change_dir=: 740 at_dir=$at_optarg 741 if test x- = "x$at_dir" ; then 742 at_dir=./- 743 fi 744 ;; 745 746 # Parallel execution. 747 --jobs | -j ) 748 at_jobs=0 749 ;; 750 --jobs=* | -j[0-9]* ) 751 if test -n "$at_optarg"; then 752 at_jobs=$at_optarg 753 else 754 at_jobs=`expr X$at_option : 'X-j\(.*\)'` 755 fi 756 case $at_jobs in *[!0-9]*) 757 at_optname=`echo " $at_option" | sed 's/^ //; s/[0-9=].*//'` 758 as_fn_error $? "non-numeric argument to $at_optname: $at_jobs" ;; 759 esac 760 ;; 761 762 # Keywords. 763 --keywords | -k ) 764 at_prev=--keywords 765 ;; 766 --keywords=* ) 767 at_groups_selected=$at_help_all 768 at_save_IFS=$IFS 769 IFS=, 770 set X $at_optarg 771 shift 772 IFS=$at_save_IFS 773 for at_keyword 774 do 775 at_invert= 776 case $at_keyword in 777 '!'*) 778 at_invert="-v" 779 at_keyword=`expr "X$at_keyword" : 'X!\(.*\)'` 780 ;; 781 esac 782 # It is on purpose that we match the test group titles too. 783 at_groups_selected=`$as_echo "$at_groups_selected" | 784 grep -i $at_invert "^[1-9][^;]*;.*[; ]$at_keyword[ ;]"` 785 done 786 # Smash the keywords. 787 at_groups_selected=`$as_echo "$at_groups_selected" | sed 's/;.*//'` 788 as_fn_append at_groups "$at_groups_selected$as_nl" 789 ;; 790 --recheck) 791 at_recheck=: 792 ;; 793 794 *=*) 795 at_envvar=`expr "x$at_option" : 'x\([^=]*\)='` 796 # Reject names that are not valid shell variable names. 797 case $at_envvar in 798 '' | [0-9]* | *[!_$as_cr_alnum]* ) 799 as_fn_error $? "invalid variable name: \`$at_envvar'" ;; 800 esac 801 at_value=`$as_echo "$at_optarg" | sed "s/'/'\\\\\\\\''/g"` 802 # Export now, but save eval for later and for debug scripts. 803 export $at_envvar 804 as_fn_append at_debug_args " $at_envvar='$at_value'" 805 ;; 806 807 *) $as_echo "$as_me: invalid option: $at_option" >&2 808 $as_echo "Try \`$0 --help' for more information." >&2 809 exit 1 810 ;; 811 esac 812done 813 814# Verify our last option didn't require an argument 815if test -n "$at_prev"; then : 816 as_fn_error $? "\`$at_prev' requires an argument" 817fi 818 819# The file containing the suite. 820at_suite_log=$at_dir/$as_me.log 821 822# Selected test groups. 823if test -z "$at_groups$at_recheck"; then 824 at_groups=$at_groups_all 825else 826 if test -n "$at_recheck" && test -r "$at_suite_log"; then 827 at_oldfails=`sed -n ' 828 /^Failed tests:$/,/^Skipped tests:$/{ 829 s/^[ ]*\([1-9][0-9]*\):.*/\1/p 830 } 831 /^Unexpected passes:$/,/^## Detailed failed tests/{ 832 s/^[ ]*\([1-9][0-9]*\):.*/\1/p 833 } 834 /^## Detailed failed tests/q 835 ' "$at_suite_log"` 836 as_fn_append at_groups "$at_oldfails$as_nl" 837 fi 838 # Sort the tests, removing duplicates. 839 at_groups=`$as_echo "$at_groups" | sort -nu | sed '/^$/d'` 840fi 841 842if test x"$at_color" = xalways \ 843 || { test x"$at_color" = xauto && test -t 1; }; then 844 at_red=`printf '\033[0;31m'` 845 at_grn=`printf '\033[0;32m'` 846 at_lgn=`printf '\033[1;32m'` 847 at_blu=`printf '\033[1;34m'` 848 at_std=`printf '\033[m'` 849else 850 at_red= at_grn= at_lgn= at_blu= at_std= 851fi 852 853# Help message. 854if $at_help_p; then 855 cat <<_ATEOF || at_write_fail=1 856Usage: $0 [OPTION]... [VARIABLE=VALUE]... [TESTS] 857 858Run all the tests, or the selected TESTS, given by numeric ranges, and 859save a detailed log file. Upon failure, create debugging scripts. 860 861Do not change environment variables directly. Instead, set them via 862command line arguments. Set \`AUTOTEST_PATH' to select the executables 863to exercise. Each relative directory is expanded as build and source 864directories relative to the top level of this distribution. 865E.g., from within the build directory /tmp/foo-1.0, invoking this: 866 867 $ $0 AUTOTEST_PATH=bin 868 869is equivalent to the following, assuming the source directory is /src/foo-1.0: 870 871 PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH $0 872_ATEOF 873cat <<_ATEOF || at_write_fail=1 874 875Operation modes: 876 -h, --help print the help message, then exit 877 -V, --version print version number, then exit 878 -c, --clean remove all the files this test suite might create and exit 879 -l, --list describes all the tests, or the selected TESTS 880_ATEOF 881cat <<_ATEOF || at_write_fail=1 882 883Execution tuning: 884 -C, --directory=DIR 885 change to directory DIR before starting 886 --color[=never|auto|always] 887 enable colored test results on terminal, or always 888 -j, --jobs[=N] 889 Allow N jobs at once; infinite jobs with no arg (default 1) 890 -k, --keywords=KEYWORDS 891 select the tests matching all the comma-separated KEYWORDS 892 multiple \`-k' accumulate; prefixed \`!' negates a KEYWORD 893 --recheck select all tests that failed or passed unexpectedly last time 894 -e, --errexit abort as soon as a test fails; implies --debug 895 -v, --verbose force more detailed output 896 default for debugging scripts 897 -d, --debug inhibit clean up and top-level logging 898 default for debugging scripts 899 -x, --trace enable tests shell tracing 900_ATEOF 901cat <<_ATEOF || at_write_fail=1 902 903Report bugs to <asamardzic@gnu.org>. 904_ATEOF 905 exit $at_write_fail 906fi 907 908# List of tests. 909if $at_list_p; then 910 cat <<_ATEOF || at_write_fail=1 911libmatheval 1.1.11 test suite test groups: 912 913 NUM: FILE-NAME:LINE TEST-GROUP-NAME 914 KEYWORDS 915 916_ATEOF 917 # Pass an empty line as separator between selected groups and help. 918 $as_echo "$at_groups$as_nl$as_nl$at_help_all" | 919 awk 'NF == 1 && FS != ";" { 920 selected[$ 1] = 1 921 next 922 } 923 /^$/ { FS = ";" } 924 NF > 0 { 925 if (selected[$ 1]) { 926 printf " %3d: %-18s %s\n", $ 1, $ 2, $ 3 927 if ($ 4) { 928 lmax = 79 929 indent = " " 930 line = indent 931 len = length (line) 932 n = split ($ 4, a, " ") 933 for (i = 1; i <= n; i++) { 934 l = length (a[i]) + 1 935 if (i > 1 && len + l > lmax) { 936 print line 937 line = indent " " a[i] 938 len = length (line) 939 } else { 940 line = line " " a[i] 941 len += l 942 } 943 } 944 if (n) 945 print line 946 } 947 } 948 }' || at_write_fail=1 949 exit $at_write_fail 950fi 951if $at_version_p; then 952 $as_echo "$as_me (libmatheval 1.1.11)" && 953 cat <<\_ATEOF || at_write_fail=1 954 955Copyright (C) 2012 Free Software Foundation, Inc. 956This test suite is free software; the Free Software Foundation gives 957unlimited permission to copy, distribute and modify it. 958_ATEOF 959 exit $at_write_fail 960fi 961 962# Should we print banners? Yes if more than one test is run. 963case $at_groups in #( 964 *$as_nl* ) 965 at_print_banners=: ;; #( 966 * ) at_print_banners=false ;; 967esac 968# Text for banner N, set to a single space once printed. 969# Banner 1. basics.at:22 970# Category starts at test group 1. 971at_banner_text_1="Checking basic functionality." 972# Banner 2. numbers.at:22 973# Category starts at test group 2. 974at_banner_text_2="Checking evaluating numbers." 975# Banner 3. constants.at:22 976# Category starts at test group 3. 977at_banner_text_3="Checking evaluating constants." 978# Banner 4. variables.at:22 979# Category starts at test group 4. 980at_banner_text_4="Checking evaluating variables." 981# Banner 5. functions.at:22 982# Category starts at test group 5. 983at_banner_text_5="Checking evaluating functions." 984# Banner 6. un_ops.at:22 985# Category starts at test group 6. 986at_banner_text_6="Checking evaluating unary operations." 987# Banner 7. bin_ops.at:22 988# Category starts at test group 7. 989at_banner_text_7="Checking evaluating binary operations." 990 991# Take any -C into account. 992if $at_change_dir ; then 993 test x != "x$at_dir" && cd "$at_dir" \ 994 || as_fn_error $? "unable to change directory" 995 at_dir=`pwd` 996fi 997 998# Load the config files for any default variable assignments. 999for at_file in atconfig atlocal 1000do 1001 test -r $at_file || continue 1002 . ./$at_file || as_fn_error $? "invalid content: $at_file" 1003done 1004 1005# Autoconf <=2.59b set at_top_builddir instead of at_top_build_prefix: 1006: "${at_top_build_prefix=$at_top_builddir}" 1007 1008# Perform any assignments requested during argument parsing. 1009eval "$at_debug_args" 1010 1011# atconfig delivers names relative to the directory the test suite is 1012# in, but the groups themselves are run in testsuite-dir/group-dir. 1013if test -n "$at_top_srcdir"; then 1014 builddir=../.. 1015 for at_dir_var in srcdir top_srcdir top_build_prefix 1016 do 1017 eval at_val=\$at_$at_dir_var 1018 case $at_val in 1019 [\\/$]* | ?:[\\/]* ) at_prefix= ;; 1020 *) at_prefix=../../ ;; 1021 esac 1022 eval "$at_dir_var=\$at_prefix\$at_val" 1023 done 1024fi 1025 1026## -------------------- ## 1027## Directory structure. ## 1028## -------------------- ## 1029 1030# This is the set of directories and files used by this script 1031# (non-literals are capitalized): 1032# 1033# TESTSUITE - the testsuite 1034# TESTSUITE.log - summarizes the complete testsuite run 1035# TESTSUITE.dir/ - created during a run, remains after -d or failed test 1036# + at-groups/ - during a run: status of all groups in run 1037# | + NNN/ - during a run: meta-data about test group NNN 1038# | | + check-line - location (source file and line) of current AT_CHECK 1039# | | + status - exit status of current AT_CHECK 1040# | | + stdout - stdout of current AT_CHECK 1041# | | + stder1 - stderr, including trace 1042# | | + stderr - stderr, with trace filtered out 1043# | | + test-source - portion of testsuite that defines group 1044# | | + times - timestamps for computing duration 1045# | | + pass - created if group passed 1046# | | + xpass - created if group xpassed 1047# | | + fail - created if group failed 1048# | | + xfail - created if group xfailed 1049# | | + skip - created if group skipped 1050# + at-stop - during a run: end the run if this file exists 1051# + at-source-lines - during a run: cache of TESTSUITE line numbers for extraction 1052# + 0..NNN/ - created for each group NNN, remains after -d or failed test 1053# | + TESTSUITE.log - summarizes the group results 1054# | + ... - files created during the group 1055 1056# The directory the whole suite works in. 1057# Should be absolute to let the user `cd' at will. 1058at_suite_dir=$at_dir/$as_me.dir 1059# The file containing the suite ($at_dir might have changed since earlier). 1060at_suite_log=$at_dir/$as_me.log 1061# The directory containing helper files per test group. 1062at_helper_dir=$at_suite_dir/at-groups 1063# Stop file: if it exists, do not start new jobs. 1064at_stop_file=$at_suite_dir/at-stop 1065# The fifo used for the job dispatcher. 1066at_job_fifo=$at_suite_dir/at-job-fifo 1067 1068if $at_clean; then 1069 test -d "$at_suite_dir" && 1070 find "$at_suite_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \; 1071 rm -f -r "$at_suite_dir" "$at_suite_log" 1072 exit $? 1073fi 1074 1075# Don't take risks: use only absolute directories in PATH. 1076# 1077# For stand-alone test suites (ie. atconfig was not found), 1078# AUTOTEST_PATH is relative to `.'. 1079# 1080# For embedded test suites, AUTOTEST_PATH is relative to the top level 1081# of the package. Then expand it into build/src parts, since users 1082# may create executables in both places. 1083AUTOTEST_PATH=`$as_echo "$AUTOTEST_PATH" | sed "s|:|$PATH_SEPARATOR|g"` 1084at_path= 1085as_save_IFS=$IFS; IFS=$PATH_SEPARATOR 1086for as_dir in $AUTOTEST_PATH $PATH 1087do 1088 IFS=$as_save_IFS 1089 test -z "$as_dir" && as_dir=. 1090 test -n "$at_path" && as_fn_append at_path $PATH_SEPARATOR 1091case $as_dir in 1092 [\\/]* | ?:[\\/]* ) 1093 as_fn_append at_path "$as_dir" 1094 ;; 1095 * ) 1096 if test -z "$at_top_build_prefix"; then 1097 # Stand-alone test suite. 1098 as_fn_append at_path "$as_dir" 1099 else 1100 # Embedded test suite. 1101 as_fn_append at_path "$at_top_build_prefix$as_dir$PATH_SEPARATOR" 1102 as_fn_append at_path "$at_top_srcdir/$as_dir" 1103 fi 1104 ;; 1105esac 1106 done 1107IFS=$as_save_IFS 1108 1109 1110# Now build and simplify PATH. 1111# 1112# There might be directories that don't exist, but don't redirect 1113# builtins' (eg., cd) stderr directly: Ultrix's sh hates that. 1114at_new_path= 1115as_save_IFS=$IFS; IFS=$PATH_SEPARATOR 1116for as_dir in $at_path 1117do 1118 IFS=$as_save_IFS 1119 test -z "$as_dir" && as_dir=. 1120 test -d "$as_dir" || continue 1121case $as_dir in 1122 [\\/]* | ?:[\\/]* ) ;; 1123 * ) as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` ;; 1124esac 1125case $PATH_SEPARATOR$at_new_path$PATH_SEPARATOR in 1126 *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR*) ;; 1127 $PATH_SEPARATOR$PATH_SEPARATOR) at_new_path=$as_dir ;; 1128 *) as_fn_append at_new_path "$PATH_SEPARATOR$as_dir" ;; 1129esac 1130 done 1131IFS=$as_save_IFS 1132 1133PATH=$at_new_path 1134export PATH 1135 1136# Setting up the FDs. 1137 1138 1139 1140# 5 is the log file. Not to be overwritten if `-d'. 1141if $at_debug_p; then 1142 at_suite_log=/dev/null 1143else 1144 : >"$at_suite_log" 1145fi 1146exec 5>>"$at_suite_log" 1147 1148# Banners and logs. 1149$as_echo "## ------------------------------ ## 1150## libmatheval 1.1.11 test suite. ## 1151## ------------------------------ ##" 1152{ 1153 $as_echo "## ------------------------------ ## 1154## libmatheval 1.1.11 test suite. ## 1155## ------------------------------ ##" 1156 echo 1157 1158 $as_echo "$as_me: command line was:" 1159 $as_echo " \$ $0 $at_cli_args" 1160 echo 1161 1162 # If ChangeLog exists, list a few lines in case it might help determining 1163 # the exact version. 1164 if test -n "$at_top_srcdir" && test -f "$at_top_srcdir/ChangeLog"; then 1165 $as_echo "## ---------- ## 1166## ChangeLog. ## 1167## ---------- ##" 1168 echo 1169 sed 's/^/| /;10q' "$at_top_srcdir/ChangeLog" 1170 echo 1171 fi 1172 1173 { 1174cat <<_ASUNAME 1175## --------- ## 1176## Platform. ## 1177## --------- ## 1178 1179hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` 1180uname -m = `(uname -m) 2>/dev/null || echo unknown` 1181uname -r = `(uname -r) 2>/dev/null || echo unknown` 1182uname -s = `(uname -s) 2>/dev/null || echo unknown` 1183uname -v = `(uname -v) 2>/dev/null || echo unknown` 1184 1185/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` 1186/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` 1187 1188/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` 1189/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` 1190/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` 1191/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` 1192/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` 1193/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` 1194/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` 1195 1196_ASUNAME 1197 1198as_save_IFS=$IFS; IFS=$PATH_SEPARATOR 1199for as_dir in $PATH 1200do 1201 IFS=$as_save_IFS 1202 test -z "$as_dir" && as_dir=. 1203 $as_echo "PATH: $as_dir" 1204 done 1205IFS=$as_save_IFS 1206 1207} 1208 echo 1209 1210 # Contents of the config files. 1211 for at_file in atconfig atlocal 1212 do 1213 test -r $at_file || continue 1214 $as_echo "$as_me: $at_file:" 1215 sed 's/^/| /' $at_file 1216 echo 1217 done 1218} >&5 1219 1220 1221## ------------------------- ## 1222## Autotest shell functions. ## 1223## ------------------------- ## 1224 1225# at_fn_banner NUMBER 1226# ------------------- 1227# Output banner NUMBER, provided the testsuite is running multiple groups and 1228# this particular banner has not yet been printed. 1229at_fn_banner () 1230{ 1231 $at_print_banners || return 0 1232 eval at_banner_text=\$at_banner_text_$1 1233 test "x$at_banner_text" = "x " && return 0 1234 eval "at_banner_text_$1=\" \"" 1235 if test -z "$at_banner_text"; then 1236 $at_first || echo 1237 else 1238 $as_echo "$as_nl$at_banner_text$as_nl" 1239 fi 1240} # at_fn_banner 1241 1242# at_fn_check_prepare_notrace REASON LINE 1243# --------------------------------------- 1244# Perform AT_CHECK preparations for the command at LINE for an untraceable 1245# command; REASON is the reason for disabling tracing. 1246at_fn_check_prepare_notrace () 1247{ 1248 $at_trace_echo "Not enabling shell tracing (command contains $1)" 1249 $as_echo "$2" >"$at_check_line_file" 1250 at_check_trace=: at_check_filter=: 1251 : >"$at_stdout"; : >"$at_stderr" 1252} 1253 1254# at_fn_check_prepare_trace LINE 1255# ------------------------------ 1256# Perform AT_CHECK preparations for the command at LINE for a traceable 1257# command. 1258at_fn_check_prepare_trace () 1259{ 1260 $as_echo "$1" >"$at_check_line_file" 1261 at_check_trace=$at_traceon at_check_filter=$at_check_filter_trace 1262 : >"$at_stdout"; : >"$at_stderr" 1263} 1264 1265# at_fn_check_prepare_dynamic COMMAND LINE 1266# ---------------------------------------- 1267# Decide if COMMAND at LINE is traceable at runtime, and call the appropriate 1268# preparation function. 1269at_fn_check_prepare_dynamic () 1270{ 1271 case $1 in 1272 *$as_nl*) 1273 at_fn_check_prepare_notrace 'an embedded newline' "$2" ;; 1274 *) 1275 at_fn_check_prepare_trace "$2" ;; 1276 esac 1277} 1278 1279# at_fn_filter_trace 1280# ------------------ 1281# Remove the lines in the file "$at_stderr" generated by "set -x" and print 1282# them to stderr. 1283at_fn_filter_trace () 1284{ 1285 mv "$at_stderr" "$at_stder1" 1286 grep '^ *+' "$at_stder1" >&2 1287 grep -v '^ *+' "$at_stder1" >"$at_stderr" 1288} 1289 1290# at_fn_log_failure FILE-LIST 1291# --------------------------- 1292# Copy the files in the list on stdout with a "> " prefix, and exit the shell 1293# with a failure exit code. 1294at_fn_log_failure () 1295{ 1296 for file 1297 do $as_echo "$file:"; sed 's/^/> /' "$file"; done 1298 echo 1 > "$at_status_file" 1299 exit 1 1300} 1301 1302# at_fn_check_skip EXIT-CODE LINE 1303# ------------------------------- 1304# Check whether EXIT-CODE is a special exit code (77 or 99), and if so exit 1305# the test group subshell with that same exit code. Use LINE in any report 1306# about test failure. 1307at_fn_check_skip () 1308{ 1309 case $1 in 1310 99) echo 99 > "$at_status_file"; at_failed=: 1311 $as_echo "$2: hard failure"; exit 99;; 1312 77) echo 77 > "$at_status_file"; exit 77;; 1313 esac 1314} 1315 1316# at_fn_check_status EXPECTED EXIT-CODE LINE 1317# ------------------------------------------ 1318# Check whether EXIT-CODE is the EXPECTED exit code, and if so do nothing. 1319# Otherwise, if it is 77 or 99, exit the test group subshell with that same 1320# exit code; if it is anything else print an error message referring to LINE, 1321# and fail the test. 1322at_fn_check_status () 1323{ 1324 case $2 in 1325 $1 ) ;; 1326 77) echo 77 > "$at_status_file"; exit 77;; 1327 99) echo 99 > "$at_status_file"; at_failed=: 1328 $as_echo "$3: hard failure"; exit 99;; 1329 *) $as_echo "$3: exit code was $2, expected $1" 1330 at_failed=:;; 1331 esac 1332} 1333 1334# at_fn_diff_devnull FILE 1335# ----------------------- 1336# Emit a diff between /dev/null and FILE. Uses "test -s" to avoid useless diff 1337# invocations. 1338at_fn_diff_devnull () 1339{ 1340 test -s "$1" || return 0 1341 $at_diff "$at_devnull" "$1" 1342} 1343 1344# at_fn_test NUMBER 1345# ----------------- 1346# Parse out test NUMBER from the tail of this file. 1347at_fn_test () 1348{ 1349 eval at_sed=\$at_sed$1 1350 sed "$at_sed" "$at_myself" > "$at_test_source" 1351} 1352 1353# at_fn_create_debugging_script 1354# ----------------------------- 1355# Create the debugging script $at_group_dir/run which will reproduce the 1356# current test group. 1357at_fn_create_debugging_script () 1358{ 1359 { 1360 echo "#! /bin/sh" && 1361 echo 'test "${ZSH_VERSION+set}" = set && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' && 1362 $as_echo "cd '$at_dir'" && 1363 $as_echo "exec \${CONFIG_SHELL-$SHELL} \"$at_myself\" -v -d $at_debug_args $at_group \${1+\"\$@\"}" && 1364 echo 'exit 1' 1365 } >"$at_group_dir/run" && 1366 chmod +x "$at_group_dir/run" 1367} 1368 1369## -------------------------------- ## 1370## End of autotest shell functions. ## 1371## -------------------------------- ## 1372{ 1373 $as_echo "## ---------------- ## 1374## Tested programs. ## 1375## ---------------- ##" 1376 echo 1377} >&5 1378 1379# Report what programs are being tested. 1380for at_program in : $at_tested 1381do 1382 test "$at_program" = : && continue 1383 case $at_program in 1384 [\\/]* | ?:[\\/]* ) $at_program_=$at_program ;; 1385 * ) 1386 as_save_IFS=$IFS; IFS=$PATH_SEPARATOR 1387for as_dir in $PATH 1388do 1389 IFS=$as_save_IFS 1390 test -z "$as_dir" && as_dir=. 1391 test -f "$as_dir/$at_program" && break 1392 done 1393IFS=$as_save_IFS 1394 1395 at_program_=$as_dir/$at_program ;; 1396 esac 1397 if test -f "$at_program_"; then 1398 { 1399 $as_echo "$at_srcdir/testsuite.at:24: $at_program_ --version" 1400 "$at_program_" --version </dev/null 1401 echo 1402 } >&5 2>&1 1403 else 1404 as_fn_error $? "cannot find $at_program" "$LINENO" 5 1405 fi 1406done 1407 1408{ 1409 $as_echo "## ------------------ ## 1410## Running the tests. ## 1411## ------------------ ##" 1412} >&5 1413 1414at_start_date=`date` 1415at_start_time=`date +%s 2>/dev/null` 1416$as_echo "$as_me: starting at: $at_start_date" >&5 1417 1418# Create the master directory if it doesn't already exist. 1419as_dir="$at_suite_dir"; as_fn_mkdir_p || 1420 as_fn_error $? "cannot create \`$at_suite_dir'" "$LINENO" 5 1421 1422# Can we diff with `/dev/null'? DU 5.0 refuses. 1423if diff /dev/null /dev/null >/dev/null 2>&1; then 1424 at_devnull=/dev/null 1425else 1426 at_devnull=$at_suite_dir/devnull 1427 >"$at_devnull" 1428fi 1429 1430# Use `diff -u' when possible. 1431if at_diff=`diff -u "$at_devnull" "$at_devnull" 2>&1` && test -z "$at_diff" 1432then 1433 at_diff='diff -u' 1434else 1435 at_diff=diff 1436fi 1437 1438# Get the last needed group. 1439for at_group in : $at_groups; do :; done 1440 1441# Extract the start and end lines of each test group at the tail 1442# of this file 1443awk ' 1444BEGIN { FS="" } 1445/^#AT_START_/ { 1446 start = NR 1447} 1448/^#AT_STOP_/ { 1449 test = substr ($ 0, 10) 1450 print "at_sed" test "=\"1," start "d;" (NR-1) "q\"" 1451 if (test == "'"$at_group"'") exit 1452}' "$at_myself" > "$at_suite_dir/at-source-lines" && 1453. "$at_suite_dir/at-source-lines" || 1454 as_fn_error $? "cannot create test line number cache" "$LINENO" 5 1455rm -f "$at_suite_dir/at-source-lines" 1456 1457# Set number of jobs for `-j'; avoid more jobs than test groups. 1458set X $at_groups; shift; at_max_jobs=$# 1459if test $at_max_jobs -eq 0; then 1460 at_jobs=1 1461fi 1462if test $at_jobs -ne 1 && 1463 { test $at_jobs -eq 0 || test $at_jobs -gt $at_max_jobs; }; then 1464 at_jobs=$at_max_jobs 1465fi 1466 1467# If parallel mode, don't output banners, don't split summary lines. 1468if test $at_jobs -ne 1; then 1469 at_print_banners=false 1470 at_quiet=: 1471fi 1472 1473# Set up helper dirs. 1474rm -rf "$at_helper_dir" && 1475mkdir "$at_helper_dir" && 1476cd "$at_helper_dir" && 1477{ test -z "$at_groups" || mkdir $at_groups; } || 1478as_fn_error $? "testsuite directory setup failed" "$LINENO" 5 1479 1480# Functions for running a test group. We leave the actual 1481# test group execution outside of a shell function in order 1482# to avoid hitting zsh 4.x exit status bugs. 1483 1484# at_fn_group_prepare 1485# ------------------- 1486# Prepare for running a test group. 1487at_fn_group_prepare () 1488{ 1489 # The directory for additional per-group helper files. 1490 at_job_dir=$at_helper_dir/$at_group 1491 # The file containing the location of the last AT_CHECK. 1492 at_check_line_file=$at_job_dir/check-line 1493 # The file containing the exit status of the last command. 1494 at_status_file=$at_job_dir/status 1495 # The files containing the output of the tested commands. 1496 at_stdout=$at_job_dir/stdout 1497 at_stder1=$at_job_dir/stder1 1498 at_stderr=$at_job_dir/stderr 1499 # The file containing the code for a test group. 1500 at_test_source=$at_job_dir/test-source 1501 # The file containing dates. 1502 at_times_file=$at_job_dir/times 1503 1504 # Be sure to come back to the top test directory. 1505 cd "$at_suite_dir" 1506 1507 # Clearly separate the test groups when verbose. 1508 $at_first || $at_verbose echo 1509 1510 at_group_normalized=$at_group 1511 1512 eval 'while :; do 1513 case $at_group_normalized in #( 1514 '"$at_format"'*) break;; 1515 esac 1516 at_group_normalized=0$at_group_normalized 1517 done' 1518 1519 1520 # Create a fresh directory for the next test group, and enter. 1521 # If one already exists, the user may have invoked ./run from 1522 # within that directory; we remove the contents, but not the 1523 # directory itself, so that we aren't pulling the rug out from 1524 # under the shell's notion of the current directory. 1525 at_group_dir=$at_suite_dir/$at_group_normalized 1526 at_group_log=$at_group_dir/$as_me.log 1527 if test -d "$at_group_dir"; then 1528 find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx {} \; 1529 rm -fr "$at_group_dir"/* "$at_group_dir"/.[!.] "$at_group_dir"/.??* 1530fi || 1531 { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: test directory for $at_group_normalized could not be cleaned" >&5 1532$as_echo "$as_me: WARNING: test directory for $at_group_normalized could not be cleaned" >&2;} 1533 # Be tolerant if the above `rm' was not able to remove the directory. 1534 as_dir="$at_group_dir"; as_fn_mkdir_p 1535 1536 echo 0 > "$at_status_file" 1537 1538 # In verbose mode, append to the log file *and* show on 1539 # the standard output; in quiet mode only write to the log. 1540 if test -z "$at_verbose"; then 1541 at_tee_pipe='tee -a "$at_group_log"' 1542 else 1543 at_tee_pipe='cat >> "$at_group_log"' 1544 fi 1545} 1546 1547# at_fn_group_banner ORDINAL LINE DESC PAD [BANNER] 1548# ------------------------------------------------- 1549# Declare the test group ORDINAL, located at LINE with group description DESC, 1550# and residing under BANNER. Use PAD to align the status column. 1551at_fn_group_banner () 1552{ 1553 at_setup_line="$2" 1554 test -n "$5" && at_fn_banner $5 1555 at_desc="$3" 1556 case $1 in 1557 [0-9]) at_desc_line=" $1: ";; 1558 [0-9][0-9]) at_desc_line=" $1: " ;; 1559 *) at_desc_line="$1: " ;; 1560 esac 1561 as_fn_append at_desc_line "$3$4" 1562 $at_quiet $as_echo_n "$at_desc_line" 1563 echo "# -*- compilation -*-" >> "$at_group_log" 1564} 1565 1566# at_fn_group_postprocess 1567# ----------------------- 1568# Perform cleanup after running a test group. 1569at_fn_group_postprocess () 1570{ 1571 # Be sure to come back to the suite directory, in particular 1572 # since below we might `rm' the group directory we are in currently. 1573 cd "$at_suite_dir" 1574 1575 if test ! -f "$at_check_line_file"; then 1576 sed "s/^ */$as_me: WARNING: /" <<_ATEOF 1577 A failure happened in a test group before any test could be 1578 run. This means that test suite is improperly designed. Please 1579 report this failure to <asamardzic@gnu.org>. 1580_ATEOF 1581 $as_echo "$at_setup_line" >"$at_check_line_file" 1582 at_status=99 1583 fi 1584 $at_verbose $as_echo_n "$at_group. $at_setup_line: " 1585 $as_echo_n "$at_group. $at_setup_line: " >> "$at_group_log" 1586 case $at_xfail:$at_status in 1587 yes:0) 1588 at_msg="UNEXPECTED PASS" 1589 at_res=xpass 1590 at_errexit=$at_errexit_p 1591 at_color=$at_red 1592 ;; 1593 no:0) 1594 at_msg="ok" 1595 at_res=pass 1596 at_errexit=false 1597 at_color=$at_grn 1598 ;; 1599 *:77) 1600 at_msg='skipped ('`cat "$at_check_line_file"`')' 1601 at_res=skip 1602 at_errexit=false 1603 at_color=$at_blu 1604 ;; 1605 no:* | *:99) 1606 at_msg='FAILED ('`cat "$at_check_line_file"`')' 1607 at_res=fail 1608 at_errexit=$at_errexit_p 1609 at_color=$at_red 1610 ;; 1611 yes:*) 1612 at_msg='expected failure ('`cat "$at_check_line_file"`')' 1613 at_res=xfail 1614 at_errexit=false 1615 at_color=$at_lgn 1616 ;; 1617 esac 1618 echo "$at_res" > "$at_job_dir/$at_res" 1619 # In parallel mode, output the summary line only afterwards. 1620 if test $at_jobs -ne 1 && test -n "$at_verbose"; then 1621 $as_echo "$at_desc_line $at_color$at_msg$at_std" 1622 else 1623 # Make sure there is a separator even with long titles. 1624 $as_echo " $at_color$at_msg$at_std" 1625 fi 1626 at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg" 1627 case $at_status in 1628 0|77) 1629 # $at_times_file is only available if the group succeeded. 1630 # We're not including the group log, so the success message 1631 # is written in the global log separately. But we also 1632 # write to the group log in case they're using -d. 1633 if test -f "$at_times_file"; then 1634 at_log_msg="$at_log_msg ("`sed 1d "$at_times_file"`')' 1635 rm -f "$at_times_file" 1636 fi 1637 $as_echo "$at_log_msg" >> "$at_group_log" 1638 $as_echo "$at_log_msg" >&5 1639 1640 # Cleanup the group directory, unless the user wants the files 1641 # or the success was unexpected. 1642 if $at_debug_p || test $at_res = xpass; then 1643 at_fn_create_debugging_script 1644 if test $at_res = xpass && $at_errexit; then 1645 echo stop > "$at_stop_file" 1646 fi 1647 else 1648 if test -d "$at_group_dir"; then 1649 find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \; 1650 rm -fr "$at_group_dir" 1651 fi 1652 rm -f "$at_test_source" 1653 fi 1654 ;; 1655 *) 1656 # Upon failure, include the log into the testsuite's global 1657 # log. The failure message is written in the group log. It 1658 # is later included in the global log. 1659 $as_echo "$at_log_msg" >> "$at_group_log" 1660 1661 # Upon failure, keep the group directory for autopsy, and create 1662 # the debugging script. With -e, do not start any further tests. 1663 at_fn_create_debugging_script 1664 if $at_errexit; then 1665 echo stop > "$at_stop_file" 1666 fi 1667 ;; 1668 esac 1669} 1670 1671 1672## ------------ ## 1673## Driver loop. ## 1674## ------------ ## 1675 1676 1677if (set -m && set +m && set +b) >/dev/null 2>&1; then 1678 set +b 1679 at_job_control_on='set -m' at_job_control_off='set +m' at_job_group=- 1680else 1681 at_job_control_on=: at_job_control_off=: at_job_group= 1682fi 1683 1684for at_signal in 1 2 15; do 1685 trap 'set +x; set +e 1686 $at_job_control_off 1687 at_signal='"$at_signal"' 1688 echo stop > "$at_stop_file" 1689 trap "" $at_signal 1690 at_pgids= 1691 for at_pgid in `jobs -p 2>/dev/null`; do 1692 at_pgids="$at_pgids $at_job_group$at_pgid" 1693 done 1694 test -z "$at_pgids" || kill -$at_signal $at_pgids 2>/dev/null 1695 wait 1696 if test "$at_jobs" -eq 1 || test -z "$at_verbose"; then 1697 echo >&2 1698 fi 1699 at_signame=`kill -l $at_signal 2>&1 || echo $at_signal` 1700 set x $at_signame 1701 test 0 -gt 2 && at_signame=$at_signal 1702 { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: caught signal $at_signame, bailing out" >&5 1703$as_echo "$as_me: WARNING: caught signal $at_signame, bailing out" >&2;} 1704 as_fn_arith 128 + $at_signal && exit_status=$as_val 1705 as_fn_exit $exit_status' $at_signal 1706done 1707 1708rm -f "$at_stop_file" 1709at_first=: 1710 1711if test $at_jobs -ne 1 && 1712 rm -f "$at_job_fifo" && 1713 test -n "$at_job_group" && 1714 ( mkfifo "$at_job_fifo" && trap 'exit 1' PIPE STOP TSTP ) 2>/dev/null 1715then 1716 # FIFO job dispatcher. 1717 1718 trap 'at_pids= 1719 for at_pid in `jobs -p`; do 1720 at_pids="$at_pids $at_job_group$at_pid" 1721 done 1722 if test -n "$at_pids"; then 1723 at_sig=TSTP 1724 test "${TMOUT+set}" = set && at_sig=STOP 1725 kill -$at_sig $at_pids 2>/dev/null 1726 fi 1727 kill -STOP $$ 1728 test -z "$at_pids" || kill -CONT $at_pids 2>/dev/null' TSTP 1729 1730 echo 1731 # Turn jobs into a list of numbers, starting from 1. 1732 at_joblist=`$as_echo "$at_groups" | sed -n 1,${at_jobs}p` 1733 1734 set X $at_joblist 1735 shift 1736 for at_group in $at_groups; do 1737 $at_job_control_on 2>/dev/null 1738 ( 1739 # Start one test group. 1740 $at_job_control_off 1741 if $at_first; then 1742 exec 7>"$at_job_fifo" 1743 else 1744 exec 6<&- 1745 fi 1746 trap 'set +x; set +e 1747 trap "" PIPE 1748 echo stop > "$at_stop_file" 1749 echo >&7 1750 as_fn_exit 141' PIPE 1751 at_fn_group_prepare 1752 if cd "$at_group_dir" && 1753 at_fn_test $at_group && 1754 . "$at_test_source" 1755 then :; else 1756 { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5 1757$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;} 1758 at_failed=: 1759 fi 1760 at_fn_group_postprocess 1761 echo >&7 1762 ) & 1763 $at_job_control_off 1764 if $at_first; then 1765 at_first=false 1766 exec 6<"$at_job_fifo" 7>"$at_job_fifo" 1767 fi 1768 shift # Consume one token. 1769 if test $# -gt 0; then :; else 1770 read at_token <&6 || break 1771 set x $* 1772 fi 1773 test -f "$at_stop_file" && break 1774 done 1775 exec 7>&- 1776 # Read back the remaining ($at_jobs - 1) tokens. 1777 set X $at_joblist 1778 shift 1779 if test $# -gt 0; then 1780 shift 1781 for at_job 1782 do 1783 read at_token 1784 done <&6 1785 fi 1786 exec 6<&- 1787 wait 1788else 1789 # Run serially, avoid forks and other potential surprises. 1790 for at_group in $at_groups; do 1791 at_fn_group_prepare 1792 if cd "$at_group_dir" && 1793 at_fn_test $at_group && 1794 . "$at_test_source"; then :; else 1795 { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5 1796$as_echo "$as_me: WARNING: unable to parse test group: $at_group" >&2;} 1797 at_failed=: 1798 fi 1799 at_fn_group_postprocess 1800 test -f "$at_stop_file" && break 1801 at_first=false 1802 done 1803fi 1804 1805# Wrap up the test suite with summary statistics. 1806cd "$at_helper_dir" 1807 1808# Use ?..???? when the list must remain sorted, the faster * otherwise. 1809at_pass_list=`for f in */pass; do echo $f; done | sed '/\*/d; s,/pass,,'` 1810at_skip_list=`for f in */skip; do echo $f; done | sed '/\*/d; s,/skip,,'` 1811at_xfail_list=`for f in */xfail; do echo $f; done | sed '/\*/d; s,/xfail,,'` 1812at_xpass_list=`for f in ?/xpass ??/xpass ???/xpass ????/xpass; do 1813 echo $f; done | sed '/?/d; s,/xpass,,'` 1814at_fail_list=`for f in ?/fail ??/fail ???/fail ????/fail; do 1815 echo $f; done | sed '/?/d; s,/fail,,'` 1816 1817set X $at_pass_list $at_xpass_list $at_xfail_list $at_fail_list $at_skip_list 1818shift; at_group_count=$# 1819set X $at_xpass_list; shift; at_xpass_count=$#; at_xpass_list=$* 1820set X $at_xfail_list; shift; at_xfail_count=$# 1821set X $at_fail_list; shift; at_fail_count=$#; at_fail_list=$* 1822set X $at_skip_list; shift; at_skip_count=$# 1823 1824as_fn_arith $at_group_count - $at_skip_count && at_run_count=$as_val 1825as_fn_arith $at_xpass_count + $at_fail_count && at_unexpected_count=$as_val 1826as_fn_arith $at_xfail_count + $at_fail_count && at_total_fail_count=$as_val 1827 1828# Back to the top directory. 1829cd "$at_dir" 1830rm -rf "$at_helper_dir" 1831 1832# Compute the duration of the suite. 1833at_stop_date=`date` 1834at_stop_time=`date +%s 2>/dev/null` 1835$as_echo "$as_me: ending at: $at_stop_date" >&5 1836case $at_start_time,$at_stop_time in 1837 [0-9]*,[0-9]*) 1838 as_fn_arith $at_stop_time - $at_start_time && at_duration_s=$as_val 1839 as_fn_arith $at_duration_s / 60 && at_duration_m=$as_val 1840 as_fn_arith $at_duration_m / 60 && at_duration_h=$as_val 1841 as_fn_arith $at_duration_s % 60 && at_duration_s=$as_val 1842 as_fn_arith $at_duration_m % 60 && at_duration_m=$as_val 1843 at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s" 1844 $as_echo "$as_me: test suite duration: $at_duration" >&5 1845 ;; 1846esac 1847 1848echo 1849$as_echo "## ------------- ## 1850## Test results. ## 1851## ------------- ##" 1852echo 1853{ 1854 echo 1855 $as_echo "## ------------- ## 1856## Test results. ## 1857## ------------- ##" 1858 echo 1859} >&5 1860 1861if test $at_run_count = 1; then 1862 at_result="1 test" 1863 at_were=was 1864else 1865 at_result="$at_run_count tests" 1866 at_were=were 1867fi 1868if $at_errexit_p && test $at_unexpected_count != 0; then 1869 if test $at_xpass_count = 1; then 1870 at_result="$at_result $at_were run, one passed" 1871 else 1872 at_result="$at_result $at_were run, one failed" 1873 fi 1874 at_result="$at_result unexpectedly and inhibited subsequent tests." 1875 at_color=$at_red 1876else 1877 # Don't you just love exponential explosion of the number of cases? 1878 at_color=$at_red 1879 case $at_xpass_count:$at_fail_count:$at_xfail_count in 1880 # So far, so good. 1881 0:0:0) at_result="$at_result $at_were successful." at_color=$at_grn ;; 1882 0:0:*) at_result="$at_result behaved as expected." at_color=$at_lgn ;; 1883 1884 # Some unexpected failures 1885 0:*:0) at_result="$at_result $at_were run, 1886$at_fail_count failed unexpectedly." ;; 1887 1888 # Some failures, both expected and unexpected 1889 0:*:1) at_result="$at_result $at_were run, 1890$at_total_fail_count failed ($at_xfail_count expected failure)." ;; 1891 0:*:*) at_result="$at_result $at_were run, 1892$at_total_fail_count failed ($at_xfail_count expected failures)." ;; 1893 1894 # No unexpected failures, but some xpasses 1895 *:0:*) at_result="$at_result $at_were run, 1896$at_xpass_count passed unexpectedly." ;; 1897 1898 # No expected failures, but failures and xpasses 1899 *:1:0) at_result="$at_result $at_were run, 1900$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;; 1901 *:*:0) at_result="$at_result $at_were run, 1902$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;; 1903 1904 # All of them. 1905 *:*:1) at_result="$at_result $at_were run, 1906$at_xpass_count passed unexpectedly, 1907$at_total_fail_count failed ($at_xfail_count expected failure)." ;; 1908 *:*:*) at_result="$at_result $at_were run, 1909$at_xpass_count passed unexpectedly, 1910$at_total_fail_count failed ($at_xfail_count expected failures)." ;; 1911 esac 1912 1913 if test $at_skip_count = 0 && test $at_run_count -gt 1; then 1914 at_result="All $at_result" 1915 fi 1916fi 1917 1918# Now put skips in the mix. 1919case $at_skip_count in 1920 0) ;; 1921 1) at_result="$at_result 19221 test was skipped." ;; 1923 *) at_result="$at_result 1924$at_skip_count tests were skipped." ;; 1925esac 1926 1927if test $at_unexpected_count = 0; then 1928 echo "$at_color$at_result$at_std" 1929 echo "$at_result" >&5 1930else 1931 echo "${at_color}ERROR: $at_result$at_std" >&2 1932 echo "ERROR: $at_result" >&5 1933 { 1934 echo 1935 $as_echo "## ------------------------ ## 1936## Summary of the failures. ## 1937## ------------------------ ##" 1938 1939 # Summary of failed and skipped tests. 1940 if test $at_fail_count != 0; then 1941 echo "Failed tests:" 1942 $SHELL "$at_myself" $at_fail_list --list 1943 echo 1944 fi 1945 if test $at_skip_count != 0; then 1946 echo "Skipped tests:" 1947 $SHELL "$at_myself" $at_skip_list --list 1948 echo 1949 fi 1950 if test $at_xpass_count != 0; then 1951 echo "Unexpected passes:" 1952 $SHELL "$at_myself" $at_xpass_list --list 1953 echo 1954 fi 1955 if test $at_fail_count != 0; then 1956 $as_echo "## ---------------------- ## 1957## Detailed failed tests. ## 1958## ---------------------- ##" 1959 echo 1960 for at_group in $at_fail_list 1961 do 1962 at_group_normalized=$at_group 1963 1964 eval 'while :; do 1965 case $at_group_normalized in #( 1966 '"$at_format"'*) break;; 1967 esac 1968 at_group_normalized=0$at_group_normalized 1969 done' 1970 1971 cat "$at_suite_dir/$at_group_normalized/$as_me.log" 1972 echo 1973 done 1974 echo 1975 fi 1976 if test -n "$at_top_srcdir"; then 1977 sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX 1978## ${at_top_build_prefix}config.log ## 1979_ASBOX 1980 sed 's/^/| /' ${at_top_build_prefix}config.log 1981 echo 1982 fi 1983 } >&5 1984 1985 sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX 1986## $as_me.log was created. ## 1987_ASBOX 1988 1989 echo 1990 if $at_debug_p; then 1991 at_msg='per-test log files' 1992 else 1993 at_msg="\`${at_testdir+${at_testdir}/}$as_me.log'" 1994 fi 1995 $as_echo "Please send $at_msg and all information you think might help: 1996 1997 To: <asamardzic@gnu.org> 1998 Subject: [libmatheval 1.1.11] $as_me: $at_fail_list${at_fail_list:+ failed${at_xpass_list:+, }}$at_xpass_list${at_xpass_list:+ passed unexpectedly} 1999 2000You may investigate any problem if you feel able to do so, in which 2001case the test suite provides a good starting point. Its output may 2002be found below \`${at_testdir+${at_testdir}/}$as_me.dir'. 2003" 2004 exit 1 2005fi 2006 2007exit 0 2008 2009## ------------- ## 2010## Actual tests. ## 2011## ------------- ## 2012#AT_START_1 2013at_fn_group_banner 1 'basics.at:24' \ 2014 "Check basics." " " 1 2015at_xfail=no 2016( 2017 $as_echo "1. $at_setup_line: testing $at_desc ..." 2018 $at_traceon 2019 2020 2021cat >basics.scm <<'_ATEOF' 2022 2023(define f (evaluator-create "x+2")) 2024(display (evaluator-get-string f)) 2025_ATEOF 2026 2027 2028{ set +x 2029$as_echo "$at_srcdir/basics.at:32: matheval.sh basics.scm" 2030at_fn_check_prepare_trace "basics.at:32" 2031( $at_check_trace; matheval.sh basics.scm 2032) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2033at_status=$? at_failed=false 2034$at_check_filter 2035echo stderr:; cat "$at_stderr" 2036echo >>"$at_stdout"; $as_echo "(x+2)" | \ 2037 $at_diff - "$at_stdout" || at_failed=: 2038at_fn_check_skip $at_status "$at_srcdir/basics.at:32" 2039$at_failed && at_fn_log_failure 2040$at_traceon; } 2041 2042 2043cat >basics.scm <<'_ATEOF' 2044 2045(define f (evaluator-create "x^3-4*y+4")) 2046(display (evaluator-evaluate f 1 '("x") '(1))) 2047_ATEOF 2048 2049 2050{ set +x 2051$as_echo "$at_srcdir/basics.at:40: matheval.sh basics.scm" 2052at_fn_check_prepare_trace "basics.at:40" 2053( $at_check_trace; matheval.sh basics.scm 2054) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2055at_status=$? at_failed=false 2056$at_check_filter 2057echo stderr:; cat "$at_stderr" 2058echo >>"$at_stdout"; $as_echo "5.0" | \ 2059 $at_diff - "$at_stdout" || at_failed=: 2060at_fn_check_skip $at_status "$at_srcdir/basics.at:40" 2061$at_failed && at_fn_log_failure 2062$at_traceon; } 2063 2064 2065cat >basics.scm <<'_ATEOF' 2066 2067(define f (evaluator-create "x+2")) 2068(define f_prim (evaluator-derivative f "x")) 2069(display (evaluator-get-string f_prim)) 2070_ATEOF 2071 2072 2073{ set +x 2074$as_echo "$at_srcdir/basics.at:49: matheval.sh basics.scm" 2075at_fn_check_prepare_trace "basics.at:49" 2076( $at_check_trace; matheval.sh basics.scm 2077) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2078at_status=$? at_failed=false 2079$at_check_filter 2080echo stderr:; cat "$at_stderr" 2081echo >>"$at_stdout"; $as_echo "1" | \ 2082 $at_diff - "$at_stdout" || at_failed=: 2083at_fn_check_skip $at_status "$at_srcdir/basics.at:49" 2084$at_failed && at_fn_log_failure 2085$at_traceon; } 2086 2087 2088cat >basics.scm <<'_ATEOF' 2089 2090(define f (evaluator-create "sin(pi_2)")) 2091(display (evaluator-evaluate-x f 0)) 2092_ATEOF 2093 2094 2095{ set +x 2096$as_echo "$at_srcdir/basics.at:57: matheval.sh basics.scm" 2097at_fn_check_prepare_trace "basics.at:57" 2098( $at_check_trace; matheval.sh basics.scm 2099) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2100at_status=$? at_failed=false 2101$at_check_filter 2102echo stderr:; cat "$at_stderr" 2103echo >>"$at_stdout"; $as_echo "1.0" | \ 2104 $at_diff - "$at_stdout" || at_failed=: 2105at_fn_check_skip $at_status "$at_srcdir/basics.at:57" 2106$at_failed && at_fn_log_failure 2107$at_traceon; } 2108 2109 2110cat >basics.scm <<'_ATEOF' 2111 2112(define f (evaluator-create "exp(ln10)")) 2113(display (evaluator-evaluate-x f 0)) 2114_ATEOF 2115 2116 2117{ set +x 2118$as_echo "$at_srcdir/basics.at:65: matheval.sh basics.scm" 2119at_fn_check_prepare_trace "basics.at:65" 2120( $at_check_trace; matheval.sh basics.scm 2121) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2122at_status=$? at_failed=false 2123$at_check_filter 2124echo stderr:; cat "$at_stderr" 2125echo >>"$at_stdout"; $as_echo "10.0" | \ 2126 $at_diff - "$at_stdout" || at_failed=: 2127at_fn_check_skip $at_status "$at_srcdir/basics.at:65" 2128$at_failed && at_fn_log_failure 2129$at_traceon; } 2130 2131 2132cat >basics.scm <<'_ATEOF' 2133 2134(define f (evaluator-create "sin(x)*x^3")) 2135(display (evaluator-evaluate-x f 0.7)) 2136_ATEOF 2137 2138 2139{ set +x 2140$as_echo "$at_srcdir/basics.at:73: matheval.sh basics.scm" 2141at_fn_check_prepare_trace "basics.at:73" 2142( $at_check_trace; matheval.sh basics.scm 2143) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2144at_status=$? at_failed=false 2145$at_check_filter 2146echo stderr:; cat "$at_stderr" 2147echo >>"$at_stdout"; $as_echo "0.220966666722528" | \ 2148 $at_diff - "$at_stdout" || at_failed=: 2149at_fn_check_skip $at_status "$at_srcdir/basics.at:73" 2150$at_failed && at_fn_log_failure 2151$at_traceon; } 2152 2153 2154cat >basics.scm <<'_ATEOF' 2155 2156(define f (evaluator-create "y/3+log(x)")) 2157(display (evaluator-evaluate-x-y f 0.4 -0.7)) 2158_ATEOF 2159 2160 2161{ set +x 2162$as_echo "$at_srcdir/basics.at:81: matheval.sh basics.scm" 2163at_fn_check_prepare_trace "basics.at:81" 2164( $at_check_trace; matheval.sh basics.scm 2165) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2166at_status=$? at_failed=false 2167$at_check_filter 2168echo stderr:; cat "$at_stderr" 2169echo >>"$at_stdout"; $as_echo "-1.14962406520749" | \ 2170 $at_diff - "$at_stdout" || at_failed=: 2171at_fn_check_skip $at_status "$at_srcdir/basics.at:81" 2172$at_failed && at_fn_log_failure 2173$at_traceon; } 2174 2175 2176cat >basics.scm <<'_ATEOF' 2177 2178(define f (evaluator-create "x*sin(y)+0.6*tan(z)")) 2179(display (evaluator-evaluate-x-y-z f 11.2 0.41 -0.66)) 2180_ATEOF 2181 2182 2183{ set +x 2184$as_echo "$at_srcdir/basics.at:89: matheval.sh basics.scm" 2185at_fn_check_prepare_trace "basics.at:89" 2186( $at_check_trace; matheval.sh basics.scm 2187) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2188at_status=$? at_failed=false 2189$at_check_filter 2190echo stderr:; cat "$at_stderr" 2191echo >>"$at_stdout"; $as_echo "3.99876152571934" | \ 2192 $at_diff - "$at_stdout" || at_failed=: 2193at_fn_check_skip $at_status "$at_srcdir/basics.at:89" 2194$at_failed && at_fn_log_failure 2195$at_traceon; } 2196 2197 2198cat >basics.scm <<'_ATEOF' 2199 2200(define f (evaluator-create "tan(x)/cos(x)")) 2201(define f_prim (evaluator-derivative-x f)) 2202(display (evaluator-get-string f_prim)) 2203_ATEOF 2204 2205 2206{ set +x 2207$as_echo "$at_srcdir/basics.at:98: matheval.sh basics.scm" 2208at_fn_check_prepare_trace "basics.at:98" 2209( $at_check_trace; matheval.sh basics.scm 2210) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2211at_status=$? at_failed=false 2212$at_check_filter 2213echo stderr:; cat "$at_stderr" 2214echo >>"$at_stdout"; $as_echo "((((1/(cos(x)^2))*cos(x))-(tan(x)*(-sin(x))))/(cos(x)^2))" | \ 2215 $at_diff - "$at_stdout" || at_failed=: 2216at_fn_check_skip $at_status "$at_srcdir/basics.at:98" 2217$at_failed && at_fn_log_failure 2218$at_traceon; } 2219 2220 2221cat >basics.scm <<'_ATEOF' 2222 2223(define f (evaluator-create "x+0.7*log(y)")) 2224(define f_prim (evaluator-derivative-y f)) 2225(display (evaluator-get-string f_prim)) 2226_ATEOF 2227 2228 2229{ set +x 2230$as_echo "$at_srcdir/basics.at:107: matheval.sh basics.scm" 2231at_fn_check_prepare_trace "basics.at:107" 2232( $at_check_trace; matheval.sh basics.scm 2233) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2234at_status=$? at_failed=false 2235$at_check_filter 2236echo stderr:; cat "$at_stderr" 2237echo >>"$at_stdout"; $as_echo "((0*log(y))+(0.7*(1/y)))" | \ 2238 $at_diff - "$at_stdout" || at_failed=: 2239at_fn_check_skip $at_status "$at_srcdir/basics.at:107" 2240$at_failed && at_fn_log_failure 2241$at_traceon; } 2242 2243 2244cat >basics.scm <<'_ATEOF' 2245 2246(define f (evaluator-create "x*z+y^3/z^2")) 2247(define f_prim (evaluator-derivative-z f)) 2248(display (evaluator-get-string f_prim)) 2249_ATEOF 2250 2251 2252{ set +x 2253$as_echo "$at_srcdir/basics.at:116: matheval.sh basics.scm" 2254at_fn_check_prepare_trace "basics.at:116" 2255( $at_check_trace; matheval.sh basics.scm 2256) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2257at_status=$? at_failed=false 2258$at_check_filter 2259echo stderr:; cat "$at_stderr" 2260echo >>"$at_stdout"; $as_echo "(((0*z)+x)+((((0*(y^2))*(z^2))-((y^3)*(2*z)))/((z^2)^2)))" | \ 2261 $at_diff - "$at_stdout" || at_failed=: 2262at_fn_check_skip $at_status "$at_srcdir/basics.at:116" 2263$at_failed && at_fn_log_failure 2264$at_traceon; } 2265 2266 2267 set +x 2268 $at_times_p && times >"$at_times_file" 2269) 5>&1 2>&1 7>&- | eval $at_tee_pipe 2270read at_status <"$at_status_file" 2271#AT_STOP_1 2272#AT_START_2 2273at_fn_group_banner 2 'numbers.at:24' \ 2274 "Check numbers." " " 2 2275at_xfail=no 2276( 2277 $as_echo "2. $at_setup_line: testing $at_desc ..." 2278 $at_traceon 2279 2280 2281cat >number.scm <<'_ATEOF' 2282 2283(define f (evaluator-create "42")) 2284(display (evaluator-evaluate-x f 0)) 2285_ATEOF 2286 2287 2288{ set +x 2289$as_echo "$at_srcdir/numbers.at:32: matheval.sh number.scm" 2290at_fn_check_prepare_trace "numbers.at:32" 2291( $at_check_trace; matheval.sh number.scm 2292) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2293at_status=$? at_failed=false 2294$at_check_filter 2295echo stderr:; cat "$at_stderr" 2296echo >>"$at_stdout"; $as_echo "42.0" | \ 2297 $at_diff - "$at_stdout" || at_failed=: 2298at_fn_check_skip $at_status "$at_srcdir/numbers.at:32" 2299$at_failed && at_fn_log_failure 2300$at_traceon; } 2301 2302 2303cat >number.scm <<'_ATEOF' 2304 2305(define f (evaluator-create "-2")) 2306(display (evaluator-evaluate-x f 0)) 2307_ATEOF 2308 2309 2310{ set +x 2311$as_echo "$at_srcdir/numbers.at:40: matheval.sh number.scm" 2312at_fn_check_prepare_trace "numbers.at:40" 2313( $at_check_trace; matheval.sh number.scm 2314) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2315at_status=$? at_failed=false 2316$at_check_filter 2317echo stderr:; cat "$at_stderr" 2318echo >>"$at_stdout"; $as_echo "-2.0" | \ 2319 $at_diff - "$at_stdout" || at_failed=: 2320at_fn_check_skip $at_status "$at_srcdir/numbers.at:40" 2321$at_failed && at_fn_log_failure 2322$at_traceon; } 2323 2324 2325cat >number.scm <<'_ATEOF' 2326 2327(define f (evaluator-create "2+2")) 2328(display (evaluator-evaluate-x f 0)) 2329_ATEOF 2330 2331 2332{ set +x 2333$as_echo "$at_srcdir/numbers.at:48: matheval.sh number.scm" 2334at_fn_check_prepare_trace "numbers.at:48" 2335( $at_check_trace; matheval.sh number.scm 2336) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2337at_status=$? at_failed=false 2338$at_check_filter 2339echo stderr:; cat "$at_stderr" 2340echo >>"$at_stdout"; $as_echo "4.0" | \ 2341 $at_diff - "$at_stdout" || at_failed=: 2342at_fn_check_skip $at_status "$at_srcdir/numbers.at:48" 2343$at_failed && at_fn_log_failure 2344$at_traceon; } 2345 2346 2347cat >number.scm <<'_ATEOF' 2348 2349(define f (evaluator-create "3^(-0.4)")) 2350(display (evaluator-evaluate-x f 0)) 2351_ATEOF 2352 2353 2354{ set +x 2355$as_echo "$at_srcdir/numbers.at:56: matheval.sh number.scm" 2356at_fn_check_prepare_trace "numbers.at:56" 2357( $at_check_trace; matheval.sh number.scm 2358) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2359at_status=$? at_failed=false 2360$at_check_filter 2361echo stderr:; cat "$at_stderr" 2362echo >>"$at_stdout"; $as_echo "0.644394014977254" | \ 2363 $at_diff - "$at_stdout" || at_failed=: 2364at_fn_check_skip $at_status "$at_srcdir/numbers.at:56" 2365$at_failed && at_fn_log_failure 2366$at_traceon; } 2367 2368 2369 set +x 2370 $at_times_p && times >"$at_times_file" 2371) 5>&1 2>&1 7>&- | eval $at_tee_pipe 2372read at_status <"$at_status_file" 2373#AT_STOP_2 2374#AT_START_3 2375at_fn_group_banner 3 'constants.at:24' \ 2376 "Check constants." " " 3 2377at_xfail=no 2378( 2379 $as_echo "3. $at_setup_line: testing $at_desc ..." 2380 $at_traceon 2381 2382 2383cat >constant.scm <<'_ATEOF' 2384 2385(define f (evaluator-create "e")) 2386(display (evaluator-evaluate-x f 0)) 2387_ATEOF 2388 2389 2390{ set +x 2391$as_echo "$at_srcdir/constants.at:32: matheval.sh constant.scm" 2392at_fn_check_prepare_trace "constants.at:32" 2393( $at_check_trace; matheval.sh constant.scm 2394) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2395at_status=$? at_failed=false 2396$at_check_filter 2397echo stderr:; cat "$at_stderr" 2398echo >>"$at_stdout"; $as_echo "2.71828182845905" | \ 2399 $at_diff - "$at_stdout" || at_failed=: 2400at_fn_check_skip $at_status "$at_srcdir/constants.at:32" 2401$at_failed && at_fn_log_failure 2402$at_traceon; } 2403 2404 2405cat >constant.scm <<'_ATEOF' 2406 2407(define f (evaluator-create "log2e")) 2408(display (evaluator-evaluate-x f 0)) 2409_ATEOF 2410 2411 2412{ set +x 2413$as_echo "$at_srcdir/constants.at:40: matheval.sh constant.scm" 2414at_fn_check_prepare_trace "constants.at:40" 2415( $at_check_trace; matheval.sh constant.scm 2416) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2417at_status=$? at_failed=false 2418$at_check_filter 2419echo stderr:; cat "$at_stderr" 2420echo >>"$at_stdout"; $as_echo "1.44269504088896" | \ 2421 $at_diff - "$at_stdout" || at_failed=: 2422at_fn_check_skip $at_status "$at_srcdir/constants.at:40" 2423$at_failed && at_fn_log_failure 2424$at_traceon; } 2425 2426 2427cat >constant.scm <<'_ATEOF' 2428 2429(define f (evaluator-create "log10e")) 2430(display (evaluator-evaluate-x f 0)) 2431_ATEOF 2432 2433 2434{ set +x 2435$as_echo "$at_srcdir/constants.at:48: matheval.sh constant.scm" 2436at_fn_check_prepare_trace "constants.at:48" 2437( $at_check_trace; matheval.sh constant.scm 2438) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2439at_status=$? at_failed=false 2440$at_check_filter 2441echo stderr:; cat "$at_stderr" 2442echo >>"$at_stdout"; $as_echo "0.434294481903252" | \ 2443 $at_diff - "$at_stdout" || at_failed=: 2444at_fn_check_skip $at_status "$at_srcdir/constants.at:48" 2445$at_failed && at_fn_log_failure 2446$at_traceon; } 2447 2448 2449cat >constant.scm <<'_ATEOF' 2450 2451(define f (evaluator-create "ln2")) 2452(display (evaluator-evaluate-x f 0)) 2453_ATEOF 2454 2455 2456{ set +x 2457$as_echo "$at_srcdir/constants.at:56: matheval.sh constant.scm" 2458at_fn_check_prepare_trace "constants.at:56" 2459( $at_check_trace; matheval.sh constant.scm 2460) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2461at_status=$? at_failed=false 2462$at_check_filter 2463echo stderr:; cat "$at_stderr" 2464echo >>"$at_stdout"; $as_echo "0.693147180559945" | \ 2465 $at_diff - "$at_stdout" || at_failed=: 2466at_fn_check_skip $at_status "$at_srcdir/constants.at:56" 2467$at_failed && at_fn_log_failure 2468$at_traceon; } 2469 2470 2471cat >constant.scm <<'_ATEOF' 2472 2473(define f (evaluator-create "ln10")) 2474(display (evaluator-evaluate-x f 0)) 2475_ATEOF 2476 2477 2478{ set +x 2479$as_echo "$at_srcdir/constants.at:64: matheval.sh constant.scm" 2480at_fn_check_prepare_trace "constants.at:64" 2481( $at_check_trace; matheval.sh constant.scm 2482) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2483at_status=$? at_failed=false 2484$at_check_filter 2485echo stderr:; cat "$at_stderr" 2486echo >>"$at_stdout"; $as_echo "2.30258509299405" | \ 2487 $at_diff - "$at_stdout" || at_failed=: 2488at_fn_check_skip $at_status "$at_srcdir/constants.at:64" 2489$at_failed && at_fn_log_failure 2490$at_traceon; } 2491 2492 2493cat >constant.scm <<'_ATEOF' 2494 2495(define f (evaluator-create "pi")) 2496(display (evaluator-evaluate-x f 0)) 2497_ATEOF 2498 2499 2500{ set +x 2501$as_echo "$at_srcdir/constants.at:72: matheval.sh constant.scm" 2502at_fn_check_prepare_trace "constants.at:72" 2503( $at_check_trace; matheval.sh constant.scm 2504) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2505at_status=$? at_failed=false 2506$at_check_filter 2507echo stderr:; cat "$at_stderr" 2508echo >>"$at_stdout"; $as_echo "3.14159265358979" | \ 2509 $at_diff - "$at_stdout" || at_failed=: 2510at_fn_check_skip $at_status "$at_srcdir/constants.at:72" 2511$at_failed && at_fn_log_failure 2512$at_traceon; } 2513 2514 2515cat >constant.scm <<'_ATEOF' 2516 2517(define f (evaluator-create "pi_2")) 2518(display (evaluator-evaluate-x f 0)) 2519_ATEOF 2520 2521 2522{ set +x 2523$as_echo "$at_srcdir/constants.at:80: matheval.sh constant.scm" 2524at_fn_check_prepare_trace "constants.at:80" 2525( $at_check_trace; matheval.sh constant.scm 2526) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2527at_status=$? at_failed=false 2528$at_check_filter 2529echo stderr:; cat "$at_stderr" 2530echo >>"$at_stdout"; $as_echo "1.5707963267949" | \ 2531 $at_diff - "$at_stdout" || at_failed=: 2532at_fn_check_skip $at_status "$at_srcdir/constants.at:80" 2533$at_failed && at_fn_log_failure 2534$at_traceon; } 2535 2536 2537cat >constant.scm <<'_ATEOF' 2538 2539(define f (evaluator-create "pi_4")) 2540(display (evaluator-evaluate-x f 0)) 2541_ATEOF 2542 2543 2544{ set +x 2545$as_echo "$at_srcdir/constants.at:88: matheval.sh constant.scm" 2546at_fn_check_prepare_trace "constants.at:88" 2547( $at_check_trace; matheval.sh constant.scm 2548) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2549at_status=$? at_failed=false 2550$at_check_filter 2551echo stderr:; cat "$at_stderr" 2552echo >>"$at_stdout"; $as_echo "0.785398163397448" | \ 2553 $at_diff - "$at_stdout" || at_failed=: 2554at_fn_check_skip $at_status "$at_srcdir/constants.at:88" 2555$at_failed && at_fn_log_failure 2556$at_traceon; } 2557 2558 2559cat >constant.scm <<'_ATEOF' 2560 2561(define f (evaluator-create "1_pi")) 2562(display (evaluator-evaluate-x f 0)) 2563_ATEOF 2564 2565 2566{ set +x 2567$as_echo "$at_srcdir/constants.at:96: matheval.sh constant.scm" 2568at_fn_check_prepare_trace "constants.at:96" 2569( $at_check_trace; matheval.sh constant.scm 2570) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2571at_status=$? at_failed=false 2572$at_check_filter 2573echo stderr:; cat "$at_stderr" 2574echo >>"$at_stdout"; $as_echo "0.318309886183791" | \ 2575 $at_diff - "$at_stdout" || at_failed=: 2576at_fn_check_skip $at_status "$at_srcdir/constants.at:96" 2577$at_failed && at_fn_log_failure 2578$at_traceon; } 2579 2580 2581cat >constant.scm <<'_ATEOF' 2582 2583(define f (evaluator-create "2_pi")) 2584(display (evaluator-evaluate-x f 0)) 2585_ATEOF 2586 2587 2588{ set +x 2589$as_echo "$at_srcdir/constants.at:104: matheval.sh constant.scm" 2590at_fn_check_prepare_trace "constants.at:104" 2591( $at_check_trace; matheval.sh constant.scm 2592) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2593at_status=$? at_failed=false 2594$at_check_filter 2595echo stderr:; cat "$at_stderr" 2596echo >>"$at_stdout"; $as_echo "0.636619772367581" | \ 2597 $at_diff - "$at_stdout" || at_failed=: 2598at_fn_check_skip $at_status "$at_srcdir/constants.at:104" 2599$at_failed && at_fn_log_failure 2600$at_traceon; } 2601 2602 2603cat >constant.scm <<'_ATEOF' 2604 2605(define f (evaluator-create "2_sqrtpi")) 2606(display (evaluator-evaluate-x f 0)) 2607_ATEOF 2608 2609 2610{ set +x 2611$as_echo "$at_srcdir/constants.at:112: matheval.sh constant.scm" 2612at_fn_check_prepare_trace "constants.at:112" 2613( $at_check_trace; matheval.sh constant.scm 2614) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2615at_status=$? at_failed=false 2616$at_check_filter 2617echo stderr:; cat "$at_stderr" 2618echo >>"$at_stdout"; $as_echo "1.12837916709551" | \ 2619 $at_diff - "$at_stdout" || at_failed=: 2620at_fn_check_skip $at_status "$at_srcdir/constants.at:112" 2621$at_failed && at_fn_log_failure 2622$at_traceon; } 2623 2624 2625cat >constant.scm <<'_ATEOF' 2626 2627(define f (evaluator-create "sqrt2")) 2628(display (evaluator-evaluate-x f 0)) 2629_ATEOF 2630 2631 2632{ set +x 2633$as_echo "$at_srcdir/constants.at:120: matheval.sh constant.scm" 2634at_fn_check_prepare_trace "constants.at:120" 2635( $at_check_trace; matheval.sh constant.scm 2636) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2637at_status=$? at_failed=false 2638$at_check_filter 2639echo stderr:; cat "$at_stderr" 2640echo >>"$at_stdout"; $as_echo "1.4142135623731" | \ 2641 $at_diff - "$at_stdout" || at_failed=: 2642at_fn_check_skip $at_status "$at_srcdir/constants.at:120" 2643$at_failed && at_fn_log_failure 2644$at_traceon; } 2645 2646 2647cat >constant.scm <<'_ATEOF' 2648 2649(define f (evaluator-create "sqrt1_2")) 2650(display (evaluator-evaluate-x f 0)) 2651_ATEOF 2652 2653 2654{ set +x 2655$as_echo "$at_srcdir/constants.at:128: matheval.sh constant.scm" 2656at_fn_check_prepare_trace "constants.at:128" 2657( $at_check_trace; matheval.sh constant.scm 2658) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2659at_status=$? at_failed=false 2660$at_check_filter 2661echo stderr:; cat "$at_stderr" 2662echo >>"$at_stdout"; $as_echo "0.707106781186548" | \ 2663 $at_diff - "$at_stdout" || at_failed=: 2664at_fn_check_skip $at_status "$at_srcdir/constants.at:128" 2665$at_failed && at_fn_log_failure 2666$at_traceon; } 2667 2668 2669cat >constant.scm <<'_ATEOF' 2670 2671(define f (evaluator-create "e^ln10")) 2672(display (evaluator-evaluate-x f 0)) 2673_ATEOF 2674 2675 2676{ set +x 2677$as_echo "$at_srcdir/constants.at:136: matheval.sh constant.scm" 2678at_fn_check_prepare_trace "constants.at:136" 2679( $at_check_trace; matheval.sh constant.scm 2680) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2681at_status=$? at_failed=false 2682$at_check_filter 2683echo stderr:; cat "$at_stderr" 2684echo >>"$at_stdout"; $as_echo "10.0" | \ 2685 $at_diff - "$at_stdout" || at_failed=: 2686at_fn_check_skip $at_status "$at_srcdir/constants.at:136" 2687$at_failed && at_fn_log_failure 2688$at_traceon; } 2689 2690 2691cat >constant.scm <<'_ATEOF' 2692 2693(define f (evaluator-create "pi*1_pi")) 2694(display (evaluator-evaluate-x f 0)) 2695_ATEOF 2696 2697 2698{ set +x 2699$as_echo "$at_srcdir/constants.at:144: matheval.sh constant.scm" 2700at_fn_check_prepare_trace "constants.at:144" 2701( $at_check_trace; matheval.sh constant.scm 2702) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2703at_status=$? at_failed=false 2704$at_check_filter 2705echo stderr:; cat "$at_stderr" 2706echo >>"$at_stdout"; $as_echo "1.0" | \ 2707 $at_diff - "$at_stdout" || at_failed=: 2708at_fn_check_skip $at_status "$at_srcdir/constants.at:144" 2709$at_failed && at_fn_log_failure 2710$at_traceon; } 2711 2712 2713cat >constant.scm <<'_ATEOF' 2714 2715(define f (evaluator-create "sqrt2/sqrt1_2")) 2716(display (evaluator-evaluate-x f 0)) 2717_ATEOF 2718 2719 2720{ set +x 2721$as_echo "$at_srcdir/constants.at:152: matheval.sh constant.scm" 2722at_fn_check_prepare_trace "constants.at:152" 2723( $at_check_trace; matheval.sh constant.scm 2724) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2725at_status=$? at_failed=false 2726$at_check_filter 2727echo stderr:; cat "$at_stderr" 2728echo >>"$at_stdout"; $as_echo "2.0" | \ 2729 $at_diff - "$at_stdout" || at_failed=: 2730at_fn_check_skip $at_status "$at_srcdir/constants.at:152" 2731$at_failed && at_fn_log_failure 2732$at_traceon; } 2733 2734 2735 set +x 2736 $at_times_p && times >"$at_times_file" 2737) 5>&1 2>&1 7>&- | eval $at_tee_pipe 2738read at_status <"$at_status_file" 2739#AT_STOP_3 2740#AT_START_4 2741at_fn_group_banner 4 'variables.at:24' \ 2742 "Check variables." " " 4 2743at_xfail=no 2744( 2745 $as_echo "4. $at_setup_line: testing $at_desc ..." 2746 $at_traceon 2747 2748 2749cat >variable.scm <<'_ATEOF' 2750 2751(define f (evaluator-create "1/x")) 2752(display (evaluator-get-string f)) 2753_ATEOF 2754 2755 2756{ set +x 2757$as_echo "$at_srcdir/variables.at:32: matheval.sh variable.scm" 2758at_fn_check_prepare_trace "variables.at:32" 2759( $at_check_trace; matheval.sh variable.scm 2760) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2761at_status=$? at_failed=false 2762$at_check_filter 2763echo stderr:; cat "$at_stderr" 2764echo >>"$at_stdout"; $as_echo "(1/x)" | \ 2765 $at_diff - "$at_stdout" || at_failed=: 2766at_fn_check_skip $at_status "$at_srcdir/variables.at:32" 2767$at_failed && at_fn_log_failure 2768$at_traceon; } 2769 2770 2771cat >variable.scm <<'_ATEOF' 2772 2773(define f (evaluator-create "_222+5")) 2774(display (evaluator-evaluate f 1 '("_222") '(1))) 2775_ATEOF 2776 2777 2778{ set +x 2779$as_echo "$at_srcdir/variables.at:40: matheval.sh variable.scm" 2780at_fn_check_prepare_trace "variables.at:40" 2781( $at_check_trace; matheval.sh variable.scm 2782) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2783at_status=$? at_failed=false 2784$at_check_filter 2785echo stderr:; cat "$at_stderr" 2786echo >>"$at_stdout"; $as_echo "6.0" | \ 2787 $at_diff - "$at_stdout" || at_failed=: 2788at_fn_check_skip $at_status "$at_srcdir/variables.at:40" 2789$at_failed && at_fn_log_failure 2790$at_traceon; } 2791 2792 2793cat >variable.scm <<'_ATEOF' 2794 2795(define f (evaluator-create "a+2*aa+3*aaa^2")) 2796(display (evaluator-evaluate f 3 '("a" "aa" "aaa") '(1 2 3))) 2797_ATEOF 2798 2799 2800{ set +x 2801$as_echo "$at_srcdir/variables.at:48: matheval.sh variable.scm" 2802at_fn_check_prepare_trace "variables.at:48" 2803( $at_check_trace; matheval.sh variable.scm 2804) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2805at_status=$? at_failed=false 2806$at_check_filter 2807echo stderr:; cat "$at_stderr" 2808echo >>"$at_stdout"; $as_echo "32.0" | \ 2809 $at_diff - "$at_stdout" || at_failed=: 2810at_fn_check_skip $at_status "$at_srcdir/variables.at:48" 2811$at_failed && at_fn_log_failure 2812$at_traceon; } 2813 2814 2815cat >variable.scm <<'_ATEOF' 2816 2817(define f (evaluator-create "1")) 2818(display (evaluator-get-variables f)) 2819_ATEOF 2820 2821 2822{ set +x 2823$as_echo "$at_srcdir/variables.at:56: matheval.sh variable.scm" 2824at_fn_check_prepare_trace "variables.at:56" 2825( $at_check_trace; matheval.sh variable.scm 2826) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2827at_status=$? at_failed=false 2828$at_check_filter 2829echo stderr:; cat "$at_stderr" 2830echo >>"$at_stdout"; $as_echo "()" | \ 2831 $at_diff - "$at_stdout" || at_failed=: 2832at_fn_check_skip $at_status "$at_srcdir/variables.at:56" 2833$at_failed && at_fn_log_failure 2834$at_traceon; } 2835 2836 2837cat >variable.scm <<'_ATEOF' 2838 2839(define f (evaluator-create "x")) 2840(display (evaluator-get-variables f)) 2841_ATEOF 2842 2843 2844{ set +x 2845$as_echo "$at_srcdir/variables.at:64: matheval.sh variable.scm" 2846at_fn_check_prepare_trace "variables.at:64" 2847( $at_check_trace; matheval.sh variable.scm 2848) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2849at_status=$? at_failed=false 2850$at_check_filter 2851echo stderr:; cat "$at_stderr" 2852echo >>"$at_stdout"; $as_echo "(x)" | \ 2853 $at_diff - "$at_stdout" || at_failed=: 2854at_fn_check_skip $at_status "$at_srcdir/variables.at:64" 2855$at_failed && at_fn_log_failure 2856$at_traceon; } 2857 2858 2859cat >variable.scm <<'_ATEOF' 2860 2861(define f (evaluator-create "x+y")) 2862(display (evaluator-get-variables f)) 2863_ATEOF 2864 2865 2866{ set +x 2867$as_echo "$at_srcdir/variables.at:72: matheval.sh variable.scm" 2868at_fn_check_prepare_trace "variables.at:72" 2869( $at_check_trace; matheval.sh variable.scm 2870) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2871at_status=$? at_failed=false 2872$at_check_filter 2873echo stderr:; cat "$at_stderr" 2874echo >>"$at_stdout"; $as_echo "(x y)" | \ 2875 $at_diff - "$at_stdout" || at_failed=: 2876at_fn_check_skip $at_status "$at_srcdir/variables.at:72" 2877$at_failed && at_fn_log_failure 2878$at_traceon; } 2879 2880 2881cat >variable.scm <<'_ATEOF' 2882 2883(define f (evaluator-create "x*y*z")) 2884(display (evaluator-get-variables f)) 2885_ATEOF 2886 2887 2888{ set +x 2889$as_echo "$at_srcdir/variables.at:80: matheval.sh variable.scm" 2890at_fn_check_prepare_trace "variables.at:80" 2891( $at_check_trace; matheval.sh variable.scm 2892) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2893at_status=$? at_failed=false 2894$at_check_filter 2895echo stderr:; cat "$at_stderr" 2896echo >>"$at_stdout"; $as_echo "(x y z)" | \ 2897 $at_diff - "$at_stdout" || at_failed=: 2898at_fn_check_skip $at_status "$at_srcdir/variables.at:80" 2899$at_failed && at_fn_log_failure 2900$at_traceon; } 2901 2902 2903cat >variable.scm <<'_ATEOF' 2904 2905(define f (evaluator-create "asin(a141^3)*log(b12)")) 2906(define f_prim (evaluator-derivative f "a141")) 2907(display (evaluator-get-string f_prim)) 2908_ATEOF 2909 2910 2911{ set +x 2912$as_echo "$at_srcdir/variables.at:89: matheval.sh variable.scm" 2913at_fn_check_prepare_trace "variables.at:89" 2914( $at_check_trace; matheval.sh variable.scm 2915) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2916at_status=$? at_failed=false 2917$at_check_filter 2918echo stderr:; cat "$at_stderr" 2919echo >>"$at_stdout"; $as_echo "((((3*(a141^2))/sqrt((1-((a141^3)^2))))*log(b12))+(asin((a141^3))*(0/b12)))" | \ 2920 $at_diff - "$at_stdout" || at_failed=: 2921at_fn_check_skip $at_status "$at_srcdir/variables.at:89" 2922$at_failed && at_fn_log_failure 2923$at_traceon; } 2924 2925 2926 set +x 2927 $at_times_p && times >"$at_times_file" 2928) 5>&1 2>&1 7>&- | eval $at_tee_pipe 2929read at_status <"$at_status_file" 2930#AT_STOP_4 2931#AT_START_5 2932at_fn_group_banner 5 'functions.at:24' \ 2933 "Check functions." " " 5 2934at_xfail=no 2935( 2936 $as_echo "5. $at_setup_line: testing $at_desc ..." 2937 $at_traceon 2938 2939 2940cat >function.scm <<'_ATEOF' 2941 2942(define f (evaluator-create "exp(x)")) 2943(display (evaluator-evaluate-x f 1)) 2944_ATEOF 2945 2946 2947{ set +x 2948$as_echo "$at_srcdir/functions.at:32: matheval.sh function.scm" 2949at_fn_check_prepare_trace "functions.at:32" 2950( $at_check_trace; matheval.sh function.scm 2951) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2952at_status=$? at_failed=false 2953$at_check_filter 2954echo stderr:; cat "$at_stderr" 2955echo >>"$at_stdout"; $as_echo "2.71828182845905" | \ 2956 $at_diff - "$at_stdout" || at_failed=: 2957at_fn_check_skip $at_status "$at_srcdir/functions.at:32" 2958$at_failed && at_fn_log_failure 2959$at_traceon; } 2960 2961 2962cat >function.scm <<'_ATEOF' 2963 2964(define f (evaluator-create "exp(x)")) 2965(define f_prim (evaluator-derivative-x f)) 2966(display (evaluator-get-string f_prim)) 2967_ATEOF 2968 2969 2970{ set +x 2971$as_echo "$at_srcdir/functions.at:41: matheval.sh function.scm" 2972at_fn_check_prepare_trace "functions.at:41" 2973( $at_check_trace; matheval.sh function.scm 2974) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2975at_status=$? at_failed=false 2976$at_check_filter 2977echo stderr:; cat "$at_stderr" 2978echo >>"$at_stdout"; $as_echo "exp(x)" | \ 2979 $at_diff - "$at_stdout" || at_failed=: 2980at_fn_check_skip $at_status "$at_srcdir/functions.at:41" 2981$at_failed && at_fn_log_failure 2982$at_traceon; } 2983 2984 2985cat >function.scm <<'_ATEOF' 2986 2987(define f (evaluator-create "log(x)")) 2988(display (evaluator-evaluate-x f 1)) 2989_ATEOF 2990 2991 2992{ set +x 2993$as_echo "$at_srcdir/functions.at:49: matheval.sh function.scm" 2994at_fn_check_prepare_trace "functions.at:49" 2995( $at_check_trace; matheval.sh function.scm 2996) >>"$at_stdout" 2>>"$at_stderr" 5>&- 2997at_status=$? at_failed=false 2998$at_check_filter 2999echo stderr:; cat "$at_stderr" 3000echo >>"$at_stdout"; $as_echo "0.0" | \ 3001 $at_diff - "$at_stdout" || at_failed=: 3002at_fn_check_skip $at_status "$at_srcdir/functions.at:49" 3003$at_failed && at_fn_log_failure 3004$at_traceon; } 3005 3006 3007cat >function.scm <<'_ATEOF' 3008 3009(define f (evaluator-create "log(x)")) 3010(define f_prim (evaluator-derivative-x f)) 3011(display (evaluator-get-string f_prim)) 3012_ATEOF 3013 3014 3015{ set +x 3016$as_echo "$at_srcdir/functions.at:58: matheval.sh function.scm" 3017at_fn_check_prepare_trace "functions.at:58" 3018( $at_check_trace; matheval.sh function.scm 3019) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3020at_status=$? at_failed=false 3021$at_check_filter 3022echo stderr:; cat "$at_stderr" 3023echo >>"$at_stdout"; $as_echo "(1/x)" | \ 3024 $at_diff - "$at_stdout" || at_failed=: 3025at_fn_check_skip $at_status "$at_srcdir/functions.at:58" 3026$at_failed && at_fn_log_failure 3027$at_traceon; } 3028 3029 3030cat >function.scm <<'_ATEOF' 3031 3032(define f (evaluator-create "sqrt(x)")) 3033(display (evaluator-evaluate-x f 1)) 3034_ATEOF 3035 3036 3037{ set +x 3038$as_echo "$at_srcdir/functions.at:66: matheval.sh function.scm" 3039at_fn_check_prepare_trace "functions.at:66" 3040( $at_check_trace; matheval.sh function.scm 3041) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3042at_status=$? at_failed=false 3043$at_check_filter 3044echo stderr:; cat "$at_stderr" 3045echo >>"$at_stdout"; $as_echo "1.0" | \ 3046 $at_diff - "$at_stdout" || at_failed=: 3047at_fn_check_skip $at_status "$at_srcdir/functions.at:66" 3048$at_failed && at_fn_log_failure 3049$at_traceon; } 3050 3051 3052cat >function.scm <<'_ATEOF' 3053 3054(define f (evaluator-create "sqrt(x)")) 3055(define f_prim (evaluator-derivative-x f)) 3056(display (evaluator-get-string f_prim)) 3057_ATEOF 3058 3059 3060{ set +x 3061$as_echo "$at_srcdir/functions.at:75: matheval.sh function.scm" 3062at_fn_check_prepare_trace "functions.at:75" 3063( $at_check_trace; matheval.sh function.scm 3064) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3065at_status=$? at_failed=false 3066$at_check_filter 3067echo stderr:; cat "$at_stderr" 3068echo >>"$at_stdout"; $as_echo "(1/(2*sqrt(x)))" | \ 3069 $at_diff - "$at_stdout" || at_failed=: 3070at_fn_check_skip $at_status "$at_srcdir/functions.at:75" 3071$at_failed && at_fn_log_failure 3072$at_traceon; } 3073 3074 3075cat >function.scm <<'_ATEOF' 3076 3077(define f (evaluator-create "sin(x)")) 3078(display (evaluator-evaluate-x f 1)) 3079_ATEOF 3080 3081 3082{ set +x 3083$as_echo "$at_srcdir/functions.at:83: matheval.sh function.scm" 3084at_fn_check_prepare_trace "functions.at:83" 3085( $at_check_trace; matheval.sh function.scm 3086) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3087at_status=$? at_failed=false 3088$at_check_filter 3089echo stderr:; cat "$at_stderr" 3090echo >>"$at_stdout"; $as_echo "0.841470984807897" | \ 3091 $at_diff - "$at_stdout" || at_failed=: 3092at_fn_check_skip $at_status "$at_srcdir/functions.at:83" 3093$at_failed && at_fn_log_failure 3094$at_traceon; } 3095 3096 3097cat >function.scm <<'_ATEOF' 3098 3099(define f (evaluator-create "sin(x)")) 3100(define f_prim (evaluator-derivative-x f)) 3101(display (evaluator-get-string f_prim)) 3102_ATEOF 3103 3104 3105{ set +x 3106$as_echo "$at_srcdir/functions.at:92: matheval.sh function.scm" 3107at_fn_check_prepare_trace "functions.at:92" 3108( $at_check_trace; matheval.sh function.scm 3109) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3110at_status=$? at_failed=false 3111$at_check_filter 3112echo stderr:; cat "$at_stderr" 3113echo >>"$at_stdout"; $as_echo "cos(x)" | \ 3114 $at_diff - "$at_stdout" || at_failed=: 3115at_fn_check_skip $at_status "$at_srcdir/functions.at:92" 3116$at_failed && at_fn_log_failure 3117$at_traceon; } 3118 3119 3120cat >function.scm <<'_ATEOF' 3121 3122(define f (evaluator-create "cos(x)")) 3123(display (evaluator-evaluate-x f 1)) 3124_ATEOF 3125 3126 3127{ set +x 3128$as_echo "$at_srcdir/functions.at:100: matheval.sh function.scm" 3129at_fn_check_prepare_trace "functions.at:100" 3130( $at_check_trace; matheval.sh function.scm 3131) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3132at_status=$? at_failed=false 3133$at_check_filter 3134echo stderr:; cat "$at_stderr" 3135echo >>"$at_stdout"; $as_echo "0.54030230586814" | \ 3136 $at_diff - "$at_stdout" || at_failed=: 3137at_fn_check_skip $at_status "$at_srcdir/functions.at:100" 3138$at_failed && at_fn_log_failure 3139$at_traceon; } 3140 3141 3142cat >function.scm <<'_ATEOF' 3143 3144(define f (evaluator-create "cos(x)")) 3145(define f_prim (evaluator-derivative-x f)) 3146(display (evaluator-get-string f_prim)) 3147_ATEOF 3148 3149 3150{ set +x 3151$as_echo "$at_srcdir/functions.at:109: matheval.sh function.scm" 3152at_fn_check_prepare_trace "functions.at:109" 3153( $at_check_trace; matheval.sh function.scm 3154) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3155at_status=$? at_failed=false 3156$at_check_filter 3157echo stderr:; cat "$at_stderr" 3158echo >>"$at_stdout"; $as_echo "(-sin(x))" | \ 3159 $at_diff - "$at_stdout" || at_failed=: 3160at_fn_check_skip $at_status "$at_srcdir/functions.at:109" 3161$at_failed && at_fn_log_failure 3162$at_traceon; } 3163 3164 3165cat >function.scm <<'_ATEOF' 3166 3167(define f (evaluator-create "tan(x)")) 3168(display (evaluator-evaluate-x f 1)) 3169_ATEOF 3170 3171 3172{ set +x 3173$as_echo "$at_srcdir/functions.at:117: matheval.sh function.scm" 3174at_fn_check_prepare_trace "functions.at:117" 3175( $at_check_trace; matheval.sh function.scm 3176) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3177at_status=$? at_failed=false 3178$at_check_filter 3179echo stderr:; cat "$at_stderr" 3180echo >>"$at_stdout"; $as_echo "1.5574077246549" | \ 3181 $at_diff - "$at_stdout" || at_failed=: 3182at_fn_check_skip $at_status "$at_srcdir/functions.at:117" 3183$at_failed && at_fn_log_failure 3184$at_traceon; } 3185 3186 3187cat >function.scm <<'_ATEOF' 3188 3189(define f (evaluator-create "tan(x)")) 3190(define f_prim (evaluator-derivative-x f)) 3191(display (evaluator-get-string f_prim)) 3192_ATEOF 3193 3194 3195{ set +x 3196$as_echo "$at_srcdir/functions.at:126: matheval.sh function.scm" 3197at_fn_check_prepare_trace "functions.at:126" 3198( $at_check_trace; matheval.sh function.scm 3199) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3200at_status=$? at_failed=false 3201$at_check_filter 3202echo stderr:; cat "$at_stderr" 3203echo >>"$at_stdout"; $as_echo "(1/(cos(x)^2))" | \ 3204 $at_diff - "$at_stdout" || at_failed=: 3205at_fn_check_skip $at_status "$at_srcdir/functions.at:126" 3206$at_failed && at_fn_log_failure 3207$at_traceon; } 3208 3209 3210cat >function.scm <<'_ATEOF' 3211 3212(define f (evaluator-create "cot(x)")) 3213(display (evaluator-evaluate-x f 1)) 3214_ATEOF 3215 3216 3217{ set +x 3218$as_echo "$at_srcdir/functions.at:134: matheval.sh function.scm" 3219at_fn_check_prepare_trace "functions.at:134" 3220( $at_check_trace; matheval.sh function.scm 3221) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3222at_status=$? at_failed=false 3223$at_check_filter 3224echo stderr:; cat "$at_stderr" 3225echo >>"$at_stdout"; $as_echo "0.642092615934331" | \ 3226 $at_diff - "$at_stdout" || at_failed=: 3227at_fn_check_skip $at_status "$at_srcdir/functions.at:134" 3228$at_failed && at_fn_log_failure 3229$at_traceon; } 3230 3231 3232cat >function.scm <<'_ATEOF' 3233 3234(define f (evaluator-create "cot(x)")) 3235(define f_prim (evaluator-derivative-x f)) 3236(display (evaluator-get-string f_prim)) 3237_ATEOF 3238 3239 3240{ set +x 3241$as_echo "$at_srcdir/functions.at:143: matheval.sh function.scm" 3242at_fn_check_prepare_trace "functions.at:143" 3243( $at_check_trace; matheval.sh function.scm 3244) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3245at_status=$? at_failed=false 3246$at_check_filter 3247echo stderr:; cat "$at_stderr" 3248echo >>"$at_stdout"; $as_echo "(-(1/(sin(x)^2)))" | \ 3249 $at_diff - "$at_stdout" || at_failed=: 3250at_fn_check_skip $at_status "$at_srcdir/functions.at:143" 3251$at_failed && at_fn_log_failure 3252$at_traceon; } 3253 3254 3255cat >function.scm <<'_ATEOF' 3256 3257(define f (evaluator-create "sec(x)")) 3258(display (evaluator-evaluate-x f 1)) 3259_ATEOF 3260 3261 3262{ set +x 3263$as_echo "$at_srcdir/functions.at:151: matheval.sh function.scm" 3264at_fn_check_prepare_trace "functions.at:151" 3265( $at_check_trace; matheval.sh function.scm 3266) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3267at_status=$? at_failed=false 3268$at_check_filter 3269echo stderr:; cat "$at_stderr" 3270echo >>"$at_stdout"; $as_echo "1.85081571768093" | \ 3271 $at_diff - "$at_stdout" || at_failed=: 3272at_fn_check_skip $at_status "$at_srcdir/functions.at:151" 3273$at_failed && at_fn_log_failure 3274$at_traceon; } 3275 3276 3277cat >function.scm <<'_ATEOF' 3278 3279(define f (evaluator-create "sec(x)")) 3280(define f_prim (evaluator-derivative-x f)) 3281(display (evaluator-get-string f_prim)) 3282_ATEOF 3283 3284 3285{ set +x 3286$as_echo "$at_srcdir/functions.at:160: matheval.sh function.scm" 3287at_fn_check_prepare_trace "functions.at:160" 3288( $at_check_trace; matheval.sh function.scm 3289) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3290at_status=$? at_failed=false 3291$at_check_filter 3292echo stderr:; cat "$at_stderr" 3293echo >>"$at_stdout"; $as_echo "(sec(x)*tan(x))" | \ 3294 $at_diff - "$at_stdout" || at_failed=: 3295at_fn_check_skip $at_status "$at_srcdir/functions.at:160" 3296$at_failed && at_fn_log_failure 3297$at_traceon; } 3298 3299 3300cat >function.scm <<'_ATEOF' 3301 3302(define f (evaluator-create "csc(x)")) 3303(display (evaluator-evaluate-x f 1)) 3304_ATEOF 3305 3306 3307{ set +x 3308$as_echo "$at_srcdir/functions.at:168: matheval.sh function.scm" 3309at_fn_check_prepare_trace "functions.at:168" 3310( $at_check_trace; matheval.sh function.scm 3311) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3312at_status=$? at_failed=false 3313$at_check_filter 3314echo stderr:; cat "$at_stderr" 3315echo >>"$at_stdout"; $as_echo "1.18839510577812" | \ 3316 $at_diff - "$at_stdout" || at_failed=: 3317at_fn_check_skip $at_status "$at_srcdir/functions.at:168" 3318$at_failed && at_fn_log_failure 3319$at_traceon; } 3320 3321 3322cat >function.scm <<'_ATEOF' 3323 3324(define f (evaluator-create "csc(x)")) 3325(define f_prim (evaluator-derivative-x f)) 3326(display (evaluator-get-string f_prim)) 3327_ATEOF 3328 3329 3330{ set +x 3331$as_echo "$at_srcdir/functions.at:177: matheval.sh function.scm" 3332at_fn_check_prepare_trace "functions.at:177" 3333( $at_check_trace; matheval.sh function.scm 3334) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3335at_status=$? at_failed=false 3336$at_check_filter 3337echo stderr:; cat "$at_stderr" 3338echo >>"$at_stdout"; $as_echo "(-(cot(x)*csc(x)))" | \ 3339 $at_diff - "$at_stdout" || at_failed=: 3340at_fn_check_skip $at_status "$at_srcdir/functions.at:177" 3341$at_failed && at_fn_log_failure 3342$at_traceon; } 3343 3344 3345cat >function.scm <<'_ATEOF' 3346 3347(define f (evaluator-create "asin(x)")) 3348(display (evaluator-evaluate-x f 1)) 3349_ATEOF 3350 3351 3352{ set +x 3353$as_echo "$at_srcdir/functions.at:185: matheval.sh function.scm" 3354at_fn_check_prepare_trace "functions.at:185" 3355( $at_check_trace; matheval.sh function.scm 3356) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3357at_status=$? at_failed=false 3358$at_check_filter 3359echo stderr:; cat "$at_stderr" 3360echo >>"$at_stdout"; $as_echo "1.5707963267949" | \ 3361 $at_diff - "$at_stdout" || at_failed=: 3362at_fn_check_skip $at_status "$at_srcdir/functions.at:185" 3363$at_failed && at_fn_log_failure 3364$at_traceon; } 3365 3366 3367cat >function.scm <<'_ATEOF' 3368 3369(define f (evaluator-create "asin(x)")) 3370(define f_prim (evaluator-derivative-x f)) 3371(display (evaluator-get-string f_prim)) 3372_ATEOF 3373 3374 3375{ set +x 3376$as_echo "$at_srcdir/functions.at:194: matheval.sh function.scm" 3377at_fn_check_prepare_trace "functions.at:194" 3378( $at_check_trace; matheval.sh function.scm 3379) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3380at_status=$? at_failed=false 3381$at_check_filter 3382echo stderr:; cat "$at_stderr" 3383echo >>"$at_stdout"; $as_echo "(1/sqrt((1-(x^2))))" | \ 3384 $at_diff - "$at_stdout" || at_failed=: 3385at_fn_check_skip $at_status "$at_srcdir/functions.at:194" 3386$at_failed && at_fn_log_failure 3387$at_traceon; } 3388 3389 3390cat >function.scm <<'_ATEOF' 3391 3392(define f (evaluator-create "acos(x)")) 3393(display (evaluator-evaluate-x f 1)) 3394_ATEOF 3395 3396 3397{ set +x 3398$as_echo "$at_srcdir/functions.at:202: matheval.sh function.scm" 3399at_fn_check_prepare_trace "functions.at:202" 3400( $at_check_trace; matheval.sh function.scm 3401) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3402at_status=$? at_failed=false 3403$at_check_filter 3404echo stderr:; cat "$at_stderr" 3405echo >>"$at_stdout"; $as_echo "0.0" | \ 3406 $at_diff - "$at_stdout" || at_failed=: 3407at_fn_check_skip $at_status "$at_srcdir/functions.at:202" 3408$at_failed && at_fn_log_failure 3409$at_traceon; } 3410 3411 3412cat >function.scm <<'_ATEOF' 3413 3414(define f (evaluator-create "acos(x)")) 3415(define f_prim (evaluator-derivative-x f)) 3416(display (evaluator-get-string f_prim)) 3417_ATEOF 3418 3419 3420{ set +x 3421$as_echo "$at_srcdir/functions.at:211: matheval.sh function.scm" 3422at_fn_check_prepare_trace "functions.at:211" 3423( $at_check_trace; matheval.sh function.scm 3424) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3425at_status=$? at_failed=false 3426$at_check_filter 3427echo stderr:; cat "$at_stderr" 3428echo >>"$at_stdout"; $as_echo "(-(1/sqrt((1-(x^2)))))" | \ 3429 $at_diff - "$at_stdout" || at_failed=: 3430at_fn_check_skip $at_status "$at_srcdir/functions.at:211" 3431$at_failed && at_fn_log_failure 3432$at_traceon; } 3433 3434 3435cat >function.scm <<'_ATEOF' 3436 3437(define f (evaluator-create "atan(x)")) 3438(display (evaluator-evaluate-x f 1)) 3439_ATEOF 3440 3441 3442{ set +x 3443$as_echo "$at_srcdir/functions.at:219: matheval.sh function.scm" 3444at_fn_check_prepare_trace "functions.at:219" 3445( $at_check_trace; matheval.sh function.scm 3446) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3447at_status=$? at_failed=false 3448$at_check_filter 3449echo stderr:; cat "$at_stderr" 3450echo >>"$at_stdout"; $as_echo "0.785398163397448" | \ 3451 $at_diff - "$at_stdout" || at_failed=: 3452at_fn_check_skip $at_status "$at_srcdir/functions.at:219" 3453$at_failed && at_fn_log_failure 3454$at_traceon; } 3455 3456 3457cat >function.scm <<'_ATEOF' 3458 3459(define f (evaluator-create "atan(x)")) 3460(define f_prim (evaluator-derivative-x f)) 3461(display (evaluator-get-string f_prim)) 3462_ATEOF 3463 3464 3465{ set +x 3466$as_echo "$at_srcdir/functions.at:228: matheval.sh function.scm" 3467at_fn_check_prepare_trace "functions.at:228" 3468( $at_check_trace; matheval.sh function.scm 3469) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3470at_status=$? at_failed=false 3471$at_check_filter 3472echo stderr:; cat "$at_stderr" 3473echo >>"$at_stdout"; $as_echo "(1/(1+(x^2)))" | \ 3474 $at_diff - "$at_stdout" || at_failed=: 3475at_fn_check_skip $at_status "$at_srcdir/functions.at:228" 3476$at_failed && at_fn_log_failure 3477$at_traceon; } 3478 3479 3480cat >function.scm <<'_ATEOF' 3481 3482(define f (evaluator-create "acot(x)")) 3483(display (evaluator-evaluate-x f 1)) 3484_ATEOF 3485 3486 3487{ set +x 3488$as_echo "$at_srcdir/functions.at:236: matheval.sh function.scm" 3489at_fn_check_prepare_trace "functions.at:236" 3490( $at_check_trace; matheval.sh function.scm 3491) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3492at_status=$? at_failed=false 3493$at_check_filter 3494echo stderr:; cat "$at_stderr" 3495echo >>"$at_stdout"; $as_echo "0.785398163397448" | \ 3496 $at_diff - "$at_stdout" || at_failed=: 3497at_fn_check_skip $at_status "$at_srcdir/functions.at:236" 3498$at_failed && at_fn_log_failure 3499$at_traceon; } 3500 3501 3502cat >function.scm <<'_ATEOF' 3503 3504(define f (evaluator-create "acot(x)")) 3505(define f_prim (evaluator-derivative-x f)) 3506(display (evaluator-get-string f_prim)) 3507_ATEOF 3508 3509 3510{ set +x 3511$as_echo "$at_srcdir/functions.at:245: matheval.sh function.scm" 3512at_fn_check_prepare_trace "functions.at:245" 3513( $at_check_trace; matheval.sh function.scm 3514) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3515at_status=$? at_failed=false 3516$at_check_filter 3517echo stderr:; cat "$at_stderr" 3518echo >>"$at_stdout"; $as_echo "(-(1/(1+(x^2))))" | \ 3519 $at_diff - "$at_stdout" || at_failed=: 3520at_fn_check_skip $at_status "$at_srcdir/functions.at:245" 3521$at_failed && at_fn_log_failure 3522$at_traceon; } 3523 3524 3525cat >function.scm <<'_ATEOF' 3526 3527(define f (evaluator-create "asec(x)")) 3528(display (evaluator-evaluate-x f 1)) 3529_ATEOF 3530 3531 3532{ set +x 3533$as_echo "$at_srcdir/functions.at:253: matheval.sh function.scm" 3534at_fn_check_prepare_trace "functions.at:253" 3535( $at_check_trace; matheval.sh function.scm 3536) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3537at_status=$? at_failed=false 3538$at_check_filter 3539echo stderr:; cat "$at_stderr" 3540echo >>"$at_stdout"; $as_echo "0.0" | \ 3541 $at_diff - "$at_stdout" || at_failed=: 3542at_fn_check_skip $at_status "$at_srcdir/functions.at:253" 3543$at_failed && at_fn_log_failure 3544$at_traceon; } 3545 3546 3547cat >function.scm <<'_ATEOF' 3548 3549(define f (evaluator-create "asec(x)")) 3550(define f_prim (evaluator-derivative-x f)) 3551(display (evaluator-get-string f_prim)) 3552_ATEOF 3553 3554 3555{ set +x 3556$as_echo "$at_srcdir/functions.at:262: matheval.sh function.scm" 3557at_fn_check_prepare_trace "functions.at:262" 3558( $at_check_trace; matheval.sh function.scm 3559) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3560at_status=$? at_failed=false 3561$at_check_filter 3562echo stderr:; cat "$at_stderr" 3563echo >>"$at_stdout"; $as_echo "(1/((x^2)*sqrt((1-(1/(x^2))))))" | \ 3564 $at_diff - "$at_stdout" || at_failed=: 3565at_fn_check_skip $at_status "$at_srcdir/functions.at:262" 3566$at_failed && at_fn_log_failure 3567$at_traceon; } 3568 3569 3570cat >function.scm <<'_ATEOF' 3571 3572(define f (evaluator-create "acsc(x)")) 3573(display (evaluator-evaluate-x f 1)) 3574_ATEOF 3575 3576 3577{ set +x 3578$as_echo "$at_srcdir/functions.at:270: matheval.sh function.scm" 3579at_fn_check_prepare_trace "functions.at:270" 3580( $at_check_trace; matheval.sh function.scm 3581) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3582at_status=$? at_failed=false 3583$at_check_filter 3584echo stderr:; cat "$at_stderr" 3585echo >>"$at_stdout"; $as_echo "1.5707963267949" | \ 3586 $at_diff - "$at_stdout" || at_failed=: 3587at_fn_check_skip $at_status "$at_srcdir/functions.at:270" 3588$at_failed && at_fn_log_failure 3589$at_traceon; } 3590 3591 3592cat >function.scm <<'_ATEOF' 3593 3594(define f (evaluator-create "acsc(x)")) 3595(define f_prim (evaluator-derivative-x f)) 3596(display (evaluator-get-string f_prim)) 3597_ATEOF 3598 3599 3600{ set +x 3601$as_echo "$at_srcdir/functions.at:279: matheval.sh function.scm" 3602at_fn_check_prepare_trace "functions.at:279" 3603( $at_check_trace; matheval.sh function.scm 3604) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3605at_status=$? at_failed=false 3606$at_check_filter 3607echo stderr:; cat "$at_stderr" 3608echo >>"$at_stdout"; $as_echo "(-(1/((x^2)*sqrt((1-(1/(x^2)))))))" | \ 3609 $at_diff - "$at_stdout" || at_failed=: 3610at_fn_check_skip $at_status "$at_srcdir/functions.at:279" 3611$at_failed && at_fn_log_failure 3612$at_traceon; } 3613 3614 3615cat >function.scm <<'_ATEOF' 3616 3617(define f (evaluator-create "sinh(x)")) 3618(display (evaluator-evaluate-x f 1)) 3619_ATEOF 3620 3621 3622{ set +x 3623$as_echo "$at_srcdir/functions.at:287: matheval.sh function.scm" 3624at_fn_check_prepare_trace "functions.at:287" 3625( $at_check_trace; matheval.sh function.scm 3626) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3627at_status=$? at_failed=false 3628$at_check_filter 3629echo stderr:; cat "$at_stderr" 3630echo >>"$at_stdout"; $as_echo "1.1752011936438" | \ 3631 $at_diff - "$at_stdout" || at_failed=: 3632at_fn_check_skip $at_status "$at_srcdir/functions.at:287" 3633$at_failed && at_fn_log_failure 3634$at_traceon; } 3635 3636 3637cat >function.scm <<'_ATEOF' 3638 3639(define f (evaluator-create "sinh(x)")) 3640(define f_prim (evaluator-derivative-x f)) 3641(display (evaluator-get-string f_prim)) 3642_ATEOF 3643 3644 3645{ set +x 3646$as_echo "$at_srcdir/functions.at:296: matheval.sh function.scm" 3647at_fn_check_prepare_trace "functions.at:296" 3648( $at_check_trace; matheval.sh function.scm 3649) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3650at_status=$? at_failed=false 3651$at_check_filter 3652echo stderr:; cat "$at_stderr" 3653echo >>"$at_stdout"; $as_echo "cosh(x)" | \ 3654 $at_diff - "$at_stdout" || at_failed=: 3655at_fn_check_skip $at_status "$at_srcdir/functions.at:296" 3656$at_failed && at_fn_log_failure 3657$at_traceon; } 3658 3659 3660cat >function.scm <<'_ATEOF' 3661 3662(define f (evaluator-create "cosh(x)")) 3663(display (evaluator-evaluate-x f 1)) 3664_ATEOF 3665 3666 3667{ set +x 3668$as_echo "$at_srcdir/functions.at:304: matheval.sh function.scm" 3669at_fn_check_prepare_trace "functions.at:304" 3670( $at_check_trace; matheval.sh function.scm 3671) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3672at_status=$? at_failed=false 3673$at_check_filter 3674echo stderr:; cat "$at_stderr" 3675echo >>"$at_stdout"; $as_echo "1.54308063481524" | \ 3676 $at_diff - "$at_stdout" || at_failed=: 3677at_fn_check_skip $at_status "$at_srcdir/functions.at:304" 3678$at_failed && at_fn_log_failure 3679$at_traceon; } 3680 3681 3682cat >function.scm <<'_ATEOF' 3683 3684(define f (evaluator-create "cosh(x)")) 3685(define f_prim (evaluator-derivative-x f)) 3686(display (evaluator-get-string f_prim)) 3687_ATEOF 3688 3689 3690{ set +x 3691$as_echo "$at_srcdir/functions.at:313: matheval.sh function.scm" 3692at_fn_check_prepare_trace "functions.at:313" 3693( $at_check_trace; matheval.sh function.scm 3694) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3695at_status=$? at_failed=false 3696$at_check_filter 3697echo stderr:; cat "$at_stderr" 3698echo >>"$at_stdout"; $as_echo "sinh(x)" | \ 3699 $at_diff - "$at_stdout" || at_failed=: 3700at_fn_check_skip $at_status "$at_srcdir/functions.at:313" 3701$at_failed && at_fn_log_failure 3702$at_traceon; } 3703 3704 3705cat >function.scm <<'_ATEOF' 3706 3707(define f (evaluator-create "tanh(x)")) 3708(display (evaluator-evaluate-x f 1)) 3709_ATEOF 3710 3711 3712{ set +x 3713$as_echo "$at_srcdir/functions.at:321: matheval.sh function.scm" 3714at_fn_check_prepare_trace "functions.at:321" 3715( $at_check_trace; matheval.sh function.scm 3716) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3717at_status=$? at_failed=false 3718$at_check_filter 3719echo stderr:; cat "$at_stderr" 3720echo >>"$at_stdout"; $as_echo "0.761594155955765" | \ 3721 $at_diff - "$at_stdout" || at_failed=: 3722at_fn_check_skip $at_status "$at_srcdir/functions.at:321" 3723$at_failed && at_fn_log_failure 3724$at_traceon; } 3725 3726 3727cat >function.scm <<'_ATEOF' 3728 3729(define f (evaluator-create "tanh(x)")) 3730(define f_prim (evaluator-derivative-x f)) 3731(display (evaluator-get-string f_prim)) 3732_ATEOF 3733 3734 3735{ set +x 3736$as_echo "$at_srcdir/functions.at:330: matheval.sh function.scm" 3737at_fn_check_prepare_trace "functions.at:330" 3738( $at_check_trace; matheval.sh function.scm 3739) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3740at_status=$? at_failed=false 3741$at_check_filter 3742echo stderr:; cat "$at_stderr" 3743echo >>"$at_stdout"; $as_echo "(1/(cosh(x)^2))" | \ 3744 $at_diff - "$at_stdout" || at_failed=: 3745at_fn_check_skip $at_status "$at_srcdir/functions.at:330" 3746$at_failed && at_fn_log_failure 3747$at_traceon; } 3748 3749 3750cat >function.scm <<'_ATEOF' 3751 3752(define f (evaluator-create "coth(x)")) 3753(display (evaluator-evaluate-x f 1)) 3754_ATEOF 3755 3756 3757{ set +x 3758$as_echo "$at_srcdir/functions.at:338: matheval.sh function.scm" 3759at_fn_check_prepare_trace "functions.at:338" 3760( $at_check_trace; matheval.sh function.scm 3761) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3762at_status=$? at_failed=false 3763$at_check_filter 3764echo stderr:; cat "$at_stderr" 3765echo >>"$at_stdout"; $as_echo "1.31303528549933" | \ 3766 $at_diff - "$at_stdout" || at_failed=: 3767at_fn_check_skip $at_status "$at_srcdir/functions.at:338" 3768$at_failed && at_fn_log_failure 3769$at_traceon; } 3770 3771 3772cat >function.scm <<'_ATEOF' 3773 3774(define f (evaluator-create "coth(x)")) 3775(define f_prim (evaluator-derivative-x f)) 3776(display (evaluator-get-string f_prim)) 3777_ATEOF 3778 3779 3780{ set +x 3781$as_echo "$at_srcdir/functions.at:347: matheval.sh function.scm" 3782at_fn_check_prepare_trace "functions.at:347" 3783( $at_check_trace; matheval.sh function.scm 3784) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3785at_status=$? at_failed=false 3786$at_check_filter 3787echo stderr:; cat "$at_stderr" 3788echo >>"$at_stdout"; $as_echo "(-(1/(sinh(x)^2)))" | \ 3789 $at_diff - "$at_stdout" || at_failed=: 3790at_fn_check_skip $at_status "$at_srcdir/functions.at:347" 3791$at_failed && at_fn_log_failure 3792$at_traceon; } 3793 3794 3795cat >function.scm <<'_ATEOF' 3796 3797(define f (evaluator-create "sech(x)")) 3798(display (evaluator-evaluate-x f 1)) 3799_ATEOF 3800 3801 3802{ set +x 3803$as_echo "$at_srcdir/functions.at:355: matheval.sh function.scm" 3804at_fn_check_prepare_trace "functions.at:355" 3805( $at_check_trace; matheval.sh function.scm 3806) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3807at_status=$? at_failed=false 3808$at_check_filter 3809echo stderr:; cat "$at_stderr" 3810echo >>"$at_stdout"; $as_echo "0.648054273663885" | \ 3811 $at_diff - "$at_stdout" || at_failed=: 3812at_fn_check_skip $at_status "$at_srcdir/functions.at:355" 3813$at_failed && at_fn_log_failure 3814$at_traceon; } 3815 3816 3817cat >function.scm <<'_ATEOF' 3818 3819(define f (evaluator-create "sech(x)")) 3820(define f_prim (evaluator-derivative-x f)) 3821(display (evaluator-get-string f_prim)) 3822_ATEOF 3823 3824 3825{ set +x 3826$as_echo "$at_srcdir/functions.at:364: matheval.sh function.scm" 3827at_fn_check_prepare_trace "functions.at:364" 3828( $at_check_trace; matheval.sh function.scm 3829) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3830at_status=$? at_failed=false 3831$at_check_filter 3832echo stderr:; cat "$at_stderr" 3833echo >>"$at_stdout"; $as_echo "(-(sech(x)*tanh(x)))" | \ 3834 $at_diff - "$at_stdout" || at_failed=: 3835at_fn_check_skip $at_status "$at_srcdir/functions.at:364" 3836$at_failed && at_fn_log_failure 3837$at_traceon; } 3838 3839cat >function.scm <<'_ATEOF' 3840 3841(define f (evaluator-create "csch(x)")) 3842(display (evaluator-evaluate-x f 1)) 3843_ATEOF 3844 3845 3846{ set +x 3847$as_echo "$at_srcdir/functions.at:371: matheval.sh function.scm" 3848at_fn_check_prepare_trace "functions.at:371" 3849( $at_check_trace; matheval.sh function.scm 3850) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3851at_status=$? at_failed=false 3852$at_check_filter 3853echo stderr:; cat "$at_stderr" 3854echo >>"$at_stdout"; $as_echo "0.850918128239322" | \ 3855 $at_diff - "$at_stdout" || at_failed=: 3856at_fn_check_skip $at_status "$at_srcdir/functions.at:371" 3857$at_failed && at_fn_log_failure 3858$at_traceon; } 3859 3860 3861cat >function.scm <<'_ATEOF' 3862 3863(define f (evaluator-create "csch(x)")) 3864(define f_prim (evaluator-derivative-x f)) 3865(display (evaluator-get-string f_prim)) 3866_ATEOF 3867 3868 3869{ set +x 3870$as_echo "$at_srcdir/functions.at:380: matheval.sh function.scm" 3871at_fn_check_prepare_trace "functions.at:380" 3872( $at_check_trace; matheval.sh function.scm 3873) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3874at_status=$? at_failed=false 3875$at_check_filter 3876echo stderr:; cat "$at_stderr" 3877echo >>"$at_stdout"; $as_echo "(-(coth(x)*csch(x)))" | \ 3878 $at_diff - "$at_stdout" || at_failed=: 3879at_fn_check_skip $at_status "$at_srcdir/functions.at:380" 3880$at_failed && at_fn_log_failure 3881$at_traceon; } 3882 3883 3884cat >function.scm <<'_ATEOF' 3885 3886(define f (evaluator-create "asinh(x)")) 3887(display (evaluator-evaluate-x f 1)) 3888_ATEOF 3889 3890 3891{ set +x 3892$as_echo "$at_srcdir/functions.at:388: matheval.sh function.scm" 3893at_fn_check_prepare_trace "functions.at:388" 3894( $at_check_trace; matheval.sh function.scm 3895) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3896at_status=$? at_failed=false 3897$at_check_filter 3898echo stderr:; cat "$at_stderr" 3899echo >>"$at_stdout"; $as_echo "0.881373587019543" | \ 3900 $at_diff - "$at_stdout" || at_failed=: 3901at_fn_check_skip $at_status "$at_srcdir/functions.at:388" 3902$at_failed && at_fn_log_failure 3903$at_traceon; } 3904 3905 3906cat >function.scm <<'_ATEOF' 3907 3908(define f (evaluator-create "asinh(x)")) 3909(define f_prim (evaluator-derivative-x f)) 3910(display (evaluator-get-string f_prim)) 3911_ATEOF 3912 3913 3914{ set +x 3915$as_echo "$at_srcdir/functions.at:397: matheval.sh function.scm" 3916at_fn_check_prepare_trace "functions.at:397" 3917( $at_check_trace; matheval.sh function.scm 3918) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3919at_status=$? at_failed=false 3920$at_check_filter 3921echo stderr:; cat "$at_stderr" 3922echo >>"$at_stdout"; $as_echo "(1/sqrt((1-(x^2))))" | \ 3923 $at_diff - "$at_stdout" || at_failed=: 3924at_fn_check_skip $at_status "$at_srcdir/functions.at:397" 3925$at_failed && at_fn_log_failure 3926$at_traceon; } 3927 3928 3929cat >function.scm <<'_ATEOF' 3930 3931(define f (evaluator-create "acosh(x)")) 3932(display (evaluator-evaluate-x f 1)) 3933_ATEOF 3934 3935 3936{ set +x 3937$as_echo "$at_srcdir/functions.at:405: matheval.sh function.scm" 3938at_fn_check_prepare_trace "functions.at:405" 3939( $at_check_trace; matheval.sh function.scm 3940) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3941at_status=$? at_failed=false 3942$at_check_filter 3943echo stderr:; cat "$at_stderr" 3944echo >>"$at_stdout"; $as_echo "0.0" | \ 3945 $at_diff - "$at_stdout" || at_failed=: 3946at_fn_check_skip $at_status "$at_srcdir/functions.at:405" 3947$at_failed && at_fn_log_failure 3948$at_traceon; } 3949 3950 3951cat >function.scm <<'_ATEOF' 3952 3953(define f (evaluator-create "acosh(x)")) 3954(define f_prim (evaluator-derivative-x f)) 3955(display (evaluator-get-string f_prim)) 3956_ATEOF 3957 3958 3959{ set +x 3960$as_echo "$at_srcdir/functions.at:414: matheval.sh function.scm" 3961at_fn_check_prepare_trace "functions.at:414" 3962( $at_check_trace; matheval.sh function.scm 3963) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3964at_status=$? at_failed=false 3965$at_check_filter 3966echo stderr:; cat "$at_stderr" 3967echo >>"$at_stdout"; $as_echo "(1/sqrt(((x^2)-1)))" | \ 3968 $at_diff - "$at_stdout" || at_failed=: 3969at_fn_check_skip $at_status "$at_srcdir/functions.at:414" 3970$at_failed && at_fn_log_failure 3971$at_traceon; } 3972 3973 3974cat >function.scm <<'_ATEOF' 3975 3976(define f (evaluator-create "atanh(x)")) 3977(display (evaluator-evaluate-x f 0.5)) 3978_ATEOF 3979 3980 3981{ set +x 3982$as_echo "$at_srcdir/functions.at:422: matheval.sh function.scm" 3983at_fn_check_prepare_trace "functions.at:422" 3984( $at_check_trace; matheval.sh function.scm 3985) >>"$at_stdout" 2>>"$at_stderr" 5>&- 3986at_status=$? at_failed=false 3987$at_check_filter 3988echo stderr:; cat "$at_stderr" 3989echo >>"$at_stdout"; $as_echo "0.549306144334055" | \ 3990 $at_diff - "$at_stdout" || at_failed=: 3991at_fn_check_skip $at_status "$at_srcdir/functions.at:422" 3992$at_failed && at_fn_log_failure 3993$at_traceon; } 3994 3995 3996cat >function.scm <<'_ATEOF' 3997 3998(define f (evaluator-create "atanh(x)")) 3999(define f_prim (evaluator-derivative-x f)) 4000(display (evaluator-get-string f_prim)) 4001_ATEOF 4002 4003 4004{ set +x 4005$as_echo "$at_srcdir/functions.at:431: matheval.sh function.scm" 4006at_fn_check_prepare_trace "functions.at:431" 4007( $at_check_trace; matheval.sh function.scm 4008) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4009at_status=$? at_failed=false 4010$at_check_filter 4011echo stderr:; cat "$at_stderr" 4012echo >>"$at_stdout"; $as_echo "(1/(1-(x^2)))" | \ 4013 $at_diff - "$at_stdout" || at_failed=: 4014at_fn_check_skip $at_status "$at_srcdir/functions.at:431" 4015$at_failed && at_fn_log_failure 4016$at_traceon; } 4017 4018 4019cat >function.scm <<'_ATEOF' 4020 4021(define f (evaluator-create "acoth(x)")) 4022(display (evaluator-evaluate-x f 2)) 4023_ATEOF 4024 4025 4026{ set +x 4027$as_echo "$at_srcdir/functions.at:439: matheval.sh function.scm" 4028at_fn_check_prepare_trace "functions.at:439" 4029( $at_check_trace; matheval.sh function.scm 4030) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4031at_status=$? at_failed=false 4032$at_check_filter 4033echo stderr:; cat "$at_stderr" 4034echo >>"$at_stdout"; $as_echo "0.549306144334055" | \ 4035 $at_diff - "$at_stdout" || at_failed=: 4036at_fn_check_skip $at_status "$at_srcdir/functions.at:439" 4037$at_failed && at_fn_log_failure 4038$at_traceon; } 4039 4040 4041cat >function.scm <<'_ATEOF' 4042 4043(define f (evaluator-create "acoth(x)")) 4044(define f_prim (evaluator-derivative-x f)) 4045(display (evaluator-get-string f_prim)) 4046_ATEOF 4047 4048 4049{ set +x 4050$as_echo "$at_srcdir/functions.at:448: matheval.sh function.scm" 4051at_fn_check_prepare_trace "functions.at:448" 4052( $at_check_trace; matheval.sh function.scm 4053) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4054at_status=$? at_failed=false 4055$at_check_filter 4056echo stderr:; cat "$at_stderr" 4057echo >>"$at_stdout"; $as_echo "(1/((x^2)-1))" | \ 4058 $at_diff - "$at_stdout" || at_failed=: 4059at_fn_check_skip $at_status "$at_srcdir/functions.at:448" 4060$at_failed && at_fn_log_failure 4061$at_traceon; } 4062 4063 4064cat >function.scm <<'_ATEOF' 4065 4066(define f (evaluator-create "asech(x)")) 4067(display (evaluator-evaluate-x f 1)) 4068_ATEOF 4069 4070 4071{ set +x 4072$as_echo "$at_srcdir/functions.at:456: matheval.sh function.scm" 4073at_fn_check_prepare_trace "functions.at:456" 4074( $at_check_trace; matheval.sh function.scm 4075) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4076at_status=$? at_failed=false 4077$at_check_filter 4078echo stderr:; cat "$at_stderr" 4079echo >>"$at_stdout"; $as_echo "0.0" | \ 4080 $at_diff - "$at_stdout" || at_failed=: 4081at_fn_check_skip $at_status "$at_srcdir/functions.at:456" 4082$at_failed && at_fn_log_failure 4083$at_traceon; } 4084 4085 4086cat >function.scm <<'_ATEOF' 4087 4088(define f (evaluator-create "asech(x)")) 4089(define f_prim (evaluator-derivative-x f)) 4090(display (evaluator-get-string f_prim)) 4091_ATEOF 4092 4093 4094{ set +x 4095$as_echo "$at_srcdir/functions.at:465: matheval.sh function.scm" 4096at_fn_check_prepare_trace "functions.at:465" 4097( $at_check_trace; matheval.sh function.scm 4098) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4099at_status=$? at_failed=false 4100$at_check_filter 4101echo stderr:; cat "$at_stderr" 4102echo >>"$at_stdout"; $as_echo "(-((1/(x*sqrt((1-x))))*sqrt((1/(1+x)))))" | \ 4103 $at_diff - "$at_stdout" || at_failed=: 4104at_fn_check_skip $at_status "$at_srcdir/functions.at:465" 4105$at_failed && at_fn_log_failure 4106$at_traceon; } 4107 4108 4109cat >function.scm <<'_ATEOF' 4110 4111(define f (evaluator-create "acsch(x)")) 4112(display (evaluator-evaluate-x f 1)) 4113_ATEOF 4114 4115 4116{ set +x 4117$as_echo "$at_srcdir/functions.at:473: matheval.sh function.scm" 4118at_fn_check_prepare_trace "functions.at:473" 4119( $at_check_trace; matheval.sh function.scm 4120) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4121at_status=$? at_failed=false 4122$at_check_filter 4123echo stderr:; cat "$at_stderr" 4124echo >>"$at_stdout"; $as_echo "0.881373587019543" | \ 4125 $at_diff - "$at_stdout" || at_failed=: 4126at_fn_check_skip $at_status "$at_srcdir/functions.at:473" 4127$at_failed && at_fn_log_failure 4128$at_traceon; } 4129 4130 4131cat >function.scm <<'_ATEOF' 4132 4133(define f (evaluator-create "acsch(x)")) 4134(define f_prim (evaluator-derivative-x f)) 4135(display (evaluator-get-string f_prim)) 4136_ATEOF 4137 4138 4139{ set +x 4140$as_echo "$at_srcdir/functions.at:482: matheval.sh function.scm" 4141at_fn_check_prepare_trace "functions.at:482" 4142( $at_check_trace; matheval.sh function.scm 4143) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4144at_status=$? at_failed=false 4145$at_check_filter 4146echo stderr:; cat "$at_stderr" 4147echo >>"$at_stdout"; $as_echo "(-(1/((x^2)*sqrt((1+(1/(x^2)))))))" | \ 4148 $at_diff - "$at_stdout" || at_failed=: 4149at_fn_check_skip $at_status "$at_srcdir/functions.at:482" 4150$at_failed && at_fn_log_failure 4151$at_traceon; } 4152 4153 4154cat >function.scm <<'_ATEOF' 4155 4156(define f (evaluator-create "abs(x)")) 4157(display (evaluator-evaluate-x f 1)) 4158_ATEOF 4159 4160 4161{ set +x 4162$as_echo "$at_srcdir/functions.at:490: matheval.sh function.scm" 4163at_fn_check_prepare_trace "functions.at:490" 4164( $at_check_trace; matheval.sh function.scm 4165) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4166at_status=$? at_failed=false 4167$at_check_filter 4168echo stderr:; cat "$at_stderr" 4169echo >>"$at_stdout"; $as_echo "1.0" | \ 4170 $at_diff - "$at_stdout" || at_failed=: 4171at_fn_check_skip $at_status "$at_srcdir/functions.at:490" 4172$at_failed && at_fn_log_failure 4173$at_traceon; } 4174 4175 4176cat >function.scm <<'_ATEOF' 4177 4178(define f (evaluator-create "abs(x)")) 4179(define f_prim (evaluator-derivative-x f)) 4180(display (evaluator-get-string f_prim)) 4181_ATEOF 4182 4183 4184{ set +x 4185$as_echo "$at_srcdir/functions.at:499: matheval.sh function.scm" 4186at_fn_check_prepare_trace "functions.at:499" 4187( $at_check_trace; matheval.sh function.scm 4188) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4189at_status=$? at_failed=false 4190$at_check_filter 4191echo stderr:; cat "$at_stderr" 4192echo >>"$at_stdout"; $as_echo "((2*step(x))-1)" | \ 4193 $at_diff - "$at_stdout" || at_failed=: 4194at_fn_check_skip $at_status "$at_srcdir/functions.at:499" 4195$at_failed && at_fn_log_failure 4196$at_traceon; } 4197 4198 4199cat >function.scm <<'_ATEOF' 4200 4201(define f (evaluator-create "step(x)")) 4202(display (evaluator-evaluate-x f 1)) 4203_ATEOF 4204 4205 4206{ set +x 4207$as_echo "$at_srcdir/functions.at:507: matheval.sh function.scm" 4208at_fn_check_prepare_trace "functions.at:507" 4209( $at_check_trace; matheval.sh function.scm 4210) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4211at_status=$? at_failed=false 4212$at_check_filter 4213echo stderr:; cat "$at_stderr" 4214echo >>"$at_stdout"; $as_echo "1.0" | \ 4215 $at_diff - "$at_stdout" || at_failed=: 4216at_fn_check_skip $at_status "$at_srcdir/functions.at:507" 4217$at_failed && at_fn_log_failure 4218$at_traceon; } 4219 4220 4221cat >function.scm <<'_ATEOF' 4222 4223(define f (evaluator-create "step(x)")) 4224(define f_prim (evaluator-derivative-x f)) 4225(display (evaluator-get-string f_prim)) 4226_ATEOF 4227 4228 4229{ set +x 4230$as_echo "$at_srcdir/functions.at:516: matheval.sh function.scm" 4231at_fn_check_prepare_trace "functions.at:516" 4232( $at_check_trace; matheval.sh function.scm 4233) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4234at_status=$? at_failed=false 4235$at_check_filter 4236echo stderr:; cat "$at_stderr" 4237echo >>"$at_stdout"; $as_echo "delta(x)" | \ 4238 $at_diff - "$at_stdout" || at_failed=: 4239at_fn_check_skip $at_status "$at_srcdir/functions.at:516" 4240$at_failed && at_fn_log_failure 4241$at_traceon; } 4242 4243 4244cat >function.scm <<'_ATEOF' 4245 4246(define f (evaluator-create "delta(x)")) 4247(display (evaluator-evaluate-x f 1)) 4248_ATEOF 4249 4250 4251{ set +x 4252$as_echo "$at_srcdir/functions.at:524: matheval.sh function.scm" 4253at_fn_check_prepare_trace "functions.at:524" 4254( $at_check_trace; matheval.sh function.scm 4255) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4256at_status=$? at_failed=false 4257$at_check_filter 4258echo stderr:; cat "$at_stderr" 4259echo >>"$at_stdout"; $as_echo "0.0" | \ 4260 $at_diff - "$at_stdout" || at_failed=: 4261at_fn_check_skip $at_status "$at_srcdir/functions.at:524" 4262$at_failed && at_fn_log_failure 4263$at_traceon; } 4264 4265 4266cat >function.scm <<'_ATEOF' 4267 4268(define f (evaluator-create "delta(x)")) 4269(define f_prim (evaluator-derivative-x f)) 4270(display (evaluator-get-string f_prim)) 4271_ATEOF 4272 4273 4274{ set +x 4275$as_echo "$at_srcdir/functions.at:533: matheval.sh function.scm" 4276at_fn_check_prepare_trace "functions.at:533" 4277( $at_check_trace; matheval.sh function.scm 4278) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4279at_status=$? at_failed=false 4280$at_check_filter 4281echo stderr:; cat "$at_stderr" 4282echo >>"$at_stdout"; $as_echo "nandelta(x)" | \ 4283 $at_diff - "$at_stdout" || at_failed=: 4284at_fn_check_skip $at_status "$at_srcdir/functions.at:533" 4285$at_failed && at_fn_log_failure 4286$at_traceon; } 4287 4288 4289cat >function.scm <<'_ATEOF' 4290 4291(define f (evaluator-create "nandelta(x)")) 4292(display (evaluator-evaluate-x f 1)) 4293_ATEOF 4294 4295 4296{ set +x 4297$as_echo "$at_srcdir/functions.at:541: matheval.sh function.scm" 4298at_fn_check_prepare_trace "functions.at:541" 4299( $at_check_trace; matheval.sh function.scm 4300) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4301at_status=$? at_failed=false 4302$at_check_filter 4303echo stderr:; cat "$at_stderr" 4304echo >>"$at_stdout"; $as_echo "0.0" | \ 4305 $at_diff - "$at_stdout" || at_failed=: 4306at_fn_check_skip $at_status "$at_srcdir/functions.at:541" 4307$at_failed && at_fn_log_failure 4308$at_traceon; } 4309 4310 4311cat >function.scm <<'_ATEOF' 4312 4313(define f (evaluator-create "nandelta(x)")) 4314(define f_prim (evaluator-derivative-x f)) 4315(display (evaluator-get-string f_prim)) 4316_ATEOF 4317 4318 4319{ set +x 4320$as_echo "$at_srcdir/functions.at:550: matheval.sh function.scm" 4321at_fn_check_prepare_trace "functions.at:550" 4322( $at_check_trace; matheval.sh function.scm 4323) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4324at_status=$? at_failed=false 4325$at_check_filter 4326echo stderr:; cat "$at_stderr" 4327echo >>"$at_stdout"; $as_echo "nandelta(x)" | \ 4328 $at_diff - "$at_stdout" || at_failed=: 4329at_fn_check_skip $at_status "$at_srcdir/functions.at:550" 4330$at_failed && at_fn_log_failure 4331$at_traceon; } 4332 4333 4334cat >function.scm <<'_ATEOF' 4335 4336(define f (evaluator-create "erf(x)")) 4337(display (evaluator-evaluate-x f 0)) 4338_ATEOF 4339 4340 4341{ set +x 4342$as_echo "$at_srcdir/functions.at:558: matheval.sh function.scm" 4343at_fn_check_prepare_trace "functions.at:558" 4344( $at_check_trace; matheval.sh function.scm 4345) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4346at_status=$? at_failed=false 4347$at_check_filter 4348echo stderr:; cat "$at_stderr" 4349echo >>"$at_stdout"; $as_echo "0.0" | \ 4350 $at_diff - "$at_stdout" || at_failed=: 4351at_fn_check_skip $at_status "$at_srcdir/functions.at:558" 4352$at_failed && at_fn_log_failure 4353$at_traceon; } 4354 4355 4356cat >function.scm <<'_ATEOF' 4357 4358(define f (evaluator-create "erf(x)")) 4359(define f_prim (evaluator-derivative-x f)) 4360(display (evaluator-get-string f_prim)) 4361_ATEOF 4362 4363 4364{ set +x 4365$as_echo "$at_srcdir/functions.at:567: matheval.sh function.scm" 4366at_fn_check_prepare_trace "functions.at:567" 4367( $at_check_trace; matheval.sh function.scm 4368) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4369at_status=$? at_failed=false 4370$at_check_filter 4371echo stderr:; cat "$at_stderr" 4372echo >>"$at_stdout"; $as_echo "(2_sqrtpi*exp((-(x^2))))" | \ 4373 $at_diff - "$at_stdout" || at_failed=: 4374at_fn_check_skip $at_status "$at_srcdir/functions.at:567" 4375$at_failed && at_fn_log_failure 4376$at_traceon; } 4377 4378 4379 set +x 4380 $at_times_p && times >"$at_times_file" 4381) 5>&1 2>&1 7>&- | eval $at_tee_pipe 4382read at_status <"$at_status_file" 4383#AT_STOP_5 4384#AT_START_6 4385at_fn_group_banner 6 'un_ops.at:24' \ 4386 "Check unary operations." " " 6 4387at_xfail=no 4388( 4389 $as_echo "6. $at_setup_line: testing $at_desc ..." 4390 $at_traceon 4391 4392 4393cat >un_op.scm <<'_ATEOF' 4394 4395(define f (evaluator-create "-5")) 4396(display (evaluator-evaluate-x f 0)) 4397_ATEOF 4398 4399 4400{ set +x 4401$as_echo "$at_srcdir/un_ops.at:32: matheval.sh un_op.scm" 4402at_fn_check_prepare_trace "un_ops.at:32" 4403( $at_check_trace; matheval.sh un_op.scm 4404) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4405at_status=$? at_failed=false 4406$at_check_filter 4407echo stderr:; cat "$at_stderr" 4408echo >>"$at_stdout"; $as_echo "-5.0" | \ 4409 $at_diff - "$at_stdout" || at_failed=: 4410at_fn_check_skip $at_status "$at_srcdir/un_ops.at:32" 4411$at_failed && at_fn_log_failure 4412$at_traceon; } 4413 4414 4415cat >un_op.scm <<'_ATEOF' 4416 4417(define f (evaluator-create "-x")) 4418(display (evaluator-evaluate-x f 1)) 4419_ATEOF 4420 4421 4422{ set +x 4423$as_echo "$at_srcdir/un_ops.at:40: matheval.sh un_op.scm" 4424at_fn_check_prepare_trace "un_ops.at:40" 4425( $at_check_trace; matheval.sh un_op.scm 4426) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4427at_status=$? at_failed=false 4428$at_check_filter 4429echo stderr:; cat "$at_stderr" 4430echo >>"$at_stdout"; $as_echo "-1.0" | \ 4431 $at_diff - "$at_stdout" || at_failed=: 4432at_fn_check_skip $at_status "$at_srcdir/un_ops.at:40" 4433$at_failed && at_fn_log_failure 4434$at_traceon; } 4435 4436 4437cat >un_op.scm <<'_ATEOF' 4438 4439(define f (evaluator-create "(-x)^3+4*-x")) 4440(define f_prim (evaluator-derivative-x f)) 4441(display (evaluator-get-string f_prim)) 4442_ATEOF 4443 4444 4445{ set +x 4446$as_echo "$at_srcdir/un_ops.at:49: matheval.sh un_op.scm" 4447at_fn_check_prepare_trace "un_ops.at:49" 4448( $at_check_trace; matheval.sh un_op.scm 4449) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4450at_status=$? at_failed=false 4451$at_check_filter 4452echo stderr:; cat "$at_stderr" 4453echo >>"$at_stdout"; $as_echo "(((-3)*((-x)^2))+((0*(-x))+(-4)))" | \ 4454 $at_diff - "$at_stdout" || at_failed=: 4455at_fn_check_skip $at_status "$at_srcdir/un_ops.at:49" 4456$at_failed && at_fn_log_failure 4457$at_traceon; } 4458 4459 4460 set +x 4461 $at_times_p && times >"$at_times_file" 4462) 5>&1 2>&1 7>&- | eval $at_tee_pipe 4463read at_status <"$at_status_file" 4464#AT_STOP_6 4465#AT_START_7 4466at_fn_group_banner 7 'bin_ops.at:24' \ 4467 "Check binary operations." " " 7 4468at_xfail=no 4469( 4470 $as_echo "7. $at_setup_line: testing $at_desc ..." 4471 $at_traceon 4472 4473 4474cat >function.scm <<'_ATEOF' 4475 4476(define f (evaluator-create "4+x")) 4477(display (evaluator-evaluate-x f 1)) 4478_ATEOF 4479 4480 4481{ set +x 4482$as_echo "$at_srcdir/bin_ops.at:32: matheval.sh function.scm" 4483at_fn_check_prepare_trace "bin_ops.at:32" 4484( $at_check_trace; matheval.sh function.scm 4485) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4486at_status=$? at_failed=false 4487$at_check_filter 4488echo stderr:; cat "$at_stderr" 4489echo >>"$at_stdout"; $as_echo "5.0" | \ 4490 $at_diff - "$at_stdout" || at_failed=: 4491at_fn_check_skip $at_status "$at_srcdir/bin_ops.at:32" 4492$at_failed && at_fn_log_failure 4493$at_traceon; } 4494 4495 4496cat >function.scm <<'_ATEOF' 4497 4498(define f (evaluator-create "4+x")) 4499(define f_prim (evaluator-derivative-x f)) 4500(display (evaluator-get-string f_prim)) 4501_ATEOF 4502 4503 4504{ set +x 4505$as_echo "$at_srcdir/bin_ops.at:41: matheval.sh function.scm" 4506at_fn_check_prepare_trace "bin_ops.at:41" 4507( $at_check_trace; matheval.sh function.scm 4508) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4509at_status=$? at_failed=false 4510$at_check_filter 4511echo stderr:; cat "$at_stderr" 4512echo >>"$at_stdout"; $as_echo "1" | \ 4513 $at_diff - "$at_stdout" || at_failed=: 4514at_fn_check_skip $at_status "$at_srcdir/bin_ops.at:41" 4515$at_failed && at_fn_log_failure 4516$at_traceon; } 4517 4518 4519cat >function.scm <<'_ATEOF' 4520 4521(define f (evaluator-create "4-x")) 4522(display (evaluator-evaluate-x f 1)) 4523_ATEOF 4524 4525 4526{ set +x 4527$as_echo "$at_srcdir/bin_ops.at:49: matheval.sh function.scm" 4528at_fn_check_prepare_trace "bin_ops.at:49" 4529( $at_check_trace; matheval.sh function.scm 4530) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4531at_status=$? at_failed=false 4532$at_check_filter 4533echo stderr:; cat "$at_stderr" 4534echo >>"$at_stdout"; $as_echo "3.0" | \ 4535 $at_diff - "$at_stdout" || at_failed=: 4536at_fn_check_skip $at_status "$at_srcdir/bin_ops.at:49" 4537$at_failed && at_fn_log_failure 4538$at_traceon; } 4539 4540 4541cat >function.scm <<'_ATEOF' 4542 4543(define f (evaluator-create "4-x")) 4544(define f_prim (evaluator-derivative-x f)) 4545(display (evaluator-get-string f_prim)) 4546_ATEOF 4547 4548 4549{ set +x 4550$as_echo "$at_srcdir/bin_ops.at:58: matheval.sh function.scm" 4551at_fn_check_prepare_trace "bin_ops.at:58" 4552( $at_check_trace; matheval.sh function.scm 4553) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4554at_status=$? at_failed=false 4555$at_check_filter 4556echo stderr:; cat "$at_stderr" 4557echo >>"$at_stdout"; $as_echo "(-1)" | \ 4558 $at_diff - "$at_stdout" || at_failed=: 4559at_fn_check_skip $at_status "$at_srcdir/bin_ops.at:58" 4560$at_failed && at_fn_log_failure 4561$at_traceon; } 4562 4563 4564cat >function.scm <<'_ATEOF' 4565 4566(define f (evaluator-create "4*x")) 4567(display (evaluator-evaluate-x f 1)) 4568_ATEOF 4569 4570 4571{ set +x 4572$as_echo "$at_srcdir/bin_ops.at:66: matheval.sh function.scm" 4573at_fn_check_prepare_trace "bin_ops.at:66" 4574( $at_check_trace; matheval.sh function.scm 4575) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4576at_status=$? at_failed=false 4577$at_check_filter 4578echo stderr:; cat "$at_stderr" 4579echo >>"$at_stdout"; $as_echo "4.0" | \ 4580 $at_diff - "$at_stdout" || at_failed=: 4581at_fn_check_skip $at_status "$at_srcdir/bin_ops.at:66" 4582$at_failed && at_fn_log_failure 4583$at_traceon; } 4584 4585 4586cat >function.scm <<'_ATEOF' 4587 4588(define f (evaluator-create "4*x")) 4589(define f_prim (evaluator-derivative-x f)) 4590(display (evaluator-get-string f_prim)) 4591_ATEOF 4592 4593 4594{ set +x 4595$as_echo "$at_srcdir/bin_ops.at:75: matheval.sh function.scm" 4596at_fn_check_prepare_trace "bin_ops.at:75" 4597( $at_check_trace; matheval.sh function.scm 4598) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4599at_status=$? at_failed=false 4600$at_check_filter 4601echo stderr:; cat "$at_stderr" 4602echo >>"$at_stdout"; $as_echo "((0*x)+4)" | \ 4603 $at_diff - "$at_stdout" || at_failed=: 4604at_fn_check_skip $at_status "$at_srcdir/bin_ops.at:75" 4605$at_failed && at_fn_log_failure 4606$at_traceon; } 4607 4608 4609cat >function.scm <<'_ATEOF' 4610 4611(define f (evaluator-create "4/x")) 4612(display (evaluator-evaluate-x f 1)) 4613_ATEOF 4614 4615 4616{ set +x 4617$as_echo "$at_srcdir/bin_ops.at:83: matheval.sh function.scm" 4618at_fn_check_prepare_trace "bin_ops.at:83" 4619( $at_check_trace; matheval.sh function.scm 4620) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4621at_status=$? at_failed=false 4622$at_check_filter 4623echo stderr:; cat "$at_stderr" 4624echo >>"$at_stdout"; $as_echo "4.0" | \ 4625 $at_diff - "$at_stdout" || at_failed=: 4626at_fn_check_skip $at_status "$at_srcdir/bin_ops.at:83" 4627$at_failed && at_fn_log_failure 4628$at_traceon; } 4629 4630 4631cat >function.scm <<'_ATEOF' 4632 4633(define f (evaluator-create "4/x")) 4634(define f_prim (evaluator-derivative-x f)) 4635(display (evaluator-get-string f_prim)) 4636_ATEOF 4637 4638 4639{ set +x 4640$as_echo "$at_srcdir/bin_ops.at:92: matheval.sh function.scm" 4641at_fn_check_prepare_trace "bin_ops.at:92" 4642( $at_check_trace; matheval.sh function.scm 4643) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4644at_status=$? at_failed=false 4645$at_check_filter 4646echo stderr:; cat "$at_stderr" 4647echo >>"$at_stdout"; $as_echo "(((0*x)-4)/(x^2))" | \ 4648 $at_diff - "$at_stdout" || at_failed=: 4649at_fn_check_skip $at_status "$at_srcdir/bin_ops.at:92" 4650$at_failed && at_fn_log_failure 4651$at_traceon; } 4652 4653 4654cat >function.scm <<'_ATEOF' 4655 4656(define f (evaluator-create "4^x")) 4657(display (evaluator-evaluate-x f 1)) 4658_ATEOF 4659 4660 4661{ set +x 4662$as_echo "$at_srcdir/bin_ops.at:100: matheval.sh function.scm" 4663at_fn_check_prepare_trace "bin_ops.at:100" 4664( $at_check_trace; matheval.sh function.scm 4665) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4666at_status=$? at_failed=false 4667$at_check_filter 4668echo stderr:; cat "$at_stderr" 4669echo >>"$at_stdout"; $as_echo "4.0" | \ 4670 $at_diff - "$at_stdout" || at_failed=: 4671at_fn_check_skip $at_status "$at_srcdir/bin_ops.at:100" 4672$at_failed && at_fn_log_failure 4673$at_traceon; } 4674 4675 4676cat >function.scm <<'_ATEOF' 4677 4678(define f (evaluator-create "4^x")) 4679(define f_prim (evaluator-derivative-x f)) 4680(display (evaluator-get-string f_prim)) 4681_ATEOF 4682 4683 4684{ set +x 4685$as_echo "$at_srcdir/bin_ops.at:109: matheval.sh function.scm" 4686at_fn_check_prepare_trace "bin_ops.at:109" 4687( $at_check_trace; matheval.sh function.scm 4688) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4689at_status=$? at_failed=false 4690$at_check_filter 4691echo stderr:; cat "$at_stderr" 4692echo >>"$at_stdout"; $as_echo "((4^x)*(1.38629+(x*0)))" | \ 4693 $at_diff - "$at_stdout" || at_failed=: 4694at_fn_check_skip $at_status "$at_srcdir/bin_ops.at:109" 4695$at_failed && at_fn_log_failure 4696$at_traceon; } 4697 4698 4699cat >function.scm <<'_ATEOF' 4700 4701(define f (evaluator-create "x^4")) 4702(display (evaluator-evaluate-x f 1)) 4703_ATEOF 4704 4705 4706{ set +x 4707$as_echo "$at_srcdir/bin_ops.at:117: matheval.sh function.scm" 4708at_fn_check_prepare_trace "bin_ops.at:117" 4709( $at_check_trace; matheval.sh function.scm 4710) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4711at_status=$? at_failed=false 4712$at_check_filter 4713echo stderr:; cat "$at_stderr" 4714echo >>"$at_stdout"; $as_echo "1.0" | \ 4715 $at_diff - "$at_stdout" || at_failed=: 4716at_fn_check_skip $at_status "$at_srcdir/bin_ops.at:117" 4717$at_failed && at_fn_log_failure 4718$at_traceon; } 4719 4720 4721cat >function.scm <<'_ATEOF' 4722 4723(define f (evaluator-create "x^4")) 4724(define f_prim (evaluator-derivative-x f)) 4725(display (evaluator-get-string f_prim)) 4726_ATEOF 4727 4728 4729{ set +x 4730$as_echo "$at_srcdir/bin_ops.at:126: matheval.sh function.scm" 4731at_fn_check_prepare_trace "bin_ops.at:126" 4732( $at_check_trace; matheval.sh function.scm 4733) >>"$at_stdout" 2>>"$at_stderr" 5>&- 4734at_status=$? at_failed=false 4735$at_check_filter 4736echo stderr:; cat "$at_stderr" 4737echo >>"$at_stdout"; $as_echo "(4*(x^3))" | \ 4738 $at_diff - "$at_stdout" || at_failed=: 4739at_fn_check_skip $at_status "$at_srcdir/bin_ops.at:126" 4740$at_failed && at_fn_log_failure 4741$at_traceon; } 4742 4743 4744 set +x 4745 $at_times_p && times >"$at_times_file" 4746) 5>&1 2>&1 7>&- | eval $at_tee_pipe 4747read at_status <"$at_status_file" 4748#AT_STOP_7 4749