Re^2: Taint mode testing a module

Thanks for that, but I think you misunderstand the question. I know how to turn on taint mode for a program. What I don't know how to do is turn on taint mode for a unit test that is run specifically as part of installation of a module.

For example, if you use CPAN and install "Foo", then CPAN performs roughly the equivalent of the following steps:

wget http://somefakesite.site/Foo.0.0.1.tar.gz
tar -xzf Foo.0.0.1.tar.gz
cd Foo.0.0.1
perl Makefile.PL
make
make test
make install (Assuming the tests in #6 pass of course)

What I'd like to know is if it's possible for me to test with taint mode on as part of that step in #6.

Comment on Re^2: Taint mode testing a module

Replies are listed 'Best First'.
Re^3: Taint mode testing a module by Tanktalus (Canon) on Oct 17, 2012 at 21:41 UTC
No, I think I perfectly understood. Maybe you missed the part in my previous post that said "if your .t file starts as..." That is, if one of your test files starts with that hash-bang line, even if you're on Windows, "make test" will run it under taint mode. (I don't think ExtUtils::* has anything to do with this, I think it's just that when the perl subprocess starts up, it reads that first line and interprets it.) If other unit test files do not have the -T, then those test files will not run under taint. Test::Taint is related, but it won't do you much good without that -T flag on the hash-bang line. I suspect you're thinking this is harder than it appears :-) Remember that each .t file really is just a .pl file with a different extention denoting its purpose (test). Everything beyond that is simply convention. By convention, .t files test. By convention, .t files output TAP. By convention, .t files are only run by a TAP harness (such as prove). By unfortunate hysterical raisins, .t files are run with the -w flag given to perl.	[reply]
Re^4: Taint mode testing a module by mrider (Beadle) on Oct 17, 2012 at 22:32 UTC
I stand corrected. I added #!/usr/bin/env perl -T to the top of the file and print STDERR ("\n\n\nTaint = '", ${^TAINT}, "'\n\n\n"); down where the first test would be, and sure enough it printed "Taint = 1" on the console. I was under the mistaken impression that "make test" didn't load the .t file directly, but instead ran it in an eval. Sorry I doubted you!	[reply]