bd840ba071
This makes t/no-tabs.t pass. I'm responsible for some tabs in previous patches, so this fixes mine also :) Note that I find this test silly, but "dura lex, sed lex"...
21 lines
414 B
Perl
Executable File
21 lines
414 B
Perl
Executable File
#!/usr/bin/perl -I../lib -I./lib
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More tests => 1;
|
|
use File::Temp;
|
|
|
|
use Xen::Tools::Log;
|
|
|
|
SKIP: {
|
|
skip "Xen::Tools::Log is not used for now", 1;
|
|
|
|
my $dir = File::Temp::tempdir( CLEANUP => 1 );
|
|
|
|
my $xtl = Xen::Tools::Log->new( hostname => 'xen-tools-log-test',
|
|
logpath => $dir,
|
|
);
|
|
|
|
ok( $xtl->isa('Xen::Tools::Log') );
|
|
}
|