[Octave-cvsupdate] SF.net SVN: octave:[9243] trunk/octave-forge/extra/quaternion_oo

[<par...@us...>]

Revision: 9243
          http://octave.svn.sourceforge.net/octave/?rev=9243&view=rev
Author:   paramaniac
Date:     2011-12-02 05:26:03 +0000 (Fri, 02 Dec 2011)
Log Message:
-----------
quaternion: add test

Modified Paths:
--------------
    trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/diag.m

Added Paths:
-----------
    trunk/octave-forge/extra/quaternion_oo/devel/qbug.m
    trunk/octave-forge/extra/quaternion_oo/inst/test_quaternion.m

Added: trunk/octave-forge/extra/quaternion_oo/devel/qbug.m
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/devel/qbug.m	                        (rev 0)
+++ trunk/octave-forge/extra/quaternion_oo/devel/qbug.m	2011-12-02 05:26:03 UTC (rev 9243)
@@ -0,0 +1,3 @@
+q = quaternion (2, 3, 4, 5)
+
+diag ([q, q, q])
\ No newline at end of file

Modified: trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/diag.m
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/diag.m	2011-12-02 05:10:32 UTC (rev 9242)
+++ trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/diag.m	2011-12-02 05:26:03 UTC (rev 9243)
@@ -40,3 +40,14 @@
   a.z = diag (a.z, b);
 
 endfunction
+
+
+%!shared R, S
+%! Q = quaternion (2, 3, 4, 5);
+%! R = diag ([Q, Q, Q]);
+%! W = diag ([2, 2, 2]);
+%! X = diag ([3, 3, 3]);
+%! Y = diag ([4, 4, 4]);
+%! Z = diag ([5, 5, 5]);
+%! S = quaternion (W, X, Y, Z);
+%!assert (R, S);

Added: trunk/octave-forge/extra/quaternion_oo/inst/test_quaternion.m
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/inst/test_quaternion.m	                        (rev 0)
+++ trunk/octave-forge/extra/quaternion_oo/inst/test_quaternion.m	2011-12-02 05:26:03 UTC (rev 9243)
@@ -0,0 +1,2 @@
+test @quaternion/diag
+test @quaternion/dot
\ No newline at end of file

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.