#!/usr/bin/perl -w

# $Id: 250greettext.t,v 1.1 2003/09/28 11:50:45 rwmj Exp $

use strict;
use Test;
use POSIX qw(dup2);
use IO::Handle;
use Sys::Hostname;
use FileHandle;

BEGIN {
  plan tests => 4;
}

use Net::FTPServer::InMem::Server;

pipe INFD0, OUTFD0 or die "pipe: $!";
pipe INFD1, OUTFD1 or die "pipe: $!";
my $pid = fork ();
die unless defined $pid;
unless ($pid) {			# Child process (the server).
  POSIX::dup2 (fileno INFD0, 0);
  POSIX::dup2 (fileno OUTFD1, 1);
  close INFD0;
  close OUTFD0;
  close INFD1;
  close OUTFD1;
  my $ftps = Net::FTPServer::InMem::Server->run
    (['--test', '-d', '-C', '/dev/null',
      '-o', 'greeting type=text',
      '-o', 'greeting text=Hello. I am here to serve you.']);
  exit;
}

# Parent process (the test script).
close INFD0;
close OUTFD1;
OUTFD0->autoflush (1);

my $hostname = hostname ();

$_ = <INFD1>;
ok (! m(Net::FTPServer/$Net::FTPServer::VERSION-$Net::FTPServer::RELEASE));
ok (! m($hostname));
ok (m(Hello\. I am here to serve you\.));

print OUTFD0 "QUIT\r\n";
$_ = <INFD1>;
ok (/^221/);