# HG changeset patch
# User Markus Bergholz <markuman+octave@gmail.com>
# Date 1412709077 -7200
# Node ID e1713e281ac540f4cee71be966a59e2decb795d0
# Parent  a834b3151c7e3e381310f637045c4e52233ae7c2
rat.m: Remove unnecessary blank line at start of output (bug #43374).

* rat.m: Check whether numerator is null before expanding it to the
length of s.  Add BIST test for correct behavior.

diff -r a834b3151c7e -r e1713e281ac5 scripts/general/rat.m
--- a/scripts/general/rat.m	Sat Oct 18 13:52:31 2014 -0400
+++ b/scripts/general/rat.m	Tue Oct 07 21:11:17 2014 +0200
@@ -142,7 +142,7 @@
       s_nc = columns (s);
       if (n_nc > s_nc)
         s(:,s_nc+1:n_nc) = " ";
-      elseif (s_nc > n_nc)
+      elseif (s_nc > n_nc && n_nc != 0)
         n(:,n_nc+1:s_nc) = " ";
       endif
       n = cat (1, n, s);
@@ -157,6 +157,9 @@
 %! assert (n, [1, 3, 1]);
 %! assert (d, [2, 10, 3]);
 
+## bug #43374
+%!assert (eval (rat (0.75)), [0.75])
+
 %!error rat ();
 %!error rat (1, 2, 3);