# HG changeset patch
# User jwe
# Date 856828761 0
# Node ID c1b85bf442131128c16bdeb285c4e5c1d0c4c4ee
# Parent  b7758860ea6ba7e284e414880688e01617b9aa06
[project @ 1997-02-24 23:59:20 by jwe]

diff -r b7758860ea6b -r c1b85bf44213 test/octave.test/error/error-1.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/error/error-1.m	Mon Feb 24 23:59:21 1997 +0000
@@ -0,0 +1,3 @@
+function g () error ("foo"); endfunction
+function f () g (); endfunction
+f ();
diff -r b7758860ea6b -r c1b85bf44213 test/octave.test/error/error-2.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/error/error-2.m	Mon Feb 24 23:59:21 1997 +0000
@@ -0,0 +1,3 @@
+function g () error ("foo\n"); endfunction
+function f () g endfunction
+f
diff -r b7758860ea6b -r c1b85bf44213 test/octave.test/error/error-3.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/error/error-3.m	Mon Feb 24 23:59:21 1997 +0000
@@ -0,0 +1,1 @@
+error ()
diff -r b7758860ea6b -r c1b85bf44213 test/octave.test/error/error-4.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/error/error-4.m	Mon Feb 24 23:59:21 1997 +0000
@@ -0,0 +1,1 @@
+error ("foo\n")
diff -r b7758860ea6b -r c1b85bf44213 test/octave.test/error/error.exp
--- a/test/octave.test/error/error.exp	Mon Feb 24 23:33:51 1997 +0000
+++ b/test/octave.test/error/error.exp	Mon Feb 24 23:59:21 1997 +0000
@@ -1,3 +1,44 @@
-# error
-# warning
-# usage
+set test error-1
+set prog_output "error: foo\nerror: evaluating index expression near line 1, column 15\nerror: called from `g'\nerror: called from `f'"
+do_test error-1.m
+
+set test error-2
+set prog_output "error: foo"
+do_test error-2.m
+
+set test error-3
+set prog_output "error: unspecified error"
+do_test error-3.m
+
+set test error-4
+set prog_output "error: foo"
+do_test error-4.m
+
+set test warning-1
+set prog_output "warning: foo"
+do_test warning-1.m
+
+set test warning-2
+set prog_output "warning: unspecified warning"
+do_test warning-2.m
+
+set test warning-3
+set prog_output "warning: foo"
+do_test warning-3.m
+
+set test usage-1
+set prog_output "usage: foo\nerror: called from `g'\nerror: called from `f'"
+do_test usage-1.m
+
+set test usage-2
+set prog_output "usage: foo"
+do_test usage-2.m
+
+set test usage-3
+set prog_output "usage: unknown"
+do_test usage-3.m
+
+set test usage-4
+set prog_output "usage: foo"
+do_test usage-4.m
+
diff -r b7758860ea6b -r c1b85bf44213 test/octave.test/error/usage-1.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/error/usage-1.m	Mon Feb 24 23:59:21 1997 +0000
@@ -0,0 +1,3 @@
+function g () usage ("foo"); endfunction
+function f () g (); endfunction
+f ();
diff -r b7758860ea6b -r c1b85bf44213 test/octave.test/error/usage-2.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/error/usage-2.m	Mon Feb 24 23:59:21 1997 +0000
@@ -0,0 +1,3 @@
+function g () usage ("foo\n"); endfunction
+function f () g endfunction
+f
diff -r b7758860ea6b -r c1b85bf44213 test/octave.test/error/usage-3.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/error/usage-3.m	Mon Feb 24 23:59:21 1997 +0000
@@ -0,0 +1,1 @@
+usage ()
diff -r b7758860ea6b -r c1b85bf44213 test/octave.test/error/usage-4.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/error/usage-4.m	Mon Feb 24 23:59:21 1997 +0000
@@ -0,0 +1,1 @@
+usage ("foo\n")
diff -r b7758860ea6b -r c1b85bf44213 test/octave.test/error/warning-1.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/error/warning-1.m	Mon Feb 24 23:59:21 1997 +0000
@@ -0,0 +1,3 @@
+function g () warning ("foo") endfunction
+function f () g (); endfunction
+f ();
diff -r b7758860ea6b -r c1b85bf44213 test/octave.test/error/warning-2.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/error/warning-2.m	Mon Feb 24 23:59:21 1997 +0000
@@ -0,0 +1,1 @@
+warning ()
diff -r b7758860ea6b -r c1b85bf44213 test/octave.test/error/warning-3.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/octave.test/error/warning-3.m	Mon Feb 24 23:59:21 1997 +0000
@@ -0,0 +1,1 @@
+warning ("foo", 1)