Corrected Perl binding and added test program.

1 files changed, 229 insertions, 0 deletions

diff --git a/perl/tests/binding_tests.pl b/perl/tests/binding_tests.pl
new file mode 100755
index 00000000..b519abee
--- /dev/null
+++ b/perl/tests/binding_tests.pl
@@ -0,0 +1,229 @@
+#!/usr/bin/env perl
+
+use lasso;
+
+sub test01 {
+    print "Create and delete nodes.";
+
+    my $authnRequest = new lasso::LibAuthnRequest;
+    undef $authnRequest;
+
+    print "..OK\n";
+}
+
+sub test02 {
+    print "Get & set simple attributes of nodes.";
+
+    my $authnRequest = new lasso::LibAuthnRequest;
+
+    # 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} = undef;
+    $authnRequest->{consent} eq undef or die "Assertion failed\n";
+
+    # Test a renamed string attribute.
+    $authnRequest->{relayState} eq undef or die "Assertion failed\n";
+    $authnRequest->{relayState} = 'Hello World!';
+    $authnRequest->{relayState} eq 'Hello World!' or die "Assertion failed\n";
+    $authnRequest->{relayState} = undef;
+    $authnRequest->{relayState} eq undef or die "Assertion failed\n";
+
+    # Test an integer attribute.
+    $authnRequest->{majorVersion} eq 0 or die "Assertion failed\n";
+    $authnRequest->{majorVersion} = 314;
+    $authnRequest->{majorVersion} eq 314 or die "Assertion failed\n";
+
+    undef $authnRequest;
+
+    print "..OK\n";
+}
+
+sub test03 {
+    print "Get & set attributes of nodes of type string list.";
+
+    my $authnRequest = new lasso::LibAuthnRequest;
+
+    $authnRequest->{respondWith} eq undef or die "Assertion failed\n";
+
+    my $respondWith = new lasso::StringList;
+    $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->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->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";
+    $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";
+    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";
+    $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";
+    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} = undef;
+    $authnRequest->{respondWith} eq undef or die "Assertion failed\n";
+
+    undef $authnRequest;
+
+    print "..OK\n";
+}
+
+sub test04 {
+    print "Get & set attributes of nodes of type node list.";
+
+    my $response = new lasso::SamlpResponse;
+
+    $response->{assertion} eq undef or die "Assertion failed\n";
+
+    my $assertions = new lasso::NodeList;
+    $assertions->length eq 0 or die "Assertion failed\n";
+    my $assertion1 = new lasso::SamlAssertion;
+    $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";
+    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";
+    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";
+    $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";
+    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";
+    $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";
+    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} = undef;
+    $response->{assertion} eq undef or die "Assertion failed\n";
+
+    undef $response;
+
+    print "..OK\n";
+}
+
+sub test05 {
+    print "Get & set attributes of nodes of type XML list.";
+
+    my $authnRequest = new lasso::LibAuthnRequest;
+
+    $authnRequest->{extension} eq undef or die "Assertion failed\n";
+
+    my $actionString1 = '<lib:Extension xmlns:lib="urn:liberty:iff:2003-08">
+  <action>do 1</action>
+</lib:Extension>';
+    my $actionString2 = '<lib:Extension xmlns:lib="urn:liberty:iff:2003-08">
+  <action>do 2</action>
+</lib:Extension>';
+    my $actionString3 = '<lib:Extension xmlns:lib="urn:liberty:iff:2003-08">
+  <action>do 3</action>
+</lib:Extension>';
+    my $extension = new lasso::StringList;
+    $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->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->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";
+    $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";
+    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";
+    $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";
+    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} = undef;
+    $authnRequest->{extension} eq undef or die "Assertion failed\n";
+
+    undef $authnRequest;
+
+    print "..OK\n";
+}
+
+sub test06 {
+    print "Get & set attributes of nodes of type node.";
+
+    my $login = new lasso::Login(new lasso::Server);
+
+    $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";
+    undef $login->{request};
+    $login->{request} eq undef or die "Assertion failed\n";
+
+    undef $login;
+
+    print "..OK\n";
+}
+
+lasso::init;
+test01;
+test02;
+test03;
+test04;
+test05;
+test06;
+lasso::shutdown();