# HG changeset patch
# User Rik <octave@nomad.inbox5.com>
# Date 1310855486 25200
# Node ID 619c1895e3e09553adc28dc4fc5ccba686b85eb1
# Parent  9ce9e1e2d2c8de389914e978f27eac2f7c1700ce
codesprint: Add tests for swapbytes.m

* swapbytes.m: Add 1 test and 2 input validation checks.

diff -r 9ce9e1e2d2c8 -r 619c1895e3e0 scripts/miscellaneous/swapbytes.m
--- a/scripts/miscellaneous/swapbytes.m	Sat Jul 16 18:27:56 2011 -0400
+++ b/scripts/miscellaneous/swapbytes.m	Sat Jul 16 15:31:26 2011 -0700
@@ -32,6 +32,7 @@
 ## @end deftypefn
 
 function y = swapbytes (x)
+
   if (nargin != 1)
     print_usage ();
   endif
@@ -53,4 +54,11 @@
     y = reshape (typecast (reshape (typecast (x(:), "uint8"), nb, numel (x))
                            ([nb : -1 : 1], :) (:), clx), size(x));
   endif
+
 endfunction
+
+
+%!assert (double (swapbytes (uint16 (1:4))), [256 512 768 1024])
+%!error (swapbytes ())
+%!error (swapbytes (1, 2))
+