1#!/usr/bin/perl -w
2# $File: //depot/libOurNet/BBS/t/9-OurNet-MELIX.t $ $Author: autrijus $
3# $Revision: #1 $ $Change: 1 $ $DateTime: 2002/06/11 15:35:12 $
4
5use strict;
6use File::Path;
7use File::Temp qw/tempdir/;
8
9our $prefix = tempdir( CLEANUP => 0 );
10
11mkpath(["$prefix/brd", "$prefix/gem", "$prefix/gem/@", "$prefix/gem/brd"])
12    or die "Cannot make $prefix";
13open(my $BOARDS, '>', "$prefix/.BRD") or die "Cannot make $prefix/.BRD: $!";
14close $BOARDS;
15
16###################################################################
17
18use OurNet::BBS;
19
20our $BBS = { backend => 'MELIX', bbsroot => $prefix };
21(($_ = $0) =~ s/[\w-]+\.t$/stdtests/) and do $_ if $BBS;
22
23__END__
24