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

well this is embarassing. first time seeking wisdom and, er... how does that go?
TMTOWTDI
yes.

require_ok('foo')  ### fails foo not found in @INC
ok(require 'foo')  ### passes
[download]

did work for me. thank you.

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

Replies are listed 'Best First'.
Re^3: How do I test a script that doesn't have a .pl extension by Corion (Patriarch) on Nov 02, 2012 at 13:19 UTC
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.	[reply] [d/l] [select]
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]