From ba1ba44f239a23739b446a4d3c3188a215c3b824 Mon Sep 17 00:00:00 2001
From: Whiteknight <wknight8111@gmail.com>
Date: Tue, 27 Oct 2009 19:41:19 -0400
Subject: [PATCH] Add a test file for NumMatrix2D. Tests basic creating,
 modifying, and reading matrices

---
 t/10-nummatrix.t | 85 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 85 insertions(+)
 create mode 100644 t/10-nummatrix.t

diff --git a/t/10-nummatrix.t b/t/10-nummatrix.t
new file mode 100644
index 0000000..dc02c73
--- /dev/null
+++ b/t/10-nummatrix.t
@@ -0,0 +1,85 @@
+#! parrot_nqp
+our @ARGS;
+MAIN();
+
+sub MAIN () {
+    my $num_tests := 18;
+    Q:PIR {
+        .local pmc c
+        load_language 'parrot'
+        c = compreg 'parrot'
+        c.'import'('Test::More')
+
+        .local pmc pla
+        pla = loadlib 'linalg_group'
+        if pla goto pla_library_loaded
+        say "Cannot load linalg_group"
+        exit 1
+      pla_library_loaded:
+    };
+    plan(11);
+    create_nummatrix2d();
+    set_number_nummatrix2d();
+    get_number_nummatrix2d();
+}
+
+sub create_nummatrix2d() {
+    Q:PIR {
+        $P0 = new 'NumMatrix2D'
+        $I0 = isnull $P0
+        $I0 = not $I0
+        'ok'($I0, "Can create a new NumMatrix2D")
+    }
+}
+
+sub set_number_nummatrix2d() {
+    Q:PIR {
+        push_eh can_not_set
+        $P0 = new 'NumMatrix2D'
+        $P0[2;2] = 3.0
+        $P0[0;0] = 1.0
+        $P0[1;1] = 2.0
+        ok(1, "can set values")
+        goto test_passed
+      can_not_set:
+        ok(0, "Cannot set values")
+      test_passed:
+    }
+}
+
+sub get_number_nummatrix2d() {
+    Q:PIR {
+        $P0 = new 'NumMatrix2D'
+        $P0[2;2] = 3.0
+        $P0[0;0] = 1.0
+        $P0[1;1] = 2.0
+
+        $N0 = $P0[0;0]
+        is($N0, 1.0, "Got 1,1")
+
+        $N0 = $P0[0;1]
+        is($N0, 0.0, "Got 1,1")
+
+        $N0 = $P0[0;2]
+        is($N0, 0.0, "Got 1,1")
+
+        $N0 = $P0[1;0]
+        is($N0, 0.0, "Got 1,1")
+
+        $N0 = $P0[1;1]
+        is($N0, 2.0, "Got 1,1")
+
+        $N0 = $P0[1;2]
+        is($N0, 0.0, "Got 1,1")
+
+        $N0 = $P0[2;0]
+        is($N0, 0.0, "Got 1,1")
+
+        $N0 = $P0[2;1]
+        is($N0, 0.0, "Got 1,1")
+
+        $N0 = $P0[2;2]
+        is($N0, 3.0, "Got 1,1")
+    }
+}
+