summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/generic/pgf/testsuite/mathtest/unittest_luamathparser.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-08-08 22:54:29 +0000
committerKarl Berry <karl@freefriends.org>2015-08-08 22:54:29 +0000
commit531d43fafa269c546d587eaca6cd14adcd11914f (patch)
tree1883933af984c60254e6d9d1bd955a76748cb827 /Master/texmf-dist/source/generic/pgf/testsuite/mathtest/unittest_luamathparser.tex
parent877e963d44f039783cb9227d90c911866c780961 (diff)
pgf (8aug15)
git-svn-id: svn://tug.org/texlive/trunk@38079 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/generic/pgf/testsuite/mathtest/unittest_luamathparser.tex')
-rw-r--r--Master/texmf-dist/source/generic/pgf/testsuite/mathtest/unittest_luamathparser.tex450
1 files changed, 450 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/generic/pgf/testsuite/mathtest/unittest_luamathparser.tex b/Master/texmf-dist/source/generic/pgf/testsuite/mathtest/unittest_luamathparser.tex
new file mode 100644
index 00000000000..62ede4b9647
--- /dev/null
+++ b/Master/texmf-dist/source/generic/pgf/testsuite/mathtest/unittest_luamathparser.tex
@@ -0,0 +1,450 @@
+\documentclass{article}
+
+\makeatletter
+\usepackage{pgf}
+\usepgflibrary{luamath}
+
+\begin{document}
+
+X
+
+\def\SHOW#1{%
+ \dimen0=#1 %
+ #1 = \the\dimen0
+}
+
+\SHOW{1pt}
+
+\SHOW{1mm}
+
+\SHOW{1cm}
+
+\SHOW{1in}
+
+\SHOW{1ex}
+
+\SHOW{1em}
+
+\SHOW{1bp}
+
+\SHOW{1pc}
+
+\SHOW{1dd}
+
+\SHOW{1cc}
+
+\SHOW{1sp}
+
+%\tracingmacros=2 \tracingcommands=2
+%
+\newif\ifcomparewithtex
+\pgfkeys{
+ /ut/compare with TeX/.is if=comparewithtex,
+ /ut/compare with TeX=true,
+ /ut/.search also={/pgf/luamath},
+ /pgf/luamath/show error message=true,
+ /pgf/luamath/enable TeX fallback=false,
+}
+
+\newcount\numErrors
+\def\parsertest{\pgfutil@ifnextchar[\parsertest@{\parsertest@[]}}%
+\def\parsertest@[#1]#2#3#4{%
+ \begingroup
+ \pgfqkeys{/ut}{#1}%
+ \pgfluamathparse{#2}%
+ \let\actual=\pgfmathresult
+ \ifpgfmathunitsdeclared
+ \def\actualunitsdeclared{1}%
+ \else
+ \def\actualunitsdeclared{0}%
+ \fi
+ \ifcomparewithtex
+ \ifpgfluamathusedTeXfallback
+ \let\expectedTeX=\actual
+ \else
+ \pgfmathparse{#2}%
+ \let\expectedTeX=\pgfmathresult
+ \fi
+ \else
+ \def\expectedTeX{--}%
+ \fi
+ %
+ \edef\expected{#3}%
+ \def\success{1}%
+ \ifx\expected\empty
+ \ifx\actual\empty
+ \else
+ \def\success{0}%
+ \fi
+ \else
+ \ifx\actual\expected
+ \else
+ \def\success{0}%
+ \fi
+ \fi
+ %
+ \if1\success
+ \else
+ \message{FAILURE for #2 expected \expected\space but was \actual^^J}%
+ \global\advance\numErrors by1
+ \fi
+ %
+ \if1\success
+ \def\expectedunitsdeclared{#4}%
+ \ifx\actualunitsdeclared\expectedunitsdeclared
+ \else
+ \def\success{0}%
+ \message{FAILURE for #2 expected units declared #4 but was \actualunitsdeclared^^J}%
+ \global\advance\numErrors by1
+ \fi
+ \fi
+ %
+ \if1\success
+ \ifcomparewithtex
+ \dimen0=\actual pt %
+ \dimen1=\expectedTeX pt %
+ \advance\dimen0 by-\dimen1
+ \ifdim\dimen0<0sp
+ \dimen0=-\dimen0
+ \fi
+ \ifdim\dimen0 > 0.004pt %
+ \def\success{0}%
+ \message{FAILURE for #2 : matches expectations, but does NOT match TeX output (error \the\dimen0). expected \expectedTeX\space but was \actual^^J}%
+ \global\advance\numErrors by1
+ \fi
+ %
+ %
+ \ifpgfmathunitsdeclared
+ \def\actualTeXunitsdeclared{1}%
+ \else
+ \def\actualTeXunitsdeclared{0}%
+ \fi
+ \ifx\actualTeXunitsdeclared\actualunitsdeclared
+ \else
+ \message{WARNING for #2 : matches ALL expectations, but TeX's output does NOT match TeX expected units declared (TeX returns \actualTeXunitsdeclared, expectation = LUA is \actualunitsdeclared)^^J}%
+ \fi
+ \fi
+ \fi
+ %
+ \message{#2 = \actual\space (pgf=\expectedTeX) \if1\success OK\else FAILURE\fi^^J}%
+ \endgroup
+}%
+
+\parsertest{1}{1.0}{0}
+\parsertest{ 1}{1.0}{0}
+\parsertest{-123}{-123.0}{0}
+\parsertest{+123}{123.0}{0}
+\parsertest{+1.23}{1.23}{0}
+\parsertest{+.123}{0.123}{0}
+\parsertest{1.23}{1.23}{0}
+\parsertest{1.}{1.0}{0}
+\parsertest{0.123}{0.123}{0}
+\parsertest{.123}{0.123}{0}
+\parsertest{1e4}{10000.0}{0}
+\parsertest{1e-4}{0.0001}{0}
+\parsertest{1e+4}{10000.0}{0}
+% only supported by FPU
+\parsertest[compare with TeX=false]{1Y1.23e4]}{12300.0}{0}
+\parsertest{1.23e-004}{0.000123}{0}
+\parsertest{004}{4.0}{0}
+\parsertest{1 + 10}{11.0}{0}
+\parsertest{1 - 10}{-9.0}{0}
+\parsertest{(1)}{1.0}{0}
+\parsertest{3 + 5*9 / (1+1) - 12}{13.5}{0}
+\parsertest{pi}{3.141593}{0}
+\parsertest{sin(0)}{0.0}{0}
+\parsertest{max(0,1)}{1.0}{0}
+\parsertest{min(0.01,-5)}{-5.0}{0}
+\parsertest{sin(90)}{1.0}{0}
+\parsertest{cos(90)}{0.0}{0}
+\parsertest{pow(2,3)}{8.0}{0}
+\parsertest{-pow(2,3)}{-8.0}{0}
+\parsertest{-pi}{-3.141593}{0}
+% this is actually UNSUPPORTED by TeX:
+\parsertest[compare with TeX=false]{inf}{inf}{0}
+\parsertest[compare with TeX=false]{INF}{inf}{0}
+\parsertest{not(100)}{0.0}{0}% non-trivial since the function is pgfluamathfunctions.notPGF
+\parsertest{2^2}{4.0}{0}
+% only supported by FPU
+\parsertest[compare with TeX=false]{1Y2.0e0]^2}{4.0}{0}
+\parsertest{0-2^2}{-4.0}{0}
+\parsertest{-2^2}{-4.0}{0}
+\parsertest{pi^2}{9.869604}{0}
+\parsertest{2^2+2}{6.0}{0}
+\parsertest{2^2-1}{3.0}{0}
+\parsertest{-1 + 4}{3.0}{0}
+\parsertest{2^2*5}{20.0}{0}
+\parsertest{2^(2+2)}{16.0}{0}
+\parsertest{multiply(2,3)^2}{36.0}{0}
+\parsertest{(2+3)^2}{25.0}{0}
+\parsertest{(2 + 3 ) ^ 2}{25.0}{0}
+\parsertest{2^add(1,1)}{4.0}{0}
+\parsertest{3!}{6.0}{0}
+\parsertest{1+3!}{7.0}{0}
+\parsertest{2*3!}{12.0}{0}
+\parsertest{3! + 1}{7.0}{0}
+\parsertest{3 !}{6.0}{0}
+\parsertest{3*2+4}{10.0}{0}
+\pgfmathdeclarefunction{x}{0}{\def\pgfmathresult{4}}%
+\pgfmathdeclarefunction{N1}{3}{\pgfmathparse{#1+#2+#3}}%
+\directlua{
+function pgfluamathfunctions.x()
+ return 4
+end
+function pgfluamathfunctions.N1(x,m,n)
+ return x+m+n
+end
+}
+\parsertest{2^x}{16.0}{0}
+\parsertest{exp(-x^2)}{0.0}{0} % requires output format=fpu
+\parsertest{N1(1,2,3)}{6.0}{0}
+\parsertest{ 1 + 2 * 4 ^ 2 }{33.0}{0}
+\parsertest{-x + 4}{0.0}{0}
+\parsertest{-x * 4}{-16.0}{0}
+\parsertest{-x * - 4}{16.0}{0}
+\parsertest{2*pi r}{360.0}{0}
+\parsertest{6.28318530717959 r}{360.0}{0}
+\parsertest{sin(2*pi r)}{-0.0}{0}
+\parsertest{1.5707963267949r + 1.5707963267949r}{180.0}{0}
+\parsertest{1 ? 42 : 0}{42.0}{0}
+\parsertest{-1 + 1 ? 42 : 0}{0.0}{0}
+\parsertest{1 + (1 ? 42 : 0)}{43.0}{0}
+\parsertest{1 ? 42 : 0 ? 5 : 6}{5.0}{0}
+\parsertest{(1 ? 42 : 0) ? 5 : 6}{5.0}{0}
+\parsertest{43 == 43}{1.0}{0}
+\parsertest{43 == 42}{0.0}{0}
+\parsertest{43 != 43}{0.0}{0}
+\parsertest{43 != 42}{1.0}{0}
+\parsertest{43 > 42}{1.0}{0}
+\parsertest{43 > 44}{0.0}{0}
+\parsertest{43 < 42}{0.0}{0}
+\parsertest{43 < 44}{1.0}{0}
+\parsertest{43 <= 44}{1.0}{0}
+\parsertest{43 >= 44}{0.0}{0}
+\parsertest{43 >= 44 == 1}{0.0}{0}
+\parsertest{!1}{0.0}{0}
+\parsertest{! 1}{0.0}{0}
+\parsertest{! -1}{0.0}{0}
+\parsertest{--1}{1.0}{0}
+\parsertest{! !1}{1.0}{0}
+\parsertest{3! - !0}{5.0}{0}
+\parsertest{1 && 1 }{1.0}{0}
+\parsertest{1 && 0 || 1 }{1.0}{0}
+\parsertest{1 && 0 && 1 }{0.0}{0}
+\parsertest{1 || 0 }{1.0}{0}
+\parsertest{0 || 0 || 1 }{1.0}{0}
+
+% I test every function here to see that it is connected correctly
+\parsertest{abs(1)}{1.0}{0}
+\parsertest{add(1,2)}{3.0}{0}
+\parsertest{and(1,1)}{1.0}{0}
+% \parsertest{array(1)}{1.0}{0}
+\parsertest{asin(0.7071)}{44.999451}{0}
+\parsertest{atan(1)}{45.0}{0}
+\parsertest{atan2(-4,3)}{-53.130102}{0}
+% \parsertest{bin(1)}{1.0}{0}
+\parsertest{ceil(0.1)}{1.0}{0}
+\parsertest{cos(60)}{0.5}{0}
+\parsertest{cosec(30)}{2.0}{0}
+\parsertest{cosh(0.5)}{1.127626}{0}
+\parsertest{cot(15)}{3.732051}{0}
+\parsertest{deg(2*pi)}{360.0}{0}
+% \parsertest{depth(1)}{1.0}{0}
+\parsertest{div(1,2)}{0.0}{0}
+\parsertest{divide(1,2)}{0.5}{0}
+\parsertest{e}{2.718282}{0}
+\parsertest{equal(1,2)}{0.0}{0}
+\parsertest{factorial(3)}{6.0}{0}
+\parsertest{false}{0.0}{0}
+\parsertest{floor(0.6)}{0.0}{0}
+\parsertest{floor(-0.6)}{-1.0}{0}
+\parsertest{frac(1.1)}{0.1}{0}
+\parsertest{frac(-1.1)}{0.1}{0}
+\parsertest{gcd(42,56)}{14.0}{0}
+\parsertest{greater(1,0)}{1.0}{0}
+% \parsertest{height(1)}{1.0}{0}
+% \parsertest{hex(1)}{1.0}{0}
+% \parsertest{Hex(1)}{1.0}{0}
+\parsertest{int(1.2)}{1.0}{0}
+\parsertest{int(-1.2)}{-1.0}{0}
+\parsertest{ifthenelse(1,2,3)}{2.0}{0}
+\parsertest{iseven(2)}{1.0}{0}
+\parsertest{isodd(1)}{1.0}{0}
+\parsertest{isprime(3)}{1.0}{0}
+\parsertest{less(1,2)}{1.0}{0}
+\parsertest{ln(e)}{1.0}{0}
+\parsertest{log10(100)}{2.0}{0}
+\parsertest{log2(2)}{1.0}{0}
+\parsertest{max(1,2)}{2.0}{0}
+\parsertest{min(1,2)}{1.0}{0}
+\parsertest{mod(20,6)}{2.0}{0}
+\parsertest{mod(-100,30)}{-10.0}{0}
+\parsertest{Mod(-100,30)}{20.0}{0}
+\parsertest{multiply(1,2)}{2.0}{0}
+\parsertest{neg(1)}{-1.0}{0}
+\parsertest{not(1)}{0.0}{0}
+\parsertest{notequal(1,1)}{0.0}{0}
+\parsertest{notgreater(1,1)}{1.0}{0}
+\parsertest{notless(1,1)}{1.0}{0}
+%\parsertest{oct(1)}{1.0}{0}
+\parsertest{or(1,0)}{1.0}{0}
+\parsertest{pi}{3.141593}{0}
+\parsertest{pow(2,2)}{4.0}{0}
+\parsertest{rad(180)}{3.141593}{0}
+% done below \parsertest{rand(1)}{1.0}{0}
+% done below \parsertest{random(1)}{1.0}{0}
+\parsertest{real(1)}{1.0}{0}
+% done below \parsertest{rnd(1)}{1.0}{0}
+\parsertest{round(1.5)}{2.0}{0}
+\parsertest{round(1.2)}{1.0}{0}
+\parsertest{round(1.9)}{2.0}{0}
+\parsertest{round(-1.9)}{-2.0}{0}
+\parsertest{round(-1.2)}{-1.0}{0}
+% \parsertest{scalar(1)}{1.0}{0}
+\parsertest{sec(45)}{1.414214}{0}
+\parsertest{sign(-1)}{-1.0}{0}
+\parsertest{sin(60)}{0.866025}{0}
+\parsertest{sinh(0.5)}{0.521095}{0}
+\parsertest{sqrt(4)}{2.0}{0}
+\parsertest{subtract(1,1)}{0.0}{0}
+\parsertest{tan(45)}{1.0}{0}
+\parsertest{tanh(0.5)}{0.462117}{0}
+\parsertest{true}{1.0}{0}
+\parsertest{veclen(12,5)}{13.0}{0}
+%\parsertest{width(1)}{1.0}{0}
+
+\parsertest{1pt}{1.0}{1}
+\parsertest{1mm}{2.845261}{1}
+\parsertest{1cm}{28.452744}{1}
+\parsertest{1in}{72.269989}{1}
+% \parsertest{1ex}{4.305542}{1}
+% \parsertest{1em}{10.000015}{1}
+\parsertest{1bp}{1.003738}{1}
+\parsertest{1dd}{1.070007}{1}
+\parsertest{1cc}{12.840103}{1}
+\parsertest{1sp}{0.000015}{1}
+\parsertest{1pc}{12.0}{1}
+% these TeX macros must be defined and set, of course!
+
+
+
+\count1=43
+% this is actually UNSUPPORTED by TeX:
+\parsertest[compare with TeX=false]{\count1}{43.0}{0}
+%
+\newdimen\luamathparse@dimen
+\luamathparse@dimen=42pt
+\parsertest{1*\luamathparse@dimen}{42.0}{1}
+\parsertest{2\luamathparse@dimen}{84.0}{1}
+%
+\newcount\luamathparse@count
+\luamathparse@count=42
+\parsertest{1*\luamathparse@count}{42.0}{0}
+
+% this is a BUG in TeX, but works in LUA...:
+\parsertest[compare with TeX=false]{0.5\luamathparse@count}{21.0}{0}
+%
+\setbox0=\hbox{1233}
+\parsertest{\wd0}{20.000061}{1}
+\parsertest{\ht0}{6.444443}{1}
+\parsertest{\dp0}{0.0}{1}
+
+%--------------------------------------------------
+% FIXME : these cases are still missing:
+% if false then
+% -- arrays created via '{}' and indexed with '[]'
+% -- strings with "<str>"
+% -- 'scalar' function
+% -- hex/octal/binary input
+% -- tex registers
+% -- What happens for undefined functions!? --> return nil and let TeX invoke its parser (no warning!?)
+% -- width/height/depth
+% end
+%--------------------------------------------------
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% The following tests are just for the TeX part, not for the LUA part.
+%
+%
+
+\parsertest[output format=float,compare with TeX=false]{4+4}{1Y8.0e+00]}{0}
+
+\begingroup
+\pgfmathdeclarefunction{testfct}{0}{\def\pgfmathresult{42.42}}
+\parsertest[parser,compare with TeX=false,show error message=false]{testfct}{}{0}
+\parsertest[parser,enable TeX fallback]{testfct}{42.42}{0}
+\endgroup
+
+% Check that setseed is communicated to LUA:
+\pgfmathsetseed{123}
+\parsertest[compare with TeX=false]{rnd}{0.788318}{0}
+\parsertest[compare with TeX=false]{rnd}{0.203068}{0}
+\parsertest[compare with TeX=false]{rand}{-0.302874}{0}
+\parsertest[compare with TeX=false]{rand}{-0.276781}{0}
+\parsertest[compare with TeX=false]{random}{0.134639}{0}
+\parsertest[compare with TeX=false]{random}{0.375968}{0}
+\parsertest[compare with TeX=false]{random(4)}{2.0}{0}
+\parsertest[compare with TeX=false]{random(4)}{1.0}{0}
+\parsertest[compare with TeX=false]{random(4,10)}{10.0}{0}
+\parsertest[compare with TeX=false]{random(4,10)}{8.0}{0}
+
+\begingroup
+% Check that 'trig format' is property communicated to LUA and
+% implemented correctly:
+\parsertest{sin(50)}{0.766044}{0}%
+\parsertest{cos(50)}{0.642788}{0}%
+\parsertest{tan(50)}{1.191754}{0}%
+\parsertest{asin(0.766044)}{49.999961}{0}%
+\parsertest{acos(0.642788)}{49.999971}{0}%
+\parsertest{atan(1.191754)}{50.00001}{0}%
+\parsertest{atan2(-4,3)}{-53.130102}{0}%
+\parsertest{cot(50)}{0.8391}{0}%
+\parsertest{sec(50)}{1.555724}{0}%
+\parsertest{cosec(50)}{1.305407}{0}%
+%
+\pgfkeys{/pgf/trig format=rad}
+\parsertest{sin(0.5)}{0.479426}{0}%
+\parsertest{cos(0.5)}{0.877583}{0}%
+\parsertest{tan(0.5)}{0.546302}{0}%
+\parsertest{asin(0.5)}{0.523599}{0}%
+\parsertest{acos(0.5)}{1.047198}{0}%
+\parsertest{atan(0.5)}{0.463648}{0}%
+\parsertest{atan2(-4,3)}{-0.927295}{0}%
+\parsertest{cot(0.5)}{1.830488}{0}%
+\parsertest{sec(0.5)}{1.139494}{0}%
+\parsertest{cosec(0.5)}{2.08583}{0}%
+\endgroup
+
+\begingroup
+\pgfkeys{/pgf/declare function={mu1(\x,\i)=\x^\i;}}
+
+\parsertest{mu1(5,2)}{25.0}{0}
+% produces something different in TeX :-( See docs in LUA
+\parsertest[compare with TeX=false]{mu1(-5,2)}{25.0}{0}
+
+\begingroup
+\pgfkeys{/pgf/declare function={mu2=42;}}
+\parsertest{mu2}{42.0}{0}
+\endgroup
+% should have been clean up:
+\parsertest[show error message=false,compare with TeX=false]{mu2}{}{0}
+% ... but this should NOT have been cleaned up!
+\parsertest{mu1(5,2)}{25.0}{0}
+
+\endgroup
+% should have been clean up:
+\parsertest[show error message=false,compare with TeX=false]{mu1(-5,2)}{}{0}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5
+% NO MORE TEST CASES HERE!
+
+\ifnum\numErrors>0
+ \PackageError{pgf}{Has \the\numErrors\space FAILURES}{}
+\else
+ \message{All cases PASSED^^J}%
+\fi
+
+
+\end{document}