[gdl] More debug statements in test patch

[Orion Poplawski]

commit 774e96d41e82059c620456a52c0e21237b0e4471
Author: Orion Poplawski <orion at nwra.com>
Date:   Wed Oct 2 11:53:21 2013 -0600

    More debug statements in test patch

 gdl-test.patch |   21 +++++++++++++++------
 gdl.spec       |    2 +-
 2 files changed, 16 insertions(+), 7 deletions(-)
---
diff --git a/gdl-test.patch b/gdl-test.patch
index 9d5987f..5311a0d 100644
--- a/gdl-test.patch
+++ b/gdl-test.patch
@@ -1,6 +1,6 @@
-diff -up gdl-0.9.4/testsuite/test_matrix_multiply.pro.test gdl-0.9.4/testsuite/test_matrix_multiply.pro
---- gdl-0.9.4/testsuite/test_matrix_multiply.pro.test	2013-04-11 10:00:30.000000000 -0600
-+++ gdl-0.9.4/testsuite/test_matrix_multiply.pro	2013-10-01 13:55:24.550637078 -0600
+diff -up gdl-0.9.4/testsuite/test_matrix_multiply.pro.gsl gdl-0.9.4/testsuite/test_matrix_multiply.pro
+--- gdl-0.9.4/testsuite/test_matrix_multiply.pro.gsl	2013-04-11 10:00:30.000000000 -0600
++++ gdl-0.9.4/testsuite/test_matrix_multiply.pro	2013-10-02 11:21:57.504511516 -0600
 @@ -39,7 +39,7 @@ identity=DIAG_MATRIX(REPLICATE(1., nbp))
  matrice=DIAG_MATRIX(REPLICATE(value, nbp-1), 1)
  matrice[0,nbp-1]=value
@@ -10,15 +10,24 @@ diff -up gdl-0.9.4/testsuite/test_matrix_multiply.pro.test gdl-0.9.4/testsuite/t
  ;
  ; We use a "rotation matrix"
  ;
-@@ -72,6 +72,7 @@ if (errors GT 0) then begin
+@@ -70,8 +70,15 @@ if (errors GT 0) then begin
+     print, 'effective type : ', effective_type
+     nb_errors=nb_errors+errors
  endif
- ;
+-;
++
  if KEYWORD_SET(debug) then begin
 +    print, 'Invert status = ', status
++    print, 'Where inv_matrice ne 0 : ', where(inv_matrice ne 0)
++    print, 'Where trans_matrice ne 0 : ', where(trans_matrice ne 0)
++    print, 'Where test1 ne 0 : ', where(abs(test1) gt tolerance)
++    print, 'Where test2 ne 0 : ', where(abs(test2) gt tolerance)
++    print, 'Where test3 ne 0 : ', where(abs(test3) gt tolerance)
++    print, 'Where test4 ne 0 : ', where(abs(test4) gt tolerance)
      print, MIN(test1), MAX(test1)
      print, MIN(test2), MAX(test2)
      print, MIN(test3), MAX(test3)
-@@ -110,7 +111,7 @@ liste_taille=[2,3,4,10,11,13,25,50,51,10
+@@ -110,7 +117,7 @@ liste_taille=[2,3,4,10,11,13,25,50,51,10
  for itailles=0, N_ELEMENTS(liste_taille)-1 do begin
      for itypes=0, N_ELEMENTS(liste_type)-1 do begin
          TEST_MATRIX_UNITARY, type=liste_type[itypes], $
diff --git a/gdl.spec b/gdl.spec
index a971d82..c614f4b 100644
--- a/gdl.spec
+++ b/gdl.spec
@@ -119,7 +119,7 @@ popd
 %patch4 -p1 -b .plwidth
 %patch5 -p1 -b .python
 %patch6 -p1 -b .gsl
-%patch7 -p1 -b .gsl
+%patch7 -p1 -b .test
 
 %global cmake_opts \\\
    -DWXWIDGETS=ON \\\