From 8ae9618ae83c02a1fe55eeabfc1cb755a2c37b85 Mon Sep 17 00:00:00 2001
From: andrew <andrew@Terra-Linux.(none)>
Date: Sun, 29 Nov 2009 15:38:32 -0500
Subject: [PATCH] add some tests for ComplexMatrix2D.tranpose and
 .mem_transpose so we don't regress on those things

---
 t/pmc/complexmatrix2d.t | 63 +++++++++++++++++++++++++++++++++++++++--
 1 file changed, 60 insertions(+), 3 deletions(-)

diff --git a/t/pmc/complexmatrix2d.t b/t/pmc/complexmatrix2d.t
index b1ec13d..a88f1ac 100644
--- a/t/pmc/complexmatrix2d.t
+++ b/t/pmc/complexmatrix2d.t
@@ -17,7 +17,7 @@ sub MAIN () {
       pla_library_loaded:
     };
 
-    plan(4);
+    plan(6);
 
     create_complexmatrix2d();
     op_does_matrix();
@@ -73,8 +73,65 @@ sub vtable_clone() {}
 sub vtable_is_equal() {}
 sub method_resize() {}
 sub method_fill() {}
-sub method_transpose() {}
-sub method_mem_transpose() {}
+
+sub method_transpose() {
+    Q:PIR {
+        $P0 = new ['ComplexMatrix2D']
+        $P1 = new ['Complex']
+        $P1 = "1+1i"
+        $P0[0;0] = $P1
+        $P1 = "2+2i"
+        $P0[0;1] = $P1
+        $P1 = "3+3i"
+        $P0[1;0] = $P1
+        $P1 = "4+4i"
+        $P0[1;1] = $P1
+        
+        $P2 = new ['ComplexMatrix2D']
+        $P1 = "1+1i"
+        $P2[0;0] = $P1
+        $P1 = "3+3i"
+        $P2[0;1] = $P1
+        $P1 = "2+2i"
+        $P2[1;0] = $P1
+        $P1 = "4+4i"
+        $P2[1;1] = $P1
+        
+        $P0.'transpose'()
+        $I0 = $P0 == $P2
+        ok($I0, "can transpose a ComplexMatrix2D")
+    }
+}
+
+sub method_mem_transpose() {
+    Q:PIR {
+        $P0 = new ['ComplexMatrix2D']
+        $P1 = new ['Complex']
+        $P1 = "1+1i"
+        $P0[0;0] = $P1
+        $P1 = "2+2i"
+        $P0[0;1] = $P1
+        $P1 = "3+3i"
+        $P0[1;0] = $P1
+        $P1 = "4+4i"
+        $P0[1;1] = $P1
+        
+        $P2 = new ['ComplexMatrix2D']
+        $P1 = "1+1i"
+        $P2[0;0] = $P1
+        $P1 = "3+3i"
+        $P2[0;1] = $P1
+        $P1 = "2+2i"
+        $P2[1;0] = $P1
+        $P1 = "4+4i"
+        $P2[1;1] = $P1
+        
+        $P0.'mem_transpose'()
+        $I0 = $P0 == $P2
+        ok($I0, "can transpose a ComplexMatrix2D")
+    }
+}
+
 sub method_iterate_function_inplace() {
     Q:PIR {
         $P0 = new ['ComplexMatrix2D']