diff options
author | Alistair Delva <adelva@google.com> | 2024-04-10 14:15:29 -0700 |
---|---|---|
committer | Alistair Delva <adelva@google.com> | 2024-04-11 12:58:28 -0700 |
commit | d0f0f90be16c2ac553b5fa08512045273135147a (patch) | |
tree | 5d9ebb7a04807ea8a609ddd18b0162bc87530e4b /Examples/test-suite/perl5/li_std_auto_ptr_runme.pl | |
parent | 6ffc1dbf29ba98c4d8aa71ebc9b484e973fe1030 (diff) | |
download | swig-main.tar.gz |
Update to v4.2.1HEADmastermainllvm-r522817
Change-Id: I47cef2be94299220d80265d949a95b58eee2c23b
Diffstat (limited to 'Examples/test-suite/perl5/li_std_auto_ptr_runme.pl')
-rw-r--r-- | Examples/test-suite/perl5/li_std_auto_ptr_runme.pl | 100 |
1 files changed, 100 insertions, 0 deletions
diff --git a/Examples/test-suite/perl5/li_std_auto_ptr_runme.pl b/Examples/test-suite/perl5/li_std_auto_ptr_runme.pl new file mode 100644 index 000000000..bfcd38651 --- /dev/null +++ b/Examples/test-suite/perl5/li_std_auto_ptr_runme.pl @@ -0,0 +1,100 @@ +use strict; +use warnings; +use Test::More tests => 34; +BEGIN { use_ok('li_std_auto_ptr') } +require_ok('li_std_auto_ptr'); + +# adapted from ../java/li_std_auto_ptr_runme.java + +sub checkCount { + my($expected_count) = @_; + my $actual_count = li_std_auto_ptr::Klass::getTotal_count(); + is($actual_count, $expected_count, "Counts incorrect, expected: $expected_count actual: $actual_count"); +} + +# Test raw pointer handling involving virtual inheritance +{ + my $kini = new li_std_auto_ptr::KlassInheritance("KlassInheritanceInput"); + checkCount(1); + my $s = li_std_auto_ptr::useKlassRawPtr($kini); + is($s, "KlassInheritanceInput", "Incorrect string: $s"); + undef $kini; + checkCount(0); +} + + +# auto_ptr as input +{ + my $kin = new li_std_auto_ptr::Klass("KlassInput"); + checkCount(1); + my $s = li_std_auto_ptr::takeKlassAutoPtr($kin); + checkCount(0); + is($s, "KlassInput", "Incorrect string: $s"); + is(li_std_auto_ptr::is_nullptr($kin), 1, "is_nullptr check"); + undef $kin; # Should not fail, even though already deleted + checkCount(0); +} + +{ + my $kin = new li_std_auto_ptr::Klass("KlassInput"); + checkCount(1); + my $s = li_std_auto_ptr::takeKlassAutoPtr($kin); + checkCount(0); + is($s, "KlassInput", "Incorrect string: $s"); + is(li_std_auto_ptr::is_nullptr($kin), 1, "is_nullptr check"); + eval { + li_std_auto_ptr::takeKlassAutoPtr($kin); + }; + like($@, qr/\bcannot release ownership as memory is not owned\b/, "double usage of takeKlassAutoPtr should be an error"); + undef $kin; # Should not fail, even though already deleted + checkCount(0); +} + +{ + my $kin = new li_std_auto_ptr::Klass("KlassInput"); + my $notowned = li_std_auto_ptr::get_not_owned_ptr($kin); + eval { + 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); +} + +{ + my $kini = new li_std_auto_ptr::KlassInheritance("KlassInheritanceInput"); + checkCount(1); + my $s = li_std_auto_ptr::takeKlassAutoPtr($kini); + checkCount(0); + is($s, "KlassInheritanceInput", "Incorrect string: $s"); + is(li_std_auto_ptr::is_nullptr($kini), 1, "is_nullptr failed"); + undef $kini; # Should not fail, even though already deleted + checkCount(0); +} + +li_std_auto_ptr::takeKlassAutoPtr(undef); +li_std_auto_ptr::takeKlassAutoPtr(li_std_auto_ptr::make_null()); +checkCount(0); + +# overloaded parameters +is(li_std_auto_ptr::overloadTest(), 0, "overloadTest failed"); +is(li_std_auto_ptr::overloadTest(undef), 1, "overloadTest failed"); +is(li_std_auto_ptr::overloadTest(new li_std_auto_ptr::Klass("over")), 1, "overloadTest failed"); +checkCount(0); + + +# auto_ptr as output +my $k1 = li_std_auto_ptr::makeKlassAutoPtr("first"); +my $k2 = li_std_auto_ptr::makeKlassAutoPtr("second"); +checkCount(2); + +undef $k1; +checkCount(1); + +is($k2->getLabel, "second", "proper label"); + +undef $k2; +checkCount(0); + +is(li_std_auto_ptr::makeNullAutoPtr(), undef); |