jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

auto_ptr and unique_ptr test tweaks

Browse source
This commit is contained in:
William S Fulton 2022-08-03 20:32:58 +01:00
commit a741c7dbcf
14 changed files with 30 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Examples/test-suite/perl5/li_std_auto_ptr_runme.pl
View file

@ -1,6 +1,6 @@
use strict;
use warnings;
use Test::More tests => 24;
use Test::More tests => 25;
BEGIN { use_ok('li_std_auto_ptr') }
require_ok('li_std_auto_ptr');
@ -41,11 +41,12 @@ sub checkCount {
{
my $kin = new li_std_auto_ptr::Klass("KlassInput");
my $notowned = li_std_auto_ptr::get_not_owned_ptr($kin);
eval {
my $notowned = li_std_auto_ptr::get_not_owned_ptr($kin);
li_std_auto_ptr::takeKlassAutoPtr($notowned);
};
like($@, qr/\bcannot release ownership as memory is not owned\b/, "double usage of takeKlassAutoPtr should be an error");
checkCount(1);
undef $kin;
checkCount(0);
}