blob: 1d22958957b6cdf7726f1132dead20195cfbdfe6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/bin/env perl
# PHProveable.pl
#
# A wrapper/dummy for
#
# This script allows you to use the prove program with PHP test scripts
# that output TAP, such as those written with Test-Simple or Test-More,
# without requiring that the php test script be writen with a UNIX style
# shebang line pointing to the processor:
#
# #!/bin/env php
#
# USAGE:
# Your PHP test script should be named like this: TESTSCRIPTNAME.t.php.
# You can either copy this file and name it TESTSCRIPTNAME.t or call it
# explicitly as the first and only argument:
# PHProvable.pl TESTSCRIPTNAME.t.php
# The first method means you end up with a stub for each PHP script,
# although on a system with symlinks you can use a symlink instead of
# copying PHProveable:
# ln -s PHPRoveable.pl TESTSCRIPTNAME.t
# The stub method allows you to just run `prove` in a directory and have
# it look for a /t directory, then find your *.t stubs and run them as
# usual.
#
# NOTES:
# Yeah, there are many ways to skin a cat. You could just leave the .php
# off your test script and add the shebang line, but then you can't just
# run the script via CGI without the shebang showing up as extra content,
# and it won't work on windows via the CLI.
my $script = $ARGV[0] ? $ARGV[0] : "$0.php";
my $php_interp = $ENV{'PHP'} ? $ENV{'PHP'} : 'php';
exec("$php_interp $script");
|
