Re^2: Tests on Windows for Unix-only module

OK, skip looks like what I want, but it results in something I don't understand. Here's a bare-bones example that causes the curios behavior:

#!/usr/bin/perl -w
use strict;
use Test;
BEGIN { plan tests => 1 };
skip (0, sub { ok(1) } );

I thought that would produce a single "ok", but here's the actual output:

1..1
# Running under perl version 5.018002 for linux
# Current time local: Tue Dec 30 00:51:18 2014
# Current time GMT:   Tue Dec 30 05:51:18 2014
# Using Test.pm version 1.26
ok 1
ok 2

Why are there two ok's?

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

1..1
# Running under perl version 5.018002 for linux
# Current time local: Tue Dec 30 00:54:55 2014
# Current time GMT:   Tue Dec 30 05:54:55 2014
# Using Test.pm version 1.26
ok 1 # skip

???

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

Replies are listed 'Best First'.
Re^3: Tests on Windows for Unix-only module by Anonymous Monk on Dec 30, 2014 at 06:47 UTC
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	[reply]
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]
Re^5: Tests on Windows for Unix-only module by mikosullivan (Novice) on Jan 01, 2015 at 00:04 UTC
Thaks for the help, folks! I ended up using Test::More, which for me personally has a more scrutable interface. Thanks!	[reply]