in reply to Re^2: Tests on Windows for Unix-only module
in thread Tests on Windows for Unix-only module

Why are there two ok's?

One from skip the other from the ok? Probably true :)

If I change that first param to 1, so that it skips the test, it outputs one ok: ???

So what does the documentation for skip say?

Try see here https://metacpan.org/pod/Test#skip-skip_if_true-args

  • Comment on Re^3: Tests on Windows for Unix-only module

Replies are listed 'Best First'.
Re^4: Tests on Windows for Unix-only module
by Anonymous Monk on Dec 30, 2014 at 06:55 UTC

    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"

    [download]
[reply]
[d/l]
      Thaks for the help, folks! I ended up using Test::More, which for me personally has a more scrutable interface. Thanks!
[reply]

In Section Seekers of Perl Wisdom