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