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 | |
| 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')
| -rw-r--r-- | bindings/perl/lang.py | 9 | ||||
| -rwxr-xr-x | bindings/perl/t/Lasso.t | 6 |
2 files changed, 12 insertions, 3 deletions
diff --git a/bindings/perl/lang.py b/bindings/perl/lang.py index 022fcc60..ba24b67d 100644 --- a/bindings/perl/lang.py +++ b/bindings/perl/lang.py @@ -323,8 +323,13 @@ INCLUDE: LassoNode.xs self.xs.pn(''' CLEANUP: g_object_unref(RETVAL);''') elif is_int(func.return_arg, self.binding_data): - self.xs.pn(''' CLEANUP: - gperl_lasso_error(RETVAL);''') + if name == 'lasso_check_version': + self.xs.pn(''' CLEANUP: + if (RETVAL != 1) + gperl_lasso_error(RETVAL);''') + else: + self.xs.pn(''' CLEANUP: + gperl_lasso_error(RETVAL);''') def generate_xs_getter_setter(self, struct, member): name = arg_name(member) 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); + |