From e3edb2b3ef59129f79d510e57aeb8b9a18e35dca Mon Sep 17 00:00:00 2001
From: Whiteknight <wknight8111@gmail.com>
Date: Sun, 8 Nov 2009 08:36:14 -0500
Subject: [PATCH] add tests for VTABLE_multiply(Float)

---
 t/10-nummatrix.t | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/t/10-nummatrix.t b/t/10-nummatrix.t
index 7512f75..d4d65b0 100644
--- a/t/10-nummatrix.t
+++ b/t/10-nummatrix.t
@@ -18,7 +18,7 @@ sub MAIN () {
       pla_library_loaded:
     };
 
-    plan(81);
+    plan(82);
 
     create_nummatrix2d();
     vtable_set_number_keyed();
@@ -395,7 +395,26 @@ sub vtable_add_float() {
 }
 
 sub vtable_multiply_nummatrix2d() {}
-sub vtable_multiply_float() {}
+sub vtable_multiply_float() {
+    Q:PIR {
+        $P0 = new ['NumMatrix2D']
+        $P0[0;0] = 1.0
+        $P0[1;0] = 2.0
+        $P0[0;1] = 3.0
+        $P0[1;1] = 4.0
+
+        $P1 = new ['NumMatrix2D']
+        $P1[0;0] = 2.5
+        $P1[1;0] = 5.0
+        $P1[0;1] = 7.5
+        $P1[1;1] = 10.0
+
+        $P2 = box 2.5
+        $P3 = $P0 * $P2
+        $I0 = $P3 == $P1
+        ok($I0, "can multiply a Float with NumMatrix2D")
+    }
+}
 
 sub vtable_clone() {
     Q:PIR {