#!/usr/bin/perl -w
# -*- perl -*-
#
# $Id: 97_publish.t,v 1.2 2003/08/17 19:57:28 eserte Exp $
# Author: Slaven Rezic
#
# XXX This test should be rewritten.
use strict;
use vars qw($tests $pretests);
use FindBin;
use lib "$FindBin::RealBin/conf/publish_ftp"; # for WEsiteinfo.pm
use WE_Frontend::Main;
use WEsiteinfo;
BEGIN {
if (!eval q{
use Test;
use Net::Domain qw(hostdomain);
die "Not here" if hostdomain ne "intra.onlineoffice.de";
1;
}) {
print "# tests only work with installed Test and in special environments module\n";
print "1..1\n";
print "ok 1\n";
exit;
}
$pretests = 1;
$tests = 38;
}
BEGIN { plan tests => $pretests+$tests }
use vars qw($fe $stagingdir);
$fe = new WE_Frontend::Main undef;
ok($fe->isa('WE_Frontend::Main'), 1);
$stagingdir = $WEsiteinfo::livedirectory;
do "$FindBin::RealBin/publish_common.pl"; warn $@ if $@;
__END__