# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1252435495 14400
# Node ID e1345a9002e8d5e3bf331851f8f6fdc2ccf10bd6
# Parent  73e6ad869f08ed777c8c98b1430eb4dd53666e6a
pr-output.cc: new test

diff -r 73e6ad869f08 -r e1345a9002e8 src/ChangeLog
--- a/src/ChangeLog	Tue Sep 08 14:27:35 2009 +0200
+++ b/src/ChangeLog	Tue Sep 08 14:44:55 2009 -0400
@@ -1,3 +1,7 @@
+2009-09-08  Rafael Laboissiere  <rafael@debian.org>
+
+	* pr-output.cc: New test.
+
 2009-09-07  Jaroslav Hajek  <highegg@gmail.com>
 
 	* src/Makefile.in: Add LDFLAGS to OCT_LINK_DEPS.
diff -r 73e6ad869f08 -r e1345a9002e8 src/pr-output.cc
--- a/src/pr-output.cc	Tue Sep 08 14:27:35 2009 +0200
+++ b/src/pr-output.cc	Tue Sep 08 14:44:55 2009 -0400
@@ -3350,6 +3350,18 @@
   return retval;
 }
 
+/* 
+%!test
+%! format short
+%! fd = tmpfile ();
+%! for r = [0, Inf -Inf, NaN]
+%!   for i = [0, Inf -Inf, NaN]
+%!     fdisp (fd, complex (r, i));
+%!   endfor
+%! endfor
+%! fclose (fd);
+*/                                 
+
 static void
 init_format_state (void)
 {