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
|
use strict;
use warnings;
use Test::More tests => 9;
# member_pointer using pointers to member functions
BEGIN { use_ok('member_pointer') }
require_ok('member_pointer');
sub check($;$;$) {
my($what, $expected, $actual) = @_;
if ($expected != $actual) {
die ("Failed: $what Expected: $expected Actual: $actual");
}
}
# Get the pointers
my $area_pt = member_pointer::areapt();
my $perim_pt = member_pointer::perimeterpt();
# Create some objects
my $s = new member_pointer::Square(10);
# Do some calculations
is(100.0, member_pointer::do_op($s,$area_pt), "Square area");
is(40.0, member_pointer::do_op($s,$perim_pt), "Square perim");
no strict;
my $memberPtr = $member_pointer::areavar;
$memberPtr = $member_pointer::perimetervar;
# Try the variables
is(100.0, member_pointer::do_op($s,$member_pointer::areavar), "Square area");
is(40.0, member_pointer::do_op($s,$member_pointer::perimetervar), "Square perim");
# Modify one of the variables
$member_pointer::areavar = $perim_pt;
is(40.0, member_pointer::do_op($s,$member_pointer::areavar), "Square perimeter");
# Try the constants
$memberPtr = $member_pointer::AREAPT;
$memberPtr = $member_pointer::PERIMPT;
$memberPtr = $member_pointer::NULLPT;
is(100.0, member_pointer::do_op($s,$member_pointer::AREAPT), "Square area");
is(40.0, member_pointer::do_op($s,$member_pointer::PERIMPT), "Square perim");
|
