Test suite failures



Becauce I run the testsuite and the share_testsuite very often it would be fine
if I had no testsuite failures.

The following failures I got on an Windows XP system. The build info is:

Maxima version: 5.16.0cvs
Maxima build date: 8:11 11/22/2008
host type: @host@
lisp-implementation-type: GNU Common Lisp (GCL)
lisp-implementation-version: GCL 2.6.8

Running tests in rtest16: 
********************** Problem 107 ***************
Input:
tex(t , false)
     1


Result:
$$t_{1}$$

This differed from the expected result:
$$t_{1}$$

********************** Problem 108 ***************
Input:
        2
(foo : x , tex(foo, false))
        1


Result:
$$x_{1}^2$$

This differed from the expected result:
$$x_{1}^2$$


These are the errors I get with the share_testsuite:

Running tests in rteststringproc: 
********************** Problem 11 ***************
Input:
printf(false, control, 'true, [1, 2, 3], 42)


Result:
  An atom:          true
  and a list:       one two three 
  and an integer:   42

This differed from the expected result:
  An atom:          true
  and a list:       one two three 
  and an integer:   42

********************** Problem 14 ***************
Input:
ev(printf(false, ~{~{~9,1f ~}~%~}, mat), 
      mat = args(matrix([1.1, 2, 3.33], [4, 5, 6], [7, 8.880000000000001, 9])))


Result:
      1.1       2.0       3.3 
      4.0       5.0       6.0 
      7.0       8.9       9.0 

This differed from the expected result:
      1.1       2.0       3.3 
      4.0       5.0       6.0 
      7.0       8.9       9.0 

70/72 tests passed.

The following 2 problems failed: (11 14)

Running tests in rtest_interpol: 
********************** Problem 3 ***************
Input:
lagrange(dat2)


Result:
(x - 8) (x - 7) (x - 5) (x - 2) (x + 7)
---------------------------------------
                  224
   2 (x - 9) (x - 7) (x - 5) (x - 2) (x + 7)
 - -----------------------------------------
                     1215
   (x - 9) (x - 8) (x - 5) (x - 2) (x + 7)
 + ---------------------------------------
                     280
   (x - 9) (x - 8) (x - 7) (x - 2) (x + 7)
 - ---------------------------------------
                     96
   2 (x - 9) (x - 8) (x - 7) (x - 5) (x + 7)
 + -----------------------------------------
                     2835
   (x - 9) (x - 8) (x - 7) (x - 5) (x - 2)
 - ---------------------------------------
                   1270080

This differed from the expected result:
- (x - 9) (x - 8) (x - 7) (x - 5) (x - 2)
-----------------------------------------
                 1270080
   2 (x - 9) (x - 8) (x - 7) (x - 5) (7 + x)
 + -----------------------------------------
                     2835
   - (x - 9) (x - 8) (x - 7) (x - 2) (7 + x)
 + -----------------------------------------
                      96
   (x - 9) (x - 8) (x - 5) (x - 2) (7 + x)
 + ---------------------------------------
                     280
   2 (x - 9) (x - 7) (x - 5) (x - 2) (7 + x)
 - -----------------------------------------
                     1215
   (x - 8) (x - 7) (x - 5) (x - 2) (7 + x)
 + ---------------------------------------
                     224

********************** Problem 4 ***************
Input:
lagrange(dat3, varname = z)


Result:
0.13861111111111 (z - 6) (z - 5) (z - 4) (z - 3) (z - 2) (z - 1)
   (z - 7) (z - 5) (z - 4) (z - 3) (z - 2) (z - 1)
 - -----------------------------------------------
                         40
 + 0.20208333333333 (z - 7) (z - 6) (z - 4) (z - 3) (z - 2) (z - 1)
 - 0.23888888888889 (z - 7) (z - 6) (z - 5) (z - 3) (z - 2) (z - 1)
 + 0.085416666666667 (z - 7) (z - 6) (z - 5) (z - 4) (z - 2) (z - 1)
 - 0.049166666666667 (z - 7) (z - 6) (z - 5) (z - 4) (z - 3) (z - 1)
   (2 - z) (z - 7) (z - 6) (z - 5) (z - 4) (z - 3)
 - -----------------------------------------------
                         90

This differed from the expected result:
- (2 - z) (z - 7) (z - 6) (z - 5) (z - 4) (z - 3)
-------------------------------------------------
                       90
 - 0.049166666666667 (z - 7) (z - 6) (z - 5) (z - 4) (z - 3) (z - 1)
 + 0.085416666666667 (z - 7) (z - 6) (z - 5) (z - 4) (z - 2) (z - 1)
 - 0.23888888888889 (z - 7) (z - 6) (z - 5) (z - 3) (z - 2) (z - 1)
 + 0.20208333333333 (z - 7) (z - 6) (z - 4) (z - 3) (z - 2) (z - 1)
   (z - 7) (z - 5) (z - 4) (z - 3) (z - 2) (z - 1)
 - -----------------------------------------------
                         40
 + 0.13861111111111 (z - 6) (z - 5) (z - 4) (z - 3) (z - 2) (z - 1)

12/14 tests passed.

Running tests in rtest_fourier_elim: 
********************** Problem 82 ***************
Input:
fourier_elim([x  + x  < 1, x  - x  > - 1], [x , x ])
               2    1       1    2           1   2


Result:
[x  - 1 < x , x  < 1 - x , x  < 1]
  2        1   1        2   2

... Which was correct, but was expected to be wrong due to a known bug in
 Maxima.
125/125 tests passed (not counting 5 expected errors).

Running tests in rtest_pdiff: 
********************** Problem 32 ***************
Input:

Caused an error break: rtest_pdiff

Running tests in rtestprintf: 
********************** Problem 7 ***************
Input:
ev(printf(false, ~{~a ~s ~d ~f ~h ~}, makelist($sqrt(2), n, 1, 5)), 
                                                                   fpprec : 24)


Result:
$sqrt(2) "$sqrt(2)" 1 1.4142135623730951 1.41421356237309504880169 

This differed from the expected result:
sqrt(2) "sqrt(2)" 1 1.4142135623730951 1.41421356237309504880169 

********************** Problem 12 ***************
Input:
printf(false, ~{~[Siamese~;Manx~;Persian~] Cat ~%~}, [1, 2, 3, 4])


Result:
Siamese Cat 
Manx Cat 
Persian Cat 
 Cat 

This differed from the expected result:
Siamese Cat 
Manx Cat 
Persian Cat 
 Cat 

********************** Problem 13 ***************
Input:
printf(false, ~{~[Siamese~;Manx~:;Persian~] Cat ~%~}, [1, 2, 3, 4])


Result:
Siamese Cat 
Manx Cat 
Persian Cat 
Persian Cat 

This differed from the expected result:
Siamese Cat 
Manx Cat 
Persian Cat 
Persian Cat 

********************** Problem 14 ***************
Input:
printf(false, ~{~:[Siamese~;Manx~] Cat ~%~}, [true, false, 1, 0])


Result:
Manx Cat 
Siamese Cat 
Manx Cat 
Manx Cat 

This differed from the expected result:
Manx Cat 
Siamese Cat 
Manx Cat 
Manx Cat 

********************** Problem 25 ***************
Input:
ev(printf(false, 
~{~h|~%~16,10h|~%~16,10,,,,'#h|~%~16,10 at h|~%~,10,4,-3h|~%~10,,,,'xh|~%~}, 
makelist($sqrt(2), n, 1, 6)), fpprec : 24)


Result:
1.41421356237309504880169|
    1.4142135624|
####1.4142135624|
   +1.4142135624|
1414.2135623731b-003|
xxxxxxxxxx|

This differed from the expected result:
1.41421356237309504880169|
    1.4142135624|
####1.4142135624|
   +1.4142135624|
1414.2135623731b-003|
xxxxxxxxxx|

********************** Problem 29 ***************
Input:
printf(false, ~:{/~a~:^ ...~}, [[hot, dog], [hamburger], [ice, cream]])


Result:
/hot .../hamburger

... Which was correct, but was expected to be wrong due to a known bug in
 Maxima.

********************** Problem 33 ***************
Input:

Caused an error break: $RTESTPRINTF

Dieter Kaiser