1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
use strict;
use warnings;
use Test::More tests => 17;
BEGIN { use_ok('cpp17_string_view') }
require_ok('cpp17_string_view');
use Devel::Peek;
# Checking expected use of %typemap(in) std::string_view {}
cpp17_string_view::test_value("Fee");
# Checking expected result of %typemap(out) std::string_view {}
is(cpp17_string_view::test_value("Fi"), "Fi", "Test 1");
# Verify type-checking for %typemap(in) std::string_view {}
eval { cpp17_string_view::test_value(undef) };
like($@, qr/\bTypeError\b/, "Test 2");
# Checking expected use of %typemap(in) const std::string_view & {}
cpp17_string_view::test_const_reference("Fo");
# Checking expected result of %typemap(out) const std::string_view& {}
is(cpp17_string_view::test_const_reference("Fum"), "Fum", "Test 3");
# Verify type-checking for %typemap(in) const std::string_view & {}
eval { cpp17_string_view::test_const_reference(undef) };
like($@, qr/\bNullReferenceError\b/, "Test 4");
#
# Input and output typemaps for pointers and non-const references to
# std::string_view are *not* supported; the following tests confirm
# that none of these cases are slipping through.
#
my $stringPtr = undef;
$stringPtr = cpp17_string_view::test_pointer_out();
cpp17_string_view::test_pointer($stringPtr);
$stringPtr = cpp17_string_view::test_const_pointer_out();
cpp17_string_view::test_const_pointer($stringPtr);
$stringPtr = cpp17_string_view::test_reference_out();
cpp17_string_view::test_reference($stringPtr);
# Check throw exception specification
eval { cpp17_string_view::test_throw() };
like($@, qr/^test_throw message/, "Test 5");
{ local $TODO = "why is the error not a Perl string?";
eval { cpp17_string_view::test_const_reference_throw() };
is($@, "<some kind of string>", "Test 6");
}
# Global variables
is($cpp17_string_view::ConstGlobalString, "const global string", "ConstGlobalString test");
# Member variables
my $myStructure = new cpp17_string_view::Structure();
is($myStructure->{ConstMemberString}, "const member string", "ConstMemberString test");
is($cpp17_string_view::Structure::ConstStaticMemberString, "const static member string", "ConstStaticMemberString test");
is(cpp17_string_view::stdstringview_empty(), "", "stdstringview_empty");
is(cpp17_string_view::c_empty(), "", "c_empty");
is(cpp17_string_view::c_null(), undef, "c_null");
is(cpp17_string_view::get_null(cpp17_string_view::c_null()), undef, "get_null c_null");
is(cpp17_string_view::get_null(cpp17_string_view::c_empty()), "non-null", "get_null c_empty");
is(cpp17_string_view::get_null(cpp17_string_view::stdstringview_empty()), "non-null", "get_null stdstringview_empty");
|
