The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

PJACKLAM / Math-Matrix-0.94 / t / as_string.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14

              
#!perl
use strict;
use warnings;
use Math::Matrix;
use Test::More tests => 2;
my $x = Math::Matrix -> new([[2.71828, 0.69315],
                             [1.41421, 3.14159]]);
my $s = $x -> as_string();
is(ref($s), '', '$y is a scalar');
is($s, "   2.71828    0.69315 \n   1.41421    3.14159 \n",
   '$s has the right value');