File: 99-prepare.t

package info (click to toggle)
libmime-tools-perl 5.515-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,612 kB
  • sloc: perl: 6,349; makefile: 8
file content (14 lines) | stat: -rw-r--r-- 311 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 1;

# TBone used to do this, but thankfully, we've done away with that
my $output_dir = './testout';
if( ! -d $output_dir ) {
	mkdir $output_dir or warn "Could not make output directory: $!"
}

ok( -d $output_dir, "$output_dir exists" );

1;