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.
| Prev | Home (Copyright Gabor Szabo) Perl Training Israel | Next |
| TODO with Harness | Up | SKIP some tests |