diff options
-rwxr-xr-x | perl/tests/binding_tests.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/tests/binding_tests.pl b/perl/tests/binding_tests.pl index 287f62ef..f5cb2420 100755 --- a/perl/tests/binding_tests.pl +++ b/perl/tests/binding_tests.pl @@ -238,8 +238,8 @@ sub test06 { $login->{request} eq undef or die "Assertion failed\n"; $login->{request} = new lasso::LibAuthnRequest; - $login->{request}->{consent} = lasso::LIB_CONSENT_OBTAINED; - $login->{request}->{consent} eq lasso::LIB_CONSENT_OBTAINED or die "Assertion failed\n"; + $login->{request}->{consent} = $lasso::LIB_CONSENT_OBTAINED; + $login->{request}->{consent} eq $lasso::LIB_CONSENT_OBTAINED or die "Assertion failed\n"; undef $login->{request}; $login->{request} eq undef or die "Assertion failed\n"; |