# -*- mode: perl; coding: utf-8; tab-width: 4 -*-
use strict;
use warnings;
# use Test::More qw(no_plan);
use Test::More tests => 15;
use Test::Exception;
BEGIN { use_ok('Cv', -nomore) }
# ------------------------------------------------------------
# void cvAdd(CvArr* src1, CvArr* src2, CvArr* dst, CvArr* mask=NULL)
# void cvAddS(CvArr* src, CvScalar value, CvArr* dst, CvArr* mask=NULL)
# ------------------------------------------------------------
my $src = Cv::Mat->new([ 3 ], CV_32SC1);
if (1) {
my $src2 = $src->new;
$src->set([0], [int rand 1000]);
$src->set([1], [int rand 1000]);
$src->set([2], [int rand 1000]);
$src2->set([0], [int rand 1000]);
$src2->set([1], [int rand 1000]);
$src2->set([2], [int rand 1000]);
my $dst = $src->add($src2);
is($dst->getReal(0), add($src->getReal(0), $src2->getReal(0)));
is($dst->getReal(1), add($src->getReal(1), $src2->getReal(1)));
is($dst->getReal(2), add($src->getReal(2), $src2->getReal(2)));
}
if (2) {
my $src2 = $src->new;
$src->set([0], [int rand 1000]);
$src->set([1], [int rand 1000]);
$src->set([2], [int rand 1000]);
$src2->set([0], [int rand 1000]);
$src2->set([1], [int rand 1000]);
$src2->set([2], [int rand 1000]);
$src->add($src2, my $dst = $src->new);
is($dst->getReal(0), add($src->getReal(0), $src2->getReal(0)));
is($dst->getReal(1), add($src->getReal(1), $src2->getReal(1)));
is($dst->getReal(2), add($src->getReal(2), $src2->getReal(2)));
}
if (3) {
$src->set([0], [int rand 1000]);
$src->set([1], [int rand 1000]);
$src->set([2], [int rand 1000]);
my $value = int rand 1000;
my $dst = $src->add([$value]);
is($dst->getReal(0), add($src->getReal(0), $value));
is($dst->getReal(1), add($src->getReal(1), $value));
is($dst->getReal(2), add($src->getReal(2), $value));
}
if (4) {
$src->set([0], [int rand 1000]);
$src->set([1], [int rand 1000]);
$src->set([2], [int rand 1000]);
my $value = int rand 1000;
$src->add([$value], my $dst = $src->new);
is($dst->getReal(0), add($src->getReal(0), $value));
is($dst->getReal(1), add($src->getReal(1), $value));
is($dst->getReal(2), add($src->getReal(2), $value));
}
if (10) {
throws_ok { $src->add(0, 0, 0, 0) } qr/Usage: Cv::Arr::cvAdd\(src1, src2, dst, mask=NULL\) at $0/;
}
if (12) {
throws_ok { $src->add(\0) } qr/OpenCV Error:/;
}
sub add {
my $x = shift;
$x += $_ for @_;
$x;
}