diff options
author | Derrick <a11426@users.sourceforge.net> | 2011-02-14 20:11:58 +0000 |
---|---|---|
committer | Derrick <a11426@users.sourceforge.net> | 2011-02-14 20:11:58 +0000 |
commit | 5815f7ec289e067e765fb8e893a2f337d8b48303 (patch) | |
tree | ebe9e0534a089fe431cedc6fdbc1a53ac523d70c /Examples/test-suite/perl5/primitive_types_runme.pl | |
parent | 3e1af1f698d5d02d7905431bcb3549c0f7bc9aa7 (diff) | |
parent | 1fab53b2046b97702e1de4cfab06cb8fa8fc129d (diff) | |
download | swig-5815f7ec289e067e765fb8e893a2f337d8b48303.tar.gz |
update fortran branch. merge of 12160:12460a11426-fortran
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/a11426-fortran@12461 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Examples/test-suite/perl5/primitive_types_runme.pl')
-rwxr-xr-x | Examples/test-suite/perl5/primitive_types_runme.pl | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/Examples/test-suite/perl5/primitive_types_runme.pl b/Examples/test-suite/perl5/primitive_types_runme.pl index 6d7b05d8d..31604ad06 100755 --- a/Examples/test-suite/perl5/primitive_types_runme.pl +++ b/Examples/test-suite/perl5/primitive_types_runme.pl @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More tests => 54; +use Test::More tests => 51; BEGIN { use_ok('primitive_types') } require_ok('primitive_types'); @@ -179,11 +179,6 @@ $t->{var_namet} = 'hol'; is($t->{var_namet}, 'hol', "namet"); -is($t->strlen('hile'), 4, "string typemap"); - -is($t->strlen("hil\0"), 4, "string typemap"); - - $primitive_types::var_char = "\0"; is($primitive_types::var_char, "\0", "char '0' case"); @@ -220,8 +215,6 @@ primitive_types::pchar_setitem($pc, 3, 'a'); primitive_types::pchar_setitem($pc, 4, 0); -is($t->strlen($pc), 4, "string typemap"); - $primitive_types::var_pchar = $pc; is($primitive_types::var_pchar, "hola", "pointer case"); |