diff options
author | Benjamin Dauvergne <bdauvergne@entrouvert.com> | 2010-01-29 16:42:35 +0000 |
---|---|---|
committer | Benjamin Dauvergne <bdauvergne@entrouvert.com> | 2010-01-29 16:42:35 +0000 |
commit | 2a2666a0d961dcd969400e50ece7fd4ba60619eb (patch) | |
tree | c792c1fb38e729fbdbc2c0e84696dfc4b92803fd /bindings/perl/t | |
parent | afdb5238875fed7bf1bb854b2b7b9eb7b9beb833 (diff) | |
download | lasso-2a2666a0d961dcd969400e50ece7fd4ba60619eb.tar.gz lasso-2a2666a0d961dcd969400e50ece7fd4ba60619eb.tar.xz lasso-2a2666a0d961dcd969400e50ece7fd4ba60619eb.zip |
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.
Diffstat (limited to 'bindings/perl/t')
-rwxr-xr-x | bindings/perl/t/Lasso.t | 6 |
1 files changed, 5 insertions, 1 deletions
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); + |