diff options
| -rw-r--r-- | xpxp_to_xxpp.m | 11 | ||||
| -rw-r--r-- | xxpp_to_xpxp.m | 11 |
2 files changed, 22 insertions, 0 deletions
diff --git a/xpxp_to_xxpp.m b/xpxp_to_xxpp.m index fc732e2..6191070 100644 --- a/xpxp_to_xxpp.m +++ b/xpxp_to_xxpp.m @@ -30,3 +30,14 @@ function S_permuted = xpxp_to_xxpp(S) end end +%!test +%! [X, Y]=meshgrid (1:4, 1:4); +%! Mxpxp=xxpp_to_xpxp(X); +%! assert(any(any(X != Mxpxp))); +%! Mxxpp=xpxp_to_xxpp(Mxpxp); +%! assert(X, Mxxpp) +%! Mxpxp=xxpp_to_xpxp(Y); +%! assert(any(any(Y != Mxpxp))); +%! Mxxpp=xpxp_to_xxpp(Mxpxp); +%! assert(Y, Mxxpp) + diff --git a/xxpp_to_xpxp.m b/xxpp_to_xpxp.m index d6efbe9..f77e954 100644 --- a/xxpp_to_xpxp.m +++ b/xxpp_to_xpxp.m @@ -28,3 +28,14 @@ function S_permuted = xxpp_to_xpxp(S) end end +%!test +%! [X, Y]=meshgrid (1:4, 1:4); +%! Mxpxp=xxpp_to_xpxp(X); +%! assert(any(any(X != Mxpxp))); +%! Mxxpp=xpxp_to_xxpp(Mxpxp); +%! assert(X, Mxxpp) +%! Mxpxp=xxpp_to_xpxp(Y); +%! assert(any(any(Y != Mxpxp))); +%! Mxxpp=xpxp_to_xxpp(Mxpxp); +%! assert(Y, Mxxpp) + |