view release on metacpan or  search on metacpan

t/2error.t  view on Meta::CPAN

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

use Data::Dumper;

sub D (\@) {
	Data::Dumper->Dump([@{$_[0]}], [map { "\$_[$_]" } 0 .. $#{$_[0]}]);
}

if (1) {
	my $e = "error";
	$@ = $e;
	is(cvErrorStr(-2), "Unspecified error");
	is($@, $e);
	is(Cv->ErrorStr(-2), "Unspecified error");
	is($@, $e);