# -*- mode: perl; coding: utf-8; tab-width: 4 -*-

use strict;
use warnings;
# use Test::More qw(no_plan);
use Test::More tests => 9;
use Test::Number::Delta within => 1e-4;
use Test::Exception;
BEGIN { use_ok('Cv', -nomore) }

# ------------------------------------------------------------
#  void cvExp(const CvArr* src, CvArr* dst)
# ------------------------------------------------------------

my $src = Cv::Mat->new([3], CV_32FC1);
$src->set([0], [rand 3]);
$src->set([1], [rand 3]);
$src->set([2], [rand 3]);

if (1) {
	my $dst = $src->exp;
	delta_ok($dst->getReal([0]), exp($src->getReal([0])));
	delta_ok($dst->getReal([1]), exp($src->getReal([1])));
	delta_ok($dst->getReal([2]), exp($src->getReal([2])));
}

if (2) {
	$src->exp(my $dst = $src->new);
	delta_ok($dst->getReal([0]), exp($src->getReal([0])));
	delta_ok($dst->getReal([1]), exp($src->getReal([1])));
	delta_ok($dst->getReal([2]), exp($src->getReal([2])));
}

if (10) {
	throws_ok { $src->exp(0, 0) } qr/Usage: Cv::Arr::cvExp\(src, dst\) at $0/;
}

if (11) {
	throws_ok { $src->exp($src->new(CV_8UC1)) } qr/OpenCV Error:/;
}