[Maxima-commits] CVS: maxima/tests rtest_allnummod.mac,1.15,1.16

[Barton W. <wil...@us...>]

Update of /cvsroot/maxima/maxima/tests
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv15314

Modified Files:
	rtest_allnummod.mac 
Log Message:
Append regression tests for  SF bug [ 2144225 ]

Index: rtest_allnummod.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest_allnummod.mac,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- rtest_allnummod.mac	21 Jun 2008 19:50:47 -0000	1.15
+++ rtest_allnummod.mac	12 Oct 2008 17:35:13 -0000	1.16
@@ -1584,3 +1584,10 @@
 
 sign (max (7, foo543) - max (6, foo543));
 pnz;
+
+/* SF bug [ 2144225 ] rationalize bug / fix (?) */
+map('rationalize, [cos(s)]);
+[cos(s)]$
+
+map(lambda([s], rationalize(s)), [cos(s)]);
+[cos(s)]$