Imported from /srv/lorry/lorry-area/swig-tarball/swig-1.3.40.tar.gz.HEADswig-1.3.40master

1 files changed, 29 insertions, 0 deletions

diff --git a/Examples/perl5/constants/runme.pl b/Examples/perl5/constants/runme.pl
new file mode 100644
index 0000000..6e8a6ed
--- /dev/null
+++ b/Examples/perl5/constants/runme.pl
@@ -0,0 +1,29 @@
+# file: runme.pl
+
+use example;
+
+print "ICONST  = ", $example::ICONST, " (should be 42)\n";
+print "FCONST  = ", $example::FCONST, " (should be 2.1828)\n";
+print "CCONST  = ", $example::CCONST, " (should be 'x')\n";
+print "CCONST2 = ", $example::CCONST2," (this should be on a new line)\n";
+print "SCONST  = ", $example::SCONST, " (should be 'Hello World')\n";
+print "SCONST2 = ", $example::SCONST2, " (should be '\"Hello World\"')\n";
+print "EXPR    = ", $example::EXPR,   " (should be 48.5484)\n";
+print "iconst  = ", $example::iconst, " (should be 37)\n";
+print "fconst  = ", $example::fconst, " (should be 3.14)\n";
+
+
+if ($example::EXTERN) {
+    print "EXTERN = ", example.EXTERN, " (Arg! This shouldn't print anything)\n";
+} else {
+    print "EXTERN isn't defined (good)\n";
+}
+
+if ($example::FOO) {
+    print "FOO    = ", example.FOO, "(Arg! This shouldn't print anything)\n";
+} else {
+    print "FOO isn't defined (good)\n";
+}
+
+
+