SWIG: Renamed getitem to getItem. Idem for setitem.

Java: Added a third binding test.
PHP: Corrected header of binding test.

1 files changed, 72 insertions, 66 deletions

diff --git a/perl/tests/binding_tests.pl b/perl/tests/binding_tests.pl
index c8766ed2..ea0e618c 100755
--- a/perl/tests/binding_tests.pl
+++ b/perl/tests/binding_tests.pl
@@ -23,6 +23,12 @@
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
+
+# To use this program, first install Lasso Perl binding, by executing the
+# command:
+#     su -c "cd ..; make install-perl"
+
+
 use lasso;
 
 sub test01 {
@@ -74,36 +80,36 @@ sub test03 {
     $respondWith->length eq 0 or die "Assertion failed\n";
     $respondWith->append('first string');
     $respondWith->length eq 1 or die "Assertion failed\n";
-    $respondWith->getitem(0) eq 'first string' or die "Assertion failed\n";
-    $respondWith->getitem(0) eq 'first string' or die "Assertion failed\n";
+    $respondWith->getItem(0) eq 'first string' or die "Assertion failed\n";
+    $respondWith->getItem(0) eq 'first string' or die "Assertion failed\n";
     $respondWith->append('second string');
     $respondWith->length eq 2 or die "Assertion failed\n";
-    $respondWith->getitem(0) eq 'first string' or die "Assertion failed\n";
-    $respondWith->getitem(1) eq 'second string' or die "Assertion failed\n";
+    $respondWith->getItem(0) eq 'first string' or die "Assertion failed\n";
+    $respondWith->getItem(1) eq 'second string' or die "Assertion failed\n";
     $respondWith->append('third string');
     $respondWith->length eq 3 or die "Assertion failed\n";
-    $respondWith->getitem(0) eq 'first string' or die "Assertion failed\n";
-    $respondWith->getitem(1) eq 'second string' or die "Assertion failed\n";
-    $respondWith->getitem(2) eq 'third string' or die "Assertion failed\n";
+    $respondWith->getItem(0) eq 'first string' or die "Assertion failed\n";
+    $respondWith->getItem(1) eq 'second string' or die "Assertion failed\n";
+    $respondWith->getItem(2) eq 'third string' or die "Assertion failed\n";
     $authnRequest->{respondWith} = $respondWith;
-    $authnRequest->{respondWith}->getitem(0) eq 'first string' or die "Assertion failed\n";
-    $authnRequest->{respondWith}->getitem(1) eq 'second string' or die "Assertion failed\n";
-    $authnRequest->{respondWith}->getitem(2) eq 'third string' or die "Assertion failed\n";
-    $respondWith->getitem(0) eq 'first string' or die "Assertion failed\n";
-    $respondWith->getitem(1) eq 'second string' or die "Assertion failed\n";
-    $respondWith->getitem(2) eq 'third string' or die "Assertion failed\n";
+    $authnRequest->{respondWith}->getItem(0) eq 'first string' or die "Assertion failed\n";
+    $authnRequest->{respondWith}->getItem(1) eq 'second string' or die "Assertion failed\n";
+    $authnRequest->{respondWith}->getItem(2) eq 'third string' or die "Assertion failed\n";
+    $respondWith->getItem(0) eq 'first string' or die "Assertion failed\n";
+    $respondWith->getItem(1) eq 'second string' or die "Assertion failed\n";
+    $respondWith->getItem(2) eq 'third string' or die "Assertion failed\n";
     undef $respondWith;
-    $authnRequest->{respondWith}->getitem(0) eq 'first string' or die "Assertion failed\n";
-    $authnRequest->{respondWith}->getitem(1) eq 'second string' or die "Assertion failed\n";
-    $authnRequest->{respondWith}->getitem(2) eq 'third string' or die "Assertion failed\n";
+    $authnRequest->{respondWith}->getItem(0) eq 'first string' or die "Assertion failed\n";
+    $authnRequest->{respondWith}->getItem(1) eq 'second string' or die "Assertion failed\n";
+    $authnRequest->{respondWith}->getItem(2) eq 'third string' or die "Assertion failed\n";
     $respondWith = $authnRequest->{respondWith};
-    $respondWith->getitem(0) eq 'first string' or die "Assertion failed\n";
-    $respondWith->getitem(1) eq 'second string' or die "Assertion failed\n";
-    $respondWith->getitem(2) eq 'third string' or die "Assertion failed\n";
+    $respondWith->getItem(0) eq 'first string' or die "Assertion failed\n";
+    $respondWith->getItem(1) eq 'second string' or die "Assertion failed\n";
+    $respondWith->getItem(2) eq 'third string' or die "Assertion failed\n";
     undef $respondWith;
-    $authnRequest->{respondWith}->getitem(0) eq 'first string' or die "Assertion failed\n";
-    $authnRequest->{respondWith}->getitem(1) eq 'second string' or die "Assertion failed\n";
-    $authnRequest->{respondWith}->getitem(2) eq 'third string' or die "Assertion failed\n";
+    $authnRequest->{respondWith}->getItem(0) eq 'first string' or die "Assertion failed\n";
+    $authnRequest->{respondWith}->getItem(1) eq 'second string' or die "Assertion failed\n";
+    $authnRequest->{respondWith}->getItem(2) eq 'third string' or die "Assertion failed\n";
     $authnRequest->{respondWith} = undef;
     $authnRequest->{respondWith} eq undef or die "Assertion failed\n";
 
@@ -125,40 +131,40 @@ sub test04 {
     $assertion1->{assertionId} = 'assertion 1';
     $assertions->append($assertion1);
     $assertions->length eq 1 or die "Assertion failed\n";
-    $assertions->getitem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
-    $assertions->getitem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
+    $assertions->getItem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
+    $assertions->getItem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
     my $assertion2 = new lasso::SamlAssertion;
     $assertion2->{assertionId} = 'assertion 2';
     $assertions->append($assertion2);
     $assertions->length eq 2 or die "Assertion failed\n";
-    $assertions->getitem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
-    $assertions->getitem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
+    $assertions->getItem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
+    $assertions->getItem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
     my $assertion3 = new lasso::SamlAssertion;
     $assertion3->{assertionId} = 'assertion 3';
     $assertions->append($assertion3);
     $assertions->length eq 3 or die "Assertion failed\n";
-    $assertions->getitem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
-    $assertions->getitem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
-    $assertions->getitem(2)->{assertionId} eq 'assertion 3' or die "Assertion failed\n";
+    $assertions->getItem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
+    $assertions->getItem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
+    $assertions->getItem(2)->{assertionId} eq 'assertion 3' or die "Assertion failed\n";
     $response->{assertion} = $assertions;
-    $response->{assertion}->getitem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
-    $response->{assertion}->getitem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
-    $response->{assertion}->getitem(2)->{assertionId} eq 'assertion 3' or die "Assertion failed\n";
-    $assertions->getitem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
-    $assertions->getitem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
-    $assertions->getitem(2)->{assertionId} eq 'assertion 3' or die "Assertion failed\n";
+    $response->{assertion}->getItem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
+    $response->{assertion}->getItem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
+    $response->{assertion}->getItem(2)->{assertionId} eq 'assertion 3' or die "Assertion failed\n";
+    $assertions->getItem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
+    $assertions->getItem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
+    $assertions->getItem(2)->{assertionId} eq 'assertion 3' or die "Assertion failed\n";
     undef $assertions;
-    $response->{assertion}->getitem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
-    $response->{assertion}->getitem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
-    $response->{assertion}->getitem(2)->{assertionId} eq 'assertion 3' or die "Assertion failed\n";
+    $response->{assertion}->getItem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
+    $response->{assertion}->getItem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
+    $response->{assertion}->getItem(2)->{assertionId} eq 'assertion 3' or die "Assertion failed\n";
     $assertions = $response->{assertion};
-    $assertions->getitem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
-    $assertions->getitem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
-    $assertions->getitem(2)->{assertionId} eq 'assertion 3' or die "Assertion failed\n";
+    $assertions->getItem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
+    $assertions->getItem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
+    $assertions->getItem(2)->{assertionId} eq 'assertion 3' or die "Assertion failed\n";
     undef $assertions;
-    $response->{assertion}->getitem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
-    $response->{assertion}->getitem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
-    $response->{assertion}->getitem(2)->{assertionId} eq 'assertion 3' or die "Assertion failed\n";
+    $response->{assertion}->getItem(0)->{assertionId} eq 'assertion 1' or die "Assertion failed\n";
+    $response->{assertion}->getItem(1)->{assertionId} eq 'assertion 2' or die "Assertion failed\n";
+    $response->{assertion}->getItem(2)->{assertionId} eq 'assertion 3' or die "Assertion failed\n";
     $response->{assertion} = undef;
     $response->{assertion} eq undef or die "Assertion failed\n";
 
@@ -187,36 +193,36 @@ sub test05 {
     $extension->length eq 0 or die "Assertion failed\n";
     $extension->append($actionString1);
     $extension->length eq 1 or die "Assertion failed\n";
-    $extension->getitem(0) eq $actionString1 or die "Assertion failed\n";
-    $extension->getitem(0) eq $actionString1 or die "Assertion failed\n";
+    $extension->getItem(0) eq $actionString1 or die "Assertion failed\n";
+    $extension->getItem(0) eq $actionString1 or die "Assertion failed\n";
     $extension->append($actionString2);
     $extension->length eq 2 or die "Assertion failed\n";
-    $extension->getitem(0) eq $actionString1 or die "Assertion failed\n";
-    $extension->getitem(1) eq $actionString2 or die "Assertion failed\n";
+    $extension->getItem(0) eq $actionString1 or die "Assertion failed\n";
+    $extension->getItem(1) eq $actionString2 or die "Assertion failed\n";
     $extension->append($actionString3);
     $extension->length eq 3 or die "Assertion failed\n";
-    $extension->getitem(0) eq $actionString1 or die "Assertion failed\n";
-    $extension->getitem(1) eq $actionString2 or die "Assertion failed\n";
-    $extension->getitem(2) eq $actionString3 or die "Assertion failed\n";
+    $extension->getItem(0) eq $actionString1 or die "Assertion failed\n";
+    $extension->getItem(1) eq $actionString2 or die "Assertion failed\n";
+    $extension->getItem(2) eq $actionString3 or die "Assertion failed\n";
     $authnRequest->{extension} = $extension;
-    $authnRequest->{extension}->getitem(0) eq $actionString1 or die "Assertion failed\n";
-    $authnRequest->{extension}->getitem(1) eq $actionString2 or die "Assertion failed\n";
-    $authnRequest->{extension}->getitem(2) eq $actionString3 or die "Assertion failed\n";
-    $extension->getitem(0) eq $actionString1 or die "Assertion failed\n";
-    $extension->getitem(1) eq $actionString2 or die "Assertion failed\n";
-    $extension->getitem(2) eq $actionString3 or die "Assertion failed\n";
+    $authnRequest->{extension}->getItem(0) eq $actionString1 or die "Assertion failed\n";
+    $authnRequest->{extension}->getItem(1) eq $actionString2 or die "Assertion failed\n";
+    $authnRequest->{extension}->getItem(2) eq $actionString3 or die "Assertion failed\n";
+    $extension->getItem(0) eq $actionString1 or die "Assertion failed\n";
+    $extension->getItem(1) eq $actionString2 or die "Assertion failed\n";
+    $extension->getItem(2) eq $actionString3 or die "Assertion failed\n";
     undef $extension;
-    $authnRequest->{extension}->getitem(0) eq $actionString1 or die "Assertion failed\n";
-    $authnRequest->{extension}->getitem(1) eq $actionString2 or die "Assertion failed\n";
-    $authnRequest->{extension}->getitem(2) eq $actionString3 or die "Assertion failed\n";
+    $authnRequest->{extension}->getItem(0) eq $actionString1 or die "Assertion failed\n";
+    $authnRequest->{extension}->getItem(1) eq $actionString2 or die "Assertion failed\n";
+    $authnRequest->{extension}->getItem(2) eq $actionString3 or die "Assertion failed\n";
     $extension = $authnRequest->{extension};
-    $extension->getitem(0) eq $actionString1 or die "Assertion failed\n";
-    $extension->getitem(1) eq $actionString2 or die "Assertion failed\n";
-    $extension->getitem(2) eq $actionString3 or die "Assertion failed\n";
+    $extension->getItem(0) eq $actionString1 or die "Assertion failed\n";
+    $extension->getItem(1) eq $actionString2 or die "Assertion failed\n";
+    $extension->getItem(2) eq $actionString3 or die "Assertion failed\n";
     undef $extension;
-    $authnRequest->{extension}->getitem(0) eq $actionString1 or die "Assertion failed\n";
-    $authnRequest->{extension}->getitem(1) eq $actionString2 or die "Assertion failed\n";
-    $authnRequest->{extension}->getitem(2) eq $actionString3 or die "Assertion failed\n";
+    $authnRequest->{extension}->getItem(0) eq $actionString1 or die "Assertion failed\n";
+    $authnRequest->{extension}->getItem(1) eq $actionString2 or die "Assertion failed\n";
+    $authnRequest->{extension}->getItem(2) eq $actionString3 or die "Assertion failed\n";
     $authnRequest->{extension} = undef;
     $authnRequest->{extension} eq undef or die "Assertion failed\n";