From 2a2666a0d961dcd969400e50ece7fd4ba60619eb Mon Sep 17 00:00:00 2001 From: Benjamin Dauvergne Date: Fri, 29 Jan 2010 16:42:35 +0000 Subject: Binding perl: special case for lasso_check_version * bindings/perl/lang.py: special case lasso_check_version for not raising an error when it returns 1. * bindings/perl/t/Lasso.t: add a non regression test. --- bindings/perl/t/Lasso.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'bindings/perl/t') diff --git a/bindings/perl/t/Lasso.t b/bindings/perl/t/Lasso.t index 9aa05301..7b88c959 100755 --- a/bindings/perl/t/Lasso.t +++ b/bindings/perl/t/Lasso.t @@ -5,7 +5,7 @@ # change 'tests => 1' to 'tests => last_test_to_print'; -use Test::More tests => 8; +use Test::More tests => 10; use Lasso; use Data::Dumper; use Error qw(:try); @@ -38,3 +38,7 @@ ok($@->{code} == -409); $server = new Lasso::Server($SRCDIR . "/tests/data/sp5-saml2/metadata.xml", $SRCDIR . "/tests/data/sp5-saml2/private-key.pem"); ok($server); $server->add_provider(Lasso::Constants::PROVIDER_ROLE_IDP, $SRCDIR . "/tests/data/idp5-saml2/metadata.xml"); + +ok(Lasso::check_version(2,2,90, Lasso::Constants::CHECK_VERSION_NUMERIC) == 1); +ok(Lasso::check_version(2,2,90, Lasso::Constants::CHECK_VERSION_EXACT) == 0); + -- cgit