# Checking the numbers. -*- Autotest -*- # Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # # This file is part of GNU libmatheval # # GNU libmatheval is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2, or (at # your option) any later version. # # GNU libmatheval is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with program; see the file COPYING. If not, write to the Free # Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. AT_BANNER([[Checking evaluating numbers.]]) AT_SETUP([Check numbers.]) AT_DATA([number.scm], [[ (define f (evaluator-create "42")) (display (evaluator-evaluate-x f 0)) ]]) AT_CHECK([matheval.sh number.scm], [ignore], [42.0], [ignore]) AT_DATA([number.scm], [[ (define f (evaluator-create "-2")) (display (evaluator-evaluate-x f 0)) ]]) AT_CHECK([matheval.sh number.scm], [ignore], [-2.0], [ignore]) AT_DATA([number.scm], [[ (define f (evaluator-create "2+2")) (display (evaluator-evaluate-x f 0)) ]]) AT_CHECK([matheval.sh number.scm], [ignore], [4.0], [ignore]) AT_DATA([number.scm], [[ (define f (evaluator-create "3^(-0.4)")) (display (evaluator-evaluate-x f 0)) ]]) AT_CHECK([matheval.sh number.scm], [ignore], [0.644394014977254], [ignore]) AT_CLEANUP