github.com/xen-tools.xen-tools
1
0
Fork 0
mirror of synced 2026-01-13 15:17:30 +00:00
Code Releases Activity

2006-12-26 22:27:25 by steve

Browse Source 
Simple test of hostname + /etc/hosts setup.
This commit is contained in:
steve 2006-12-26 22:27:25 +00:00
parent fc88b30ea4
commit 4ccddd12b0
1 changed files with 107 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

107
tests/hook-hostname.t Executable file
View File

@ -0,0 +1,107 @@
#!/usr/bin/perl -w
#
# Test that we get an /etc/hosts etc file created when DHCP is used.
#
# Steve
# --
# $Id: hook-hostname.t,v 1.1 2006-12-26 22:27:25 steve Exp $
#
use strict;
use Test::More qw( no_plan );
use File::Temp;
#
# Rather than having a hardwired list of distributions to test
# against we look for subdirectories beneath hooks/ and test each
# one.
#
foreach my $dir ( glob( "hooks/*" ) )
{
next if ( $dir =~ /CVS/i );
next if ( ! -d $dir );
if ( $dir =~ /hooks\/(.*)/ )
{
my $dist = $1;
testHostCreation( $dist ) unless ( $dist =~ /fedora/i );
}
}
#
# Test that the creation succeeds.
#
sub testHostCreation
{
my ( $dist ) = ( @_ );
#
# Setup the environment.
#
$ENV{'hostname'} = "steve";
$ENV{'dhcp'} = 1;
#
# Create a temporary directory.
#
my $dir = File::Temp::tempdir( CLEANUP => 1 );
mkdir( $dir . "/etc", 0777 );
#
# Gentoo
#
if ( $dist =~ /gentoo/i )
{
mkdir( $dir . "/etc/conf.d", 0777 );
}
ok( -d $dir, "Temporary directory created OK" );
ok( -d $dir . "/etc/conf.d" , "Temporary directory created OK" ) if ( $dist =~ /gentoo/i );
#
# Make sure there are no files.
#
ok( -d $dir . "/etc/", "Temporary directory created OK" );
ok( ! -e $dir . "/etc/hosts", " There is no hosts file present" );
ok( ! -e $dir . "/etc/mailname", " There is no mailname file present" );
ok( ! -e $dir . "/etc/hostname", " There is no hostname file present" );
#
# Make sure we have the distro-specific hook directory, and
# TLS-disabling hook script.
#
ok( -d "hooks/$dist", "There is a hook directory for the distro $dist" );
ok( -e "hooks/$dist/50-setup-hostname", "There is a hook for setting up hostname stuff." );
#
# Call the hook
#
`hooks/$dist/50-setup-hostname $dir`;
ok( -e $dir . "/etc/hosts", " There is now a hosts file present" );
#
# These files are not used in Gentoo
#
if ( $dist =~ /gentoo/i )
{
ok( -e $dir . "/etc/conf.d/domainname", " There is now a domainname file present" );
ok( -e $dir . "/etc/conf.d/hostname", " There is now a hostname file present" );
}
else
{
ok( -e $dir . "/etc/mailname", " There is now a mailname file present" );
ok( -e $dir . "/etc/hostname", " There is now a hostname file present" );
}
}