[vhffs-dev] [524] Tests are now real tests in vhffs-tests.

[subversion@xxxxxxxxx]

Revision: 524
Author:   beuss
Date:     2007-03-22 22:08:11 +0000 (Thu, 22 Mar 2007)

Log Message:
-----------
Tests are now real tests in vhffs-tests.

Removed Paths:
-------------
    branches/vhffs_4.1/vhffs-api/src/examples/test2.pl
    branches/vhffs_4.1/vhffs-api/src/examples/test_conf.pl
    branches/vhffs_4.1/vhffs-api/src/examples/test_constants.pl
    branches/vhffs_4.1/vhffs-api/src/examples/test_delete.pl
    branches/vhffs_4.1/vhffs-api/src/examples/test_fetch_info.pl


Deleted: branches/vhffs_4.1/vhffs-api/src/examples/test2.pl
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/examples/test2.pl	2007-03-22 22:06:52 UTC (rev 523)
+++ branches/vhffs_4.1/vhffs-api/src/examples/test2.pl	2007-03-22 22:08:11 UTC (rev 524)
@@ -1,8 +0,0 @@
-#!/usr/bin/perl
-
-use lib "/usr/share/vhffs/api/";
-use Vhffs::Constants;
-
-my $lol="ACL_VIEW";
-
-print ${Vhffs::Constants::$lol};

Deleted: branches/vhffs_4.1/vhffs-api/src/examples/test_conf.pl
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/examples/test_conf.pl	2007-03-22 22:06:52 UTC (rev 523)
+++ branches/vhffs_4.1/vhffs-api/src/examples/test_conf.pl	2007-03-22 22:08:11 UTC (rev 524)
@@ -1,30 +0,0 @@
-#!/usr/bin/perl -w -I/vhffs/vhffs-api/src/
-
-
-use strict;
-
-use Data::Dumper;
-use lib "/usr/share/vhffs/api/";
-use Vhffs::Conf;
-use Vhffs::User;
-use Vhffs::Group;
-use Vhffs::Main;
-use Vhffs::Object;
-use Vhffs::Services::DNS;
-
-my $config;
-my $mysql_config;
-my $services_config;
-my $user;
-my $dbh;
-my $backend;
-my %infos;
-my $group;
-
-my $princ = init Vhffs::Main;
-
-
-my $lol = $princ->get_config->get_service( "dns" );
-
-use Data::Dumper;
-print Dumper $lol;

Deleted: branches/vhffs_4.1/vhffs-api/src/examples/test_constants.pl
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/examples/test_constants.pl	2007-03-22 22:06:52 UTC (rev 523)
+++ branches/vhffs_4.1/vhffs-api/src/examples/test_constants.pl	2007-03-22 22:08:11 UTC (rev 524)
@@ -1,12 +0,0 @@
-#!/usr/bin/perl
-
-use lib "/usr/share/vhffs/api/";
-use Vhffs::Constants;
-use strict;
-print "constante :";
-
-
-print Vhffs::Constants::ACTIVATED ;
-
-print 
-

Deleted: branches/vhffs_4.1/vhffs-api/src/examples/test_delete.pl
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/examples/test_delete.pl	2007-03-22 22:06:52 UTC (rev 523)
+++ branches/vhffs_4.1/vhffs-api/src/examples/test_delete.pl	2007-03-22 22:08:11 UTC (rev 524)
@@ -1,42 +0,0 @@
-#!/usr/bin/perl -w -I/home/soda/vhffs/vhffs-api/src/
-
-
-use strict;
-
-use Data::Dumper;
-use lib "/usr/share/vhffs/api/";
-use Vhffs::Conf;
-use Vhffs::User;
-use Vhffs::Group;
-use Vhffs::Main;
-use Vhffs::Object;
-
-my $config;
-my $mysql_config;
-my $services_config;
-my $user;
-my $dbh;
-my $backend;
-my %infos;
-
-my $princ = init Vhffs::Main;
-
-$config = $princ->get_config;
-
-
-
-#on le cree dans la base
-$user = new Vhffs::User( $princ , "prefzpojzepfojout" , 401) ;
-
-
-
-#on le supprimer
-my $retour = $user->delete;
-if( $retour < 0 )
-{
-    print "probleme lors de la suppression : $retour \n";
-}
-else
-{
-   print "utilisateur supprime\n";
-}

Deleted: branches/vhffs_4.1/vhffs-api/src/examples/test_fetch_info.pl
===================================================================
--- branches/vhffs_4.1/vhffs-api/src/examples/test_fetch_info.pl	2007-03-22 22:06:52 UTC (rev 523)
+++ branches/vhffs_4.1/vhffs-api/src/examples/test_fetch_info.pl	2007-03-22 22:08:11 UTC (rev 524)
@@ -1,56 +0,0 @@
-#!/usr/bin/perl -w -I/vhffs/vhffs-api/src/
-
-
-use strict;
-
-use Data::Dumper;
-use lib "/usr/share/vhffs/api/";
-use Vhffs::Conf;
-use Vhffs::User;
-use Vhffs::Group;
-use Vhffs::Main;
-use Vhffs::Object;
-
-my $config;
-my $mysql_config;
-my $services_config;
-my $user;
-my $dbh;
-my $backend;
-my %infos;
-
-my $princ = init Vhffs::Main;
-
-$config = $princ->get_config;
-
-
-print "login du user\n";
-$user = new Vhffs::User( $princ , "toto" , 401 ) ;
-
-
-#on fetche l'utilisateur
-my $retour;
-print "fetch du user\n";
-$retour = $user->fetch;
-if ( $retour< 0  )
-{
-	print "ce user n'existe pas : $retour \n";
-}
-else
-{
-	print "ce user existe\n";
-	print "username : " . $user->get_username . "\n" ;
-	print "name : " . $user->get_firstname . "\n" ;
-}
-
-
-
-exit;
-	$user->set_mail( "MAIL" );
-	$user->set_firstname( "FIRSTNAME" );
-	$user->set_lasttname( "LASTNAME" );
-	$user->set_city( "CITY" );
-	$user->set_zipcode( "ZIPCODE" );
-	$user->set_country( "COUNTRY" );
-	$user->set_address( "ADDRESS" );
-