Basically when you're giving skip/ok subs, you don't want to run other ok/skips inside, you want the return value
ok( wanted, gotten, testname )
skip( skipit, wanted, gotten, testname )
$ perl -MTest -le " plan tests=>1; skip 0, sub{ -monkeys }, sub {-bana +nas } ; 1..1 # Running under perl version 5.016001 for MSWin32 # Current time local: Mon Dec 29 22:53:31 2014 # Current time GMT: Tue Dec 30 06:53:31 2014 # Using Test.pm version 1.25_02 not ok 1 # Test 1 got: "-monkeys" (-e at line 1) # Expected: "-bananas" $ perl -MTest -le " plan tests=>1; skip 1, sub{ -monkeys }, sub {-bana +nas } ; 1..1 # Running under perl version 5.016001 for MSWin32 # Current time local: Mon Dec 29 22:53:47 2014 # Current time GMT: Tue Dec 30 06:53:47 2014 # Using Test.pm version 1.25_02 ok 1 # skip $ perl -MTest -le " plan tests=>1; ok sub{ -monkeys }, sub {-bananas } + ; 1..1 # Running under perl version 5.016001 for MSWin32 # Current time local: Mon Dec 29 22:53:53 2014 # Current time GMT: Tue Dec 30 06:53:53 2014 # Using Test.pm version 1.25_02 not ok 1 # Test 1 got: "-monkeys" (-e at line 1) # Expected: "-bananas"
In reply to Re^4: Tests on Windows for Unix-only module
by Anonymous Monk
in thread Tests on Windows for Unix-only module
by mikosullivan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |