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

Added more test cases

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@702 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-08-28 19:14:42 +00:00
commit 048d0eb804
2 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Examples/perl5/constants/example.i
View file

@ -6,7 +6,9 @@
#define ICONST 42
#define FCONST 2.1828
#define CCONST 'x'
#define CCONST2 '\n'
#define SCONST "Hello World"
#define SCONST2 "\"Hello World\""
/* This should work just fine */
#define EXPR ICONST + 3*(FCONST)

16
Examples/perl5/constants/example.pl
View file

@ -2,13 +2,15 @@
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 "SCONST = ", $example::SCONST, " (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";
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) {