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

use strict;
use warnings;
# use Test::More qw(no_plan);
use Test::More tests => 6;
use Test::Exception;
BEGIN { use_ok('Cv', -nomore) }

SKIP: {
	skip "no Cv->CreateStereoSGBM", 5 unless Cv->can('CreateStereoSGBM');
	if (1) {
		my @av;
		no warnings;
		local *{Cv::StereoSGBM::new} = sub { @av = @_ };
		Cv->CreateStereoSGBM(1, 2, 3);
		is($av[0], 'Cv::StereoSGBM');
		is($av[1], 1);
		is($av[2], 2);
		is($av[3], 3);
	}
	if (10) {
		throws_ok { Cv->CreateStereoSGBM(0) } qr/Usage: Cv::StereoSGBM::new\(CLASS\) at $0/;
	}
}