Author: mvidner Date: Mon Jul 14 18:15:48 2008 New Revision: 49077 URL: http://svn.opensuse.org/viewcvs/yast?rev=49077&view=rev Log: added test code for bnc#408829 TODO: integrate with make all, check Modified: trunk/perl-bindings/pluglib-bindings/tests/Reference/Ref.cc trunk/perl-bindings/pluglib-bindings/tests/Reference/Ref.h trunk/perl-bindings/pluglib-bindings/tests/Reference/test.pl trunk/perl-bindings/pluglib-bindings/tests/Reference/test.ycp Modified: trunk/perl-bindings/pluglib-bindings/tests/Reference/Ref.cc URL: http://svn.opensuse.org/viewcvs/yast/trunk/perl-bindings/pluglib-bindings/tests/Reference/Ref.cc?rev=49077&r1=49076&r2=49077&view=diff ============================================================================== --- trunk/perl-bindings/pluglib-bindings/tests/Reference/Ref.cc (original) +++ trunk/perl-bindings/pluglib-bindings/tests/Reference/Ref.cc Mon Jul 14 18:15:48 2008 @@ -29,6 +29,17 @@ *l=*l+2; } +void RLLong(long long int& x) +{ + x *= 3; +} + +void PLLong(long long int* x) +{ + x += 3; +} + + e Enum(e l) { return l; Modified: trunk/perl-bindings/pluglib-bindings/tests/Reference/Ref.h URL: http://svn.opensuse.org/viewcvs/yast/trunk/perl-bindings/pluglib-bindings/tests/Reference/Ref.h?rev=49077&r1=49076&r2=49077&view=diff ============================================================================== --- trunk/perl-bindings/pluglib-bindings/tests/Reference/Ref.h (original) +++ trunk/perl-bindings/pluglib-bindings/tests/Reference/Ref.h Mon Jul 14 18:15:48 2008 @@ -11,6 +11,9 @@ void RInt(int& x); void PInt(int* x); +void RLLong(long long int& x); +void PLLong(long long int* x); + e Enum(e x); void REnum(e& x); void PEnum(enum e* x); Modified: trunk/perl-bindings/pluglib-bindings/tests/Reference/test.pl URL: http://svn.opensuse.org/viewcvs/yast/trunk/perl-bindings/pluglib-bindings/tests/Reference/test.pl?rev=49077&r1=49076&r2=49077&view=diff ============================================================================== --- trunk/perl-bindings/pluglib-bindings/tests/Reference/test.pl (original) +++ trunk/perl-bindings/pluglib-bindings/tests/Reference/test.pl Mon Jul 14 18:15:48 2008 @@ -20,6 +20,14 @@ Ref::PInt(\$s); print "$s\n"; +# bnc#408829 +$s = 5000000000; +print "$s\n"; +Ref::RLLong(\$s); +print "$s\n"; +Ref::PLLong(\$s); +print "$s\n"; + $b = 0; print "$b\n"; Ref::RBool(\$b); Modified: trunk/perl-bindings/pluglib-bindings/tests/Reference/test.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/perl-bindings/pluglib-bindings/tests/Reference/test.ycp?rev=49077&r1=49076&r2=49077&view=diff ============================================================================== --- trunk/perl-bindings/pluglib-bindings/tests/Reference/test.ycp (original) +++ trunk/perl-bindings/pluglib-bindings/tests/Reference/test.ycp Mon Jul 14 18:15:48 2008 @@ -17,6 +17,14 @@ Ref::PInt(i); y2warning("i=%1", i); +// bnc#408829 +integer l = 5000000000; +y2warning("l=%1", l); +Ref::RLLong(l); +y2warning("l=%1", l); +Ref::PLLong(l); +y2warning("l=%1", l); + boolean b = false; y2warning("b=%1", b); Ref::RBool(b); -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org