view release on metacpan or  search on metacpan

t/7014-nvec-simd-sizes.t  view on Meta::CPAN

subtest 'sum across sizes' => sub {
    for my $n (@test_sizes) {
        my $v = nvec::fill($n, 1.0);
        is($v->sum, $n, "sum of $n ones = $n");
    }
};

subtest 'sum of range' => sub {
    for my $n (1, 10, 100, 1000) {
        my $v = nvec::range(1, $n + 1);  # 1 to n
        my $expected = $n * ($n + 1) / 2;  # Gauss formula
        is_float($v->sum, $expected, "sum 1..$n = $expected");
    }
};

# ============================================
# Dot product correctness across sizes
# ============================================

subtest 'dot product across sizes' => sub {
    for my $n (@test_sizes) {