override fill() tests for charmatrix2d. It behaves subtly different t…

…han other matrix types because of it's focus on string arrays.
Whiteknight · Mar 15, 2010 · a13f126 · a13f126
1 parent e630f9d
commit a13f126
Show file tree

Hide file tree

Showing 2 changed files with 32 additions and 2 deletions.
diff --git a/t/Testcase.nqp b/t/Testcase.nqp
@@ -186,8 +186,6 @@ class Pla::Testcase is UnitTest::Testcase {
             self.fancyvalue(),
             self.fancyvalue()
         );
-        pir::say($m);
-        pir::say($n);
         $m.fill(self.fancyvalue());
         assert_equal($n, $m, "Cannot fill");
     }

diff --git a/t/pmc/charmatrix2d.t b/t/pmc/charmatrix2d.t
@@ -27,6 +27,15 @@ sub MAIN() {
 method matrix() {
     return (Parrot::new("CharMatrix2D"));
 }
+method defaultvalue() {
+    return "A";
+}
+method nullvalue() {
+    return " ";
+}
+method fancyvalue() {
+    return "Z";
+}
 
 method test_VTABLE_set_string_keyed_int() {
     my $c := self.matrix();
@@ -94,3 +103,26 @@ method test_VTABLE_set_number_keyed() {
 method test_VTABLE_set_pmc_keyed() {
     todo("Tests Needed!");
 }
+
+method test_METHOD_fill() {
+    my $m := self.defaultmatrix2x2();
+    my $n := self.matrix2x2(
+        self.fancyvalue(),
+        self.fancyvalue(),
+        self.fancyvalue(),
+        self.fancyvalue()
+    );
+    $m.fill(90);
+    assert_equal($n, $m, "Cannot fill");
+}
+method test_METHOD_fill_RESIZE() {
+    my $m := self.matrix();
+    my $n := self.matrix2x2(
+        self.fancyvalue(),
+        self.fancyvalue(),
+        self.fancyvalue(),
+        self.fancyvalue()
+    );
+    $m.fill(90, 2, 2);
+    assert_equal($n, $m, "Cannot fill");
+}