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

add test case for bug #1071279

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6906 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2004-12-21 08:03:49 +00:00
commit 2fc994e774
2 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Examples/perl5/class/example.h
View file

@ -33,6 +33,14 @@ public:
virtual double perimeter(void); virtual double perimeter(void);
}; };
typedef Square TSquare;
class CFoo
{
public:
static Square MakeSquare(void) {return Square(4.0);};
static TSquare MakeTSquare(void) {return Square(4.0);};
};

6
Examples/perl5/class/runme.pl
View file

@ -52,5 +52,9 @@ $c->DESTROY();
$s->DESTROY(); $s->DESTROY();
print $example::Shape::nshapes," shapes remain\n"; print $example::Shape::nshapes," shapes remain\n";
print "Goodbye\n";
$square = example::CFoo::MakeSquare();
$tsquare = example::CFoo::MakeTSquare();
print "Areas ", $square->area(), " ", $tsquare->area(),"\n";
print "Goodbye\n";