# HG changeset patch
# User jwe
# Date 1111118644 0
# Node ID 6c4677ba0784ec701bc7143369bcc4c010fd2954
# Parent  316ddaa7ae5b64badb8841ea65e2fbf971f79d97
[project @ 2005-03-18 04:04:04 by jwe]

diff -r 316ddaa7ae5b -r 6c4677ba0784 test/octave.test/linalg/expm-1.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/linalg/expm-1.m	Fri Mar 18 04:04:04 2005 +0000
@@ -0,0 +1,4 @@
+arg = [-49, 24; -64, 31];
+result = [-0.735758758144742, 0.551819099658089;
+          -1.471517599088239, 1.103638240715556];
+all (all (abs (expm (arg) - result) < 8*eps))
diff -r 316ddaa7ae5b -r 6c4677ba0784 test/octave.test/linalg/expm-2.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/linalg/expm-2.m	Fri Mar 18 04:04:04 2005 +0000
@@ -0,0 +1,4 @@
+arg = [1, 1; 0, 1];
+result = [2.718281828459045, 2.718281828459045;
+          0.000000000000000, 2.718281828459045];
+all (all (abs (expm (arg) - result) < 2*eps))
diff -r 316ddaa7ae5b -r 6c4677ba0784 test/octave.test/linalg/expm-3.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/linalg/expm-3.m	Fri Mar 18 04:04:04 2005 +0000
@@ -0,0 +1,6 @@
+arg = diag ([6, 6, 6], 1);
+result = [1, 6, 18, 36;
+          0, 1,  6, 18;
+          0, 0,  1,  6;
+          0, 0,  0,  1];
+all (all (expm (arg) == result))
diff -r 316ddaa7ae5b -r 6c4677ba0784 test/octave.test/linalg/expm-4.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/linalg/expm-4.m	Fri Mar 18 04:04:04 2005 +0000
@@ -0,0 +1,1 @@
+expm ()
diff -r 316ddaa7ae5b -r 6c4677ba0784 test/octave.test/linalg/expm-5.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/linalg/expm-5.m	Fri Mar 18 04:04:04 2005 +0000
@@ -0,0 +1,1 @@
+expm (1, 2)
diff -r 316ddaa7ae5b -r 6c4677ba0784 test/octave.test/linalg/linalg.exp
--- a/test/octave.test/linalg/linalg.exp	Fri Mar 18 01:54:24 2005 +0000
+++ b/test/octave.test/linalg/linalg.exp	Fri Mar 18 04:04:04 2005 +0000
@@ -7,7 +7,6 @@
 # orth
 # pinv
 # rank
-# expm
 # logm
 # sqrtm
 # kron
@@ -66,6 +65,30 @@
 set prog_output "^error:.*"
 do_test eig-5.m
 
+set test expm-1
+set prog_output "^ans = 1"
+do_test expm-1
+
+set test expm-2
+set prog_output "^ans = 1"
+do_test expm-2
+
+set test expm-3
+set prog_output "^ans = 1"
+do_test expm-3
+
+set test expm-4
+set prog_output "^\n... expm:.*"
+do_test expm-4
+
+set test expm-5
+set prog_output "^\n... expm:.*"
+do_test expm-5
+
+set test expm-6
+set prog_output "^error:.*"
+do_test expm-6
+
 set test inv-1
 set prog_output "^ans = 1"
 do_test inv-1.m