Re^3: How do I test a script that doesn't have a .pl extension

That test will crash instead of failing, if foo does not exist, or is empty:

>perl -MTest::More=tests,2 -e "ok(require 'empty.pl'); print ok 1"
1..2
empty.pl did not return a true value at -e line 1.
# Looks like your test exited with 255 before it could output anything
+.
[download]

Q:\>perl -MTest::More=tests,2 -e "ok(require 'nonexistent.pl'); print 
+ok 1"
1..2
Can't locate nonexistent.pl in @INC (@INC contains: ...) at -e line 1.
# Looks like your test exited with 2 before it could output anything.
[download]

You may want to let your tests just crash, because in my experience, use_ok and require_ok are just useless anyway, as no subsequent test will pass if they fail.

Comment on Re^3: How do I test a script that doesn't have a .pl extension Select or Download Code

Replies are listed 'Best First'.
Re^4: How do I test a script that doesn't have a .pl extension by ten8ciousb (Novice) on Nov 02, 2012 at 13:32 UTC
thanks. you've got a good point there. if the test can't load the script that I want to run tests against, I want it to crash and just doing `require 'foo';` [download] will do that. but I prefer using the ok() or require_ok() with a die or croak (which I didn't include in my example) because then in a test suite I get better diagnostic: `not ok 2 - require foo; # at /source/t/foo.t line 30. # Tried to require 'foo'. # Error: Can't locate foo.pm in @INC (@INC contains: /source/bin +... at (eval 17) line 2. Died at /source/t/foo.t line 30.` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: How do I test a script that doesn't have a .pl extension
by ten8ciousb (Novice) on Nov 02, 2012 at 13:32 UTC

require 'foo';
[download]

not ok 2 - require foo;
#   at /source/t/foo.t line 30.
#     Tried to require 'foo'.
#     Error:  Can't locate foo.pm in @INC (@INC contains: /source/bin 
+... at (eval 17) line 2.
Died at /source/t/foo.t line 30.
[download]

[reply]
[d/l]
[select]