6.10. Platform dependent tests

Example 6-8. examples/intro/without_skip.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More "no_plan";

like( `/sbin/ifconfig`, qr/eth0/ );
like( `ipconfig`,       qr/Windows IP Configuration/ );
$ perl without_skip.t 
ok 1
not ok 2
#     Failed test (without_skip.t at line 5)
#                   undef
#     doesn't match '(?-xism:Windows IP Configuration)'
1..2
# Looks like you failed 1 tests of 2.