マシンまたはプラットフォームに依存する機能またはモジュールをテストするにはどうすればよいですか? たとえば、Net::Ifconfig::Wrapper$^O
のようなモジュールまたはモジュールを調べたり依存したりしますか? Net::Ifconfig::Wrapper が正しい値を返すかどうかをテストする必要はありませんが、それらの値で正しいことを行っているかどうかをテストする必要があります。
ありがとう!
編集: テスト$^O
は思ったより簡単でした:
{
# <~> $ perl -e 'print $^O'
# linux
local $^O = 'linux';
$rc = GetOSType();
is($rc, $OS_LINUX, 'OS Check - linux');
}
何らかの理由で、読み取り専用の変数だと思いました。