Index: /alternc/trunk/tests/mechdump.pm
===================================================================
--- /alternc/trunk/tests/mechdump.pm	(revision 1953)
+++ /alternc/trunk/tests/mechdump.pm	(revision 1953)
@@ -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;
+
Index: /alternc/trunk/tests/test_demo.pl
===================================================================
--- /alternc/trunk/tests/test_demo.pl	(revision 1953)
+++ /alternc/trunk/tests/test_demo.pl	(revision 1953)
@@ -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
+