diff options
| author | Emmanuel Raviart <eraviart@entrouvert.com> | 2005-01-22 14:59:33 +0000 |
|---|---|---|
| committer | Emmanuel Raviart <eraviart@entrouvert.com> | 2005-01-22 14:59:33 +0000 |
| commit | df29bb95b1017de3499eb53ae542c51692d229eb (patch) | |
| tree | c385a8b2e14a604b1aaf7ddb8ead230f25cd1027 /perl | |
| parent | bc4ab9c01302a9bb8d981cfe7955c88e74d1b1a3 (diff) | |
| download | lasso-df29bb95b1017de3499eb53ae542c51692d229eb.tar.gz lasso-df29bb95b1017de3499eb53ae542c51692d229eb.tar.xz lasso-df29bb95b1017de3499eb53ae542c51692d229eb.zip | |
SWIG: Renamed constants from camelCase to UPPER_CASE.
Diffstat (limited to 'perl')
| -rwxr-xr-x | perl/tests/binding_tests.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl/tests/binding_tests.pl b/perl/tests/binding_tests.pl index ea0e618c..3beaabdc 100755 --- a/perl/tests/binding_tests.pl +++ b/perl/tests/binding_tests.pl @@ -47,8 +47,8 @@ sub test02 { # Test a string attribute. $authnRequest->{consent} eq undef or die "Assertion failed\n"; - $authnRequest->{consent} = $lasso::libConsentObtained; - $authnRequest->{consent} eq $lasso::libConsentObtained or die "Assertion failed\n"; + $authnRequest->{consent} = $lasso::LIB_CONSENT_OBTAINED; + $authnRequest->{consent} eq $lasso::LIB_CONSENT_OBTAINED or die "Assertion failed\n"; $authnRequest->{consent} = undef; $authnRequest->{consent} eq undef or die "Assertion failed\n"; @@ -238,8 +238,8 @@ sub test06 { $login->{request} eq undef or die "Assertion failed\n"; $login->{request} = new lasso::LibAuthnRequest; - $login->{request}->{consent} = lasso::libConsentObtained; - $login->{request}->{consent} eq lasso::libConsentObtained 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"; |