lGeneric configuration interface with
platform-specific subclasses
lSystem.pm
l
|-- System/Win32.pm
l
|-- System/Unix.pm
lusing File::Spec::Functions for paths
lChange tests from path strings to regexes
using a quote path separator
my $script =
$i->startup('remote');
NO : is( $script, 'scripts/FLIP_real.PL',
'$i->startup("remote")
script
YES : $ps = ($^O eq 'MSWin32') ?
"\\" : '/';
$qps = quotemeta $ps;
like( $script, qr{ scripts [$qps] FLIP_real.pl \z }xms, '$i->startup("remote") script' );
Note PBP
style regex
lActually run the tests on multiple platforms