From 29b3d79dcb11af5783db288aa7d654a6183d3154 Mon Sep 17 00:00:00 2001
From: Benjamin Sonntag <benjamin@alternc.org>
Date: Tue, 2 Oct 2007 16:35:55 +0000
Subject: [PATCH] adding test cases using libtest-www-mechanize-perl

---
 .gitattributes     |   2 +
 tests/mechdump.pm  |  29 +++++++++++++
 tests/test_demo.pl | 105 +++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 136 insertions(+)
 create mode 100644 tests/mechdump.pm
 create mode 100755 tests/test_demo.pl

diff --git a/.gitattributes b/.gitattributes
index e3fc804e..cebecc78 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -352,6 +352,8 @@ src/slave_dns -text
 src/spoolsize.php -text
 src/sqlbackup.sh -text
 src/update_domains.sh -text
+tests/mechdump.pm -text
+tests/test_demo.pl -text
 tests/whois_test.php -text
 tools/get_account_by_domain -text
 tools/get_domains_by_account -text
diff --git a/tests/mechdump.pm b/tests/mechdump.pm
new file mode 100644
index 00000000..15aca328
--- /dev/null
+++ b/tests/mechdump.pm
@@ -0,0 +1,29 @@
+
+sub dump_links {
+    my $mech = shift;
+    for my $link ( $mech->links ) {
+        my $url = $absolute ? $link->url_abs : $link->url;
+        print "$url\n";
+    }
+}
+
+sub dump_images {
+    my $mech = shift;
+
+    for my $image ( $mech->images ) {
+        my $url = $absolute ? $image->url_abs : $image->url;
+        print "$url\n";
+    }
+}
+
+sub dump_forms {
+    my $mech = shift;
+
+    for my $form ( $mech->forms() ) {
+        print $form->dump;
+        print "\n";
+    }
+}
+
+1;
+
diff --git a/tests/test_demo.pl b/tests/test_demo.pl
new file mode 100755
index 00000000..d4e8646a
--- /dev/null
+++ b/tests/test_demo.pl
@@ -0,0 +1,105 @@
+#!/usr/bin/perl
+
+#use strict;
+use WWW::Mechanize;
+
+use mechdump;
+
+my $DEBUG=1;
+my $DESKTOP="http://demo.alternc.org/admin";
+my $ADMIN_ACCOUNT="admin"; 
+my $ADMIN_PASSWORD="admin";
+
+# We install this domain, this pop account etc. : 
+my $DOMAIN="demo2.alternc.org";
+my $EMAIL="test";
+my $POPPASS="coinP4n";
+
+my $FTPLOGIN="test";
+my $FTPPASS="p4ncoin";
+my $FTPFOLD="/";
+
+# We initialize a mechanize object : 
+$m = WWW::Mechanize->new(  agent => '(Mozilla 5.0) AlternC test'  );
+
+# We get the desktop absolute url : 
+$m->get($DESKTOP);
+
+# We submit the login/password for the adminisrator account : 
+my $r = $m->submit_form(form_number => 1, 
+			fields => { 'username' => $ADMIN_ACCOUNT, 'password' => $ADMIN_PASSWORD }
+			);
+if ($DEBUG) {
+    print "LINKS AFTER LOGIN : \n"; dump_links $m;
+}
+
+$m->follow_link(url_regex => qr/menu/i ) || die "Login or password incorrect ...";
+
+if ($DEBUG) {
+    print "LINKS IN LEFT FRAME : \n"; dump_links $m;
+}
+
+
+# For each service, we create one instance of testable one : 
+
+
+# DOMAIN : 
+print "Adding domain $DOMAIN \n";
+$m->follow_link(url_regex => qr/dom_add/i ) || die "Cannot add a new domain ...";
+my $r = $m->submit_form(form_number => 1,
+		fields => { 'newdomain' => $DOMAIN, 'dns' => 1 }
+		);
+if (!$r->is_success()) {
+    # Impossible d'ajouter le domaine : la form n'existe pas ...
+    die "Cannot add domain $DOMAIN ...";
+}
+print "  done \n";
+
+
+
+# EMAIL : 
+print "Creating a mail $EMAIL\@$DOMAIN \n";
+$m->get("menu.php");  # does relative url works ? 
+$m->follow_link(url_regex => qr/mail\_list\.php\?domain\=$DOMAIN/i ) || die "Cannot list mails for domain $DOMAIN ...";
+$m->follow_link(url_regex => qr/mail\_add\.php\?domain\=$DOMAIN/i ) ||  die "Cannot find the 'add email' link for domain $DOMAIN ...";
+
+my $r = $m->submit_form(form_number => 1,
+		fields => { "domain" => $DOMAIN,
+			    "email" => $EMAIL,
+			    "pop" => 1,
+			    "pass" => $POPPASS,
+			    "passconf" => $POPPASS,
+			    "alias" => "",
+			}
+		);
+if (!$r->is_success()) {
+    # Impossible d'ajouter le mail : la form n'existe pas ...
+    die "Cannot add email $EMAIL\@$DOMAIN ...";
+}
+print "  done \n";
+
+
+
+# FTP : 
+print "Creating a ftp account ${ADMIN_ACCOUNT}_${FTPLOGIN} \n";
+$m->get("menu.php");  # does relative url works ? 
+$m->follow_link(url_regex => qr/ftp\_list\.php/i ) || die "Cannot list ftp accounts ...";
+$m->follow_link(url_regex => qr/ftp\_add\.php/i ) || die "Cannot find the 'add ftp' link ...";
+my $r = $m->submit_form(form_number => 1,
+			fields => { "id" => 0,
+                            "" => $,
+				}
+			);
+if (!$r->is_success()) {
+    # Impossible d'ajouter le mail : la form n'existe pas ...
+    die "Cannot add email $EMAIL\@$DOMAIN ...";
+}
+print "  done \n";
+
+
+
+
+
+# SQL :
+# sql_list.php
+