From 2fc994e77447d47cd3ec59837db6d4b1a6fda718 Mon Sep 17 00:00:00 2001
From: Marcelo Matus <mmatus@acms.arizona.edu>
Date: Tue, 21 Dec 2004 08:03:49 +0000
Subject: [PATCH] add test case for bug #1071279

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6906 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Examples/perl5/class/example.h | 8 ++++++++
 Examples/perl5/class/runme.pl  | 6 +++++-
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/Examples/perl5/class/example.h b/Examples/perl5/class/example.h
index 46d901361..b0671d583 100644
--- a/Examples/perl5/class/example.h
+++ b/Examples/perl5/class/example.h
@@ -33,6 +33,14 @@ public:
   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);};
+};
+
 
 
 
diff --git a/Examples/perl5/class/runme.pl b/Examples/perl5/class/runme.pl
index b69d83ec0..076e1437b 100644
--- a/Examples/perl5/class/runme.pl
+++ b/Examples/perl5/class/runme.pl
@@ -52,5 +52,9 @@ $c->DESTROY();
 $s->DESTROY();
 
 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";