# Checking the variables.                    -*- Autotest -*-

# Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008 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 3 of the
# License, 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 GNU libmatheval.  If not, see
# <http://www.gnu.org/licenses/>.

AT_BANNER([[Checking evaluating variables.]])

AT_SETUP([Check variables.])

AT_DATA([variable.scm],
[[
(define f (evaluator-create "1/x"))
(display (evaluator-get-string f))
]])

AT_CHECK([matheval.sh variable.scm], [ignore], [(1/x)], [ignore])

AT_DATA([variable.scm],
[[
(define f (evaluator-create "_222+5"))
(display (evaluator-evaluate f 1 '("_222") '(1)))
]])

AT_CHECK([matheval.sh variable.scm], [ignore], [6.0], [ignore])

AT_DATA([variable.scm],
[[
(define f (evaluator-create "a+2*aa+3*aaa^2"))
(display (evaluator-evaluate f 3 '("a" "aa" "aaa") '(1 2 3)))
]])

AT_CHECK([matheval.sh variable.scm], [ignore], [32.0], [ignore])

AT_DATA([variable.scm],
[[
(define f (evaluator-create "1"))
(display (evaluator-get-variables f))
]])

AT_CHECK([matheval.sh variable.scm], [ignore], [()], [ignore])

AT_DATA([variable.scm],
[[
(define f (evaluator-create "x"))
(display (evaluator-get-variables f))
]])

AT_CHECK([matheval.sh variable.scm], [ignore], [(x)], [ignore])

AT_DATA([variable.scm],
[[
(define f (evaluator-create "x+y"))
(display (evaluator-get-variables f))
]])

AT_CHECK([matheval.sh variable.scm], [ignore], [(x y)], [ignore])

AT_DATA([variable.scm],
[[
(define f (evaluator-create "x*y*z"))
(display (evaluator-get-variables f))
]])

AT_CHECK([matheval.sh variable.scm], [ignore], [(x y z)], [ignore])

AT_DATA([variable.scm],
[[
(define f (evaluator-create "asin(a141^3)*log(b12)"))
(define f_prim (evaluator-derivative f "a141"))
(display (evaluator-get-string f_prim))
]])

AT_CHECK([matheval.sh variable.scm], [ignore], [((((3*(a141^2))/sqrt((1-((a141^3)^2))))*log(b12))+(asin((a141^3))*(0/b12)))], [ignore])

AT_CLEANUP