← Back to branch summary

~ubuntu-branches/ubuntu/maverick/swig1.3/maverick

« back to all changes in this revision

Viewing changes to Examples/test-suite/perl5/apply_strings_runme.pl

  • Committer: Bazaar Package Importer
  • Author(s): Michael Vogt
  • Date: 2008-11-10 16:29:56 UTC
  • mfrom: (1.2.8 upstream) (2.1.3 lenny)
  • Revision ID: james.westby@ubuntu.com-20081110162956-xue6itkuqhbza87s
Tags: 1.3.36-1ubuntu1
* Merge from debian unstable, remaining changes:
  - Drop pike and libchicken-dev from the build-depends 
    (both are universe)
  - Use python2.5 instead of python2.4.
  - use php5
  - Clean Runtime/ as well.
  - debian/Rules (clean): Remove Lib/ocaml/swigp4.ml.
  - drop "--without-mzscheme", we don't have it in our build-depends

Show diffs side-by-side

added added

removed removed

Lines of Context:
Examples/test-suite/perl5/apply_strings_runme.pl
1
 
use apply_strings;
 
1
use strict;
 
2
use warnings;
 
3
use Test::More tests => 4;
 
4
BEGIN { use_ok('apply_strings') }
 
5
require_ok('apply_strings');
2
6
 
3
7
my $TEST_MESSAGE = "A message from target language to the C++ world and back again.";
4
8
 
5
 
if (apply_strings::UCharFunction($TEST_MESSAGE) ne $TEST_MESSAGE) {
6
 
  die "UCharFunction failed";
7
 
}
8
 
if (apply_strings::SCharFunction($TEST_MESSAGE) ne $TEST_MESSAGE) {
9
 
  die "SCharFunction failed";
10
 
}
 
9
is(apply_strings::UCharFunction($TEST_MESSAGE), $TEST_MESSAGE, "UCharFunction"); 
 
10
 
 
11
is(apply_strings::SCharFunction($TEST_MESSAGE), $TEST_MESSAGE, "SCharFunction");