This is an automated email from the git hooks/post-receive script. js pushed a commit to tag 0.55 in repository libinline-java-perl.
commit 6ad27fafe9ca8118e155024dbe60db96dd7a239c Author: Patrick LeBoutillier <[email protected]> Date: Fri Jun 1 17:26:14 2001 +0000 added Number tests --- t/02_primitives.t | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/t/02_primitives.t b/t/02_primitives.t index 6a0e146..360c445 100644 --- a/t/02_primitives.t +++ b/t/02_primitives.t @@ -10,7 +10,7 @@ use Inline( BEGIN { - plan(tests => 100) ; + plan(tests => 106) ; } @@ -109,6 +109,16 @@ ok($t->_Double("$min") == $min) ; eval {$t->_Double($max + $max)} ; ok($@, qr/out of range/) ; eval {$t->_Double($min + $min)} ; ok($@, qr/out of range/) ; +# Number is forced to Double +$max = 3.4028235e38 ; +$min = -3.4028235e38 ; +ok($t->_Number(undef) == 0) ; +ok($t->_Number(0) == 0) ; +ok($t->_Number($max) == $max) ; +ok($t->_Number("$min") == $min) ; +eval {$t->_Number($max + $max)} ; ok($@, qr/out of range/) ; +eval {$t->_Number($min + $min)} ; ok($@, qr/out of range/) ; + ok(! $t->_boolean(undef)) ; ok(! $t->_boolean(0)) ; ok(! $t->_boolean("")) ; @@ -202,6 +212,10 @@ class types { return d ; } + public Number _Number(Number n){ + return n ; + } + public boolean _boolean(boolean b){ return b ; } -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
