UseSWIG: Re-work test framework

1 files changed, 0 insertions, 57 deletions

diff --git a/Tests/SwigTest/runme.pl b/Tests/SwigTest/runme.pl
deleted file mode 100644
index 5bfb3d8..0000000
--- a/Tests/SwigTest/runme.pl
+++ /dev/null
@@ -1,57 +0,0 @@
-# file: runme.pl
-
-# This file illustrates the low-level C++ interface
-# created by SWIG.  In this case, all of our C++ classes
-# get converted into function calls.
-
-use example;
-
-# ----- Object creation -----
-
-print "Creating some objects:\n";
-$c = examplec::new_Circle(10);
-print "    Created circle $c\n";
-$s = examplec::new_Square(10);
-print "    Created square $s\n";
-
-# ----- Access a static member -----
-
-print "\nA total of $examplec::Shape_nshapes shapes were created\n";
-
-# ----- Member data access -----
-
-# Set the location of the object.
-# Note: methods in the base class Shape are used since
-# x and y are defined there.
-
-examplec::Shape_x_set($c, 20);
-examplec::Shape_y_set($c, 30);
-examplec::Shape_x_set($s,-10);
-examplec::Shape_y_set($s,5);
-
-print "\nHere is their current position:\n";
-print "    Circle = (",examplec::Shape_x_get($c),",", examplec::Shape_y_get($c),")\n";
-print "    Square = (",examplec::Shape_x_get($s),",", examplec::Shape_y_get($s),")\n";
-
-# ----- Call some methods -----
-
-print "\nHere are some properties of the shapes:\n";
-foreach $o ($c,$s) {
-      print "    $o\n";
-      print "        area      = ", examplec::Shape_area($o), "\n";
-      print "        perimeter = ", examplec::Shape_perimeter($o), "\n";
-  }
-# Notice how the Shape_area() and Shape_perimeter() functions really
-# invoke the appropriate virtual method on each object.
-
-# ----- Delete everything -----
-
-print "\nGuess I'll clean up now\n";
-
-# Note: this invokes the virtual destructor
-examplec::delete_Shape($c);
-examplec::delete_Shape($s);
-
-print $examplec::Shape_nshapes," shapes remain\n";
-print "Goodbye\n";
-