add an ismatrix() function with tests

Whiteknight · Dec 3, 2009 · d4c9a30 · d4c9a30
1 parent 3f29530
commit d4c9a30
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/t/functions/ismatrix.t b/t/functions/ismatrix.t
@@ -0,0 +1,3 @@
+plan(2);
+is(ismatrix(1), 0, "scalars are not matrices");
+is(ismatrix([1]), 1, "matrices are matrices");
diff --git a/toolbox/ismatrix.m b/toolbox/ismatrix.m
@@ -0,0 +1,8 @@
+function what = ismatrix(var)
+	code = [".sub '' :anon"
+		"    .param pmc x"
+		"    $I0 = does x, 'matrix'"
+		"    .return($I0)"
+		".end"];
+	what = pir(code, var);
+endfunction