The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
# $Id: 00compile.t,v 1.1 2005/12/29 19:49:25 nicolaw Exp $

use Test::More tests => 2;

require_ok('Sys::Filesystem');
use_ok('Sys::Filesystem');

use Config;

my $os_info = join("-", $Config{osname}, $Config{osvers});
$^O eq "MSWin32" and eval "use Win32;" and $os_info = join("-", Win32::GetOSName(), Win32::GetOSVersion());

diag("Testing Sys::Filesystem $Sys::Filesystem::VERSION, Perl $] ($^X) on $os_info");