File: matlab.t

package info (click to toggle)
libmath-matrixreal-perl 2.13-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, forky, sid, trixie
  • size: 1,120 kB
  • sloc: perl: 2,837; makefile: 8
file content (13 lines) | stat: -rw-r--r-- 469 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
use Test::More tests => 2;
use File::Spec;
use lib File::Spec->catfile("..","lib");
use Math::MatrixReal;
do 'funcs.pl';

my ($a,$b);
$a = Math::MatrixReal->new_from_cols([[ 1.41E-05, 6.82E-06, 3.18E-06 ],[1,3,4]]);
like( $a->as_matlab,qr/\[.*;.*;.*\]/s, 'matlab output looks right');

$b = Math::MatrixReal->new_from_cols([[ 1.234, 5.678, 9.1011],[1,2,3]] );
my $s = $b->as_matlab( ( format => "%5.8s", name => "A" ) );
like( $s, qr/A = /, 'name argument respected');