From 1101690f292b76c72f8f46ce0f045d01c06bb3a2 Mon Sep 17 00:00:00 2001
From: gggeek <giunta.gaetano@gmail.com>
Date: Thu, 31 Dec 2020 14:37:09 +0000
Subject: [PATCH] tests

---
 extras/test.pl               | 32 ++++++++++++++++----------------
 extras/test.py               |  3 ---
 tests/ci/setup/setup_perl.sh |  2 +-
 3 files changed, 17 insertions(+), 20 deletions(-)

diff --git a/extras/test.pl b/extras/test.pl
index 320fbe69..8eee3740 100644
--- a/extras/test.pl
+++ b/extras/test.pl
@@ -2,7 +2,7 @@
 
 use Frontier::Client;
 
-my $serverURL='http://gggeek.altervista.org/sw/xmlrpc/demo/server/server.php';
+my $serverURL='http://localhost/demo/server/server.php';
 
 # try the simplest example
 
@@ -15,21 +15,21 @@ print "Got '${resp}'\n";
 
 # now send a mail to nobody in particular
 
-$resp = $client->call("mail.send", (
-    "edd",
-    "Test",
-    "Bonjour. Je m'appelle Gérard. Mañana. ",
-    "freddy",
-    "",
-    "",
-    'text/plain; charset="iso-8859-1"')
-);
-
-if ($resp->value()) {
-    print "Mail sent OK.\n";
-} else {
-    print "Error sending mail.\n";
-}
+#$resp = $client->call("mail.send", (
+#    "edd",
+#    "Test",
+#    "Bonjour. Je m'appelle Gérard. Mañana. ",
+#    "freddy",
+#    "",
+#    "",
+#    'text/plain; charset="iso-8859-1"')
+#);
+#
+#if ($resp->value()) {
+#    print "Mail sent OK.\n";
+#} else {
+#    print "Error sending mail.\n";
+#}
 
 # test echoing of characters works fine
 
diff --git a/extras/test.py b/extras/test.py
index 9dbd7094..ff81e286 100644
--- a/extras/test.py
+++ b/extras/test.py
@@ -25,7 +25,6 @@ try:
     print (r)
 
     # name/age example. this exercises structs and arrays
-
     a = [ 
             {'name': 'Dave', 'age': 35}, {'name': 'Edd', 'age': 45 },
             {'name': 'Fred', 'age': 23}, {'name': 'Barney', 'age': 36 }
@@ -36,7 +35,6 @@ try:
     # test base 64
     b = 'Mary had a little lamb She tied it to a pylon'
     b = base64.b64encode(b.encode('ascii'))
-    #print(b)
     r = server.examples.decode64(b)
     print (r)
     
@@ -44,4 +42,3 @@ except xmlrpc.client.Fault as err:
     print("A fault occurred")
     print("Fault code: %d" % err.faultCode)
     print("Fault string: %s" % err.faultString)
-
diff --git a/tests/ci/setup/setup_perl.sh b/tests/ci/setup/setup_perl.sh
index a4278f71..cf4253de 100644
--- a/tests/ci/setup/setup_perl.sh
+++ b/tests/ci/setup/setup_perl.sh
@@ -7,7 +7,7 @@
 set -e
 
 DEBIAN_FRONTEND=noninteractive apt-get install -y \
-    apt install libexpat1-dev
+    libexpat1-dev
 
 yes | perl -MCPAN -e 'install XML::Parser'
 yes | perl -MCPAN -e 'install Frontier::Client'
-- 
2.47.0