Mercurial > repos > public > sbplib
comparison assert_size.m @ 890:c70131daaa6e feature/d1_staggered
Merge with feature/poroelastic.
| author | Martin Almquist <malmquist@stanford.edu> |
|---|---|
| date | Wed, 21 Nov 2018 18:29:29 -0800 |
| parents | afd20f023928 |
| children |
comparison
equal
deleted
inserted
replaced
| 885:18e10217dca9 | 890:c70131daaa6e |
|---|---|
| 1 % Assert that array A has the size s. | 1 % Assert that array A has the size s. |
| 2 function assert_size(A,s) | 2 function assert_size(A,s) |
| 3 errmsg = sprintf('Expected %s to have size %s, got: %s',inputname(1), format_vector(s), format_vector(size(A))); | 3 warning('Use assertSize() instead!') |
| 4 assert(all(size(A) == s),errmsg); | 4 assertSize(A,s); |
| 5 end | 5 end |
| 6 | |
| 7 function str = format_vector(a) | |
| 8 l = length(a); | |
| 9 str = sprintf('[%d',a(1)); | |
| 10 | |
| 11 for i = 2:l | |
| 12 str = [str sprintf(', %d',a(i))]; | |
| 13 end | |
| 14 | |
| 15 str = [str ']']; | |
| 16 end |