← Back to branch summary

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

« back to all changes in this revision

Viewing changes to Examples/test-suite/perl5/primitive_ref_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/primitive_ref_runme.pl
1
 
use primitive_ref;
 
1
use strict;
 
2
use warnings;
 
3
use Test::More tests => 14;
 
4
BEGIN { use_ok('primitive_ref') }
 
5
require_ok('primitive_ref');
2
6
 
3
 
if (primitive_ref::ref_int(3) != 3) {
4
 
    die "ref_int failed!\n";
5
 
}
6
 
if (primitive_ref::ref_uint(3) != 3) {
7
 
    die "ref_uint failed!\n";
8
 
}
9
 
if (primitive_ref::ref_short(3) != 3) {
10
 
    die "ref_short failed!\n";
11
 
}
12
 
if (primitive_ref::ref_ushort(3) != 3) {
13
 
    die "ref_ushort failed!\n";
14
 
}
15
 
if (primitive_ref::ref_long(3) != 3) {
16
 
    die "ref_long failed!\n";
17
 
}
18
 
if (primitive_ref::ref_ulong(3) != 3) {
19
 
    die "ref_ulong failed!\n";
20
 
}
21
 
if (primitive_ref::ref_schar(3) != 3) {
22
 
    die "ref_schar failed!\n";
23
 
}
24
 
if (primitive_ref::ref_uchar(3) != 3) {
25
 
    die "ref_uchar failed!\n";
26
 
}
27
 
if (primitive_ref::ref_bool(1) != 1) {
28
 
    die "ref_bool failed!\n";
29
 
}
30
 
if (primitive_ref::ref_float(3.5) != 3.5) {
31
 
    die "ref_float failed!\n";
32
 
}
33
 
if (primitive_ref::ref_double(3.5) != 3.5) {
34
 
    die "ref_double failed!\n";
35
 
}
36
 
if (primitive_ref::ref_char('x') != 'x') {
37
 
    die "ref_char failed!\n";
38
 
}
 
7
is(primitive_ref::ref_int(3), 3, "ref_int");
 
8
is(primitive_ref::ref_uint(3), 3, "ref_uint");
 
9
is(primitive_ref::ref_short(3), 3, "ref_short");
 
10
is(primitive_ref::ref_ushort(3), 3, "ref_ushort");
 
11
is(primitive_ref::ref_long(3), 3, "ref_long");
 
12
is(primitive_ref::ref_ulong(3), 3, "ref_ulong");
 
13
is(primitive_ref::ref_schar(3), 3, "ref_schar");
 
14
is(primitive_ref::ref_uchar(3), 3, "ref_uchar");
 
15
is(primitive_ref::ref_bool(1), 1, "ref_bool");
 
16
is(primitive_ref::ref_float(3.5), 3.5, "ref_float");
 
17
is(primitive_ref::ref_double(3.5), 3.5, "ref_double");
 
18
is(primitive_ref::ref_char('x'), 'x', "ref_char");