Author: mvidner Date: Wed Jul 16 13:21:58 2008 New Revision: 49151 URL: http://svn.opensuse.org/viewcvs/yast?rev=49151&view=rev Log: Added some testing for typemaps inside struct (bnc#398815 deque) Modified: trunk/perl-bindings/pluglib-bindings/tests/std/List/test.pl trunk/perl-bindings/pluglib-bindings/tests/std/List/test_stdDeque.h trunk/perl-bindings/pluglib-bindings/tests/std/List/test_stdDeque.i trunk/perl-bindings/pluglib-bindings/tests/std/ListAbc/test.pl Modified: trunk/perl-bindings/pluglib-bindings/tests/std/List/test.pl URL: http://svn.opensuse.org/viewcvs/yast/trunk/perl-bindings/pluglib-bindings/tests/std/List/test.pl?rev=49151&r1=49150&r2=49151&view=diff ============================================================================== --- trunk/perl-bindings/pluglib-bindings/tests/std/List/test.pl (original) +++ trunk/perl-bindings/pluglib-bindings/tests/std/List/test.pl Wed Jul 16 13:21:58 2008 @@ -1,11 +1,25 @@ #!/usr/bin/perl +use Test::More tests => 2; use lib "./modules"; use test_stdList; use test_stdDeque; +use test_stdDeque::mystruct; use Data::Dumper; -#use Devel::Peek; +use Devel::Peek; + +$m = test_stdDeque::mystruct->new(); +$n = $m->swig_numbers_get(); +is_deeply($n, [], "empty number list"); + +$m->swig_numbers_set([7, 7, 7]); +$n = $m->swig_numbers_get(); +is_deeply($n, [7, 7, 7], "filled number list"); + +# FIXME make this a test, make other tests, +# split package, run test automatically, +# publish notes $i=[1,2,8,-10]; $ix1 = [ @$i ]; Modified: trunk/perl-bindings/pluglib-bindings/tests/std/List/test_stdDeque.h URL: http://svn.opensuse.org/viewcvs/yast/trunk/perl-bindings/pluglib-bindings/tests/std/List/test_stdDeque.h?rev=49151&r1=49150&r2=49151&view=diff ============================================================================== --- trunk/perl-bindings/pluglib-bindings/tests/std/List/test_stdDeque.h (original) +++ trunk/perl-bindings/pluglib-bindings/tests/std/List/test_stdDeque.h Wed Jul 16 13:21:58 2008 @@ -5,3 +5,7 @@ std::dequestd::string test_String(std::dequestd::string x); void test_RefInt(std::deque<int> &x); void test_PInt(std::deque<int> *x); + +struct mystruct { + std::deque<int> numbers; +}; Modified: trunk/perl-bindings/pluglib-bindings/tests/std/List/test_stdDeque.i URL: http://svn.opensuse.org/viewcvs/yast/trunk/perl-bindings/pluglib-bindings/tests/std/List/test_stdDeque.i?rev=49151&r1=49150&r2=49151&view=diff ============================================================================== --- trunk/perl-bindings/pluglib-bindings/tests/std/List/test_stdDeque.i (original) +++ trunk/perl-bindings/pluglib-bindings/tests/std/List/test_stdDeque.i Wed Jul 16 13:21:58 2008 @@ -3,6 +3,8 @@ %include "LiMaL.i" +%naturalvar mystruct::numbers; + %include "test_stdDeque.h" %{ #include "test_stdDeque.h" Modified: trunk/perl-bindings/pluglib-bindings/tests/std/ListAbc/test.pl URL: http://svn.opensuse.org/viewcvs/yast/trunk/perl-bindings/pluglib-bindings/tests/std/ListAbc/test.pl?rev=49151&r1=49150&r2=49151&view=diff ============================================================================== --- trunk/perl-bindings/pluglib-bindings/tests/std/ListAbc/test.pl (original) +++ trunk/perl-bindings/pluglib-bindings/tests/std/ListAbc/test.pl Wed Jul 16 13:21:58 2008 @@ -1,11 +1,21 @@ #!/usr/bin/perl +use Test::More tests => 3; use lib "./modules"; use test; +use test::abc; use Data::Dumper; #use Devel::Peek; +$d = test::abc->new(); +$d->swig_a_set(1); +$d->swig_b_set(-2); +$d->swig_c_set(3); +is($d->swig_a_get(), 1, ".a"); +is($d->swig_b_get(), -2, ".b"); +is($d->swig_c_get(), 3, ".c"); + $abc = []; $xyz = test::test_listAbc($abc); print Dumper($xyz); -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org