File: no-dash-T.t

package info (click to toggle)
libtest-taint-perl 1.08-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 144 kB
  • sloc: perl: 499; makefile: 3
file content (16 lines) | stat: -rw-r--r-- 308 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!perl -w
# Note the lack of -T in the shebang

use warnings;
use strict;

use Test::Taint tests=>4;
use Test::More;

ok( !taint_checking(), 'Taint checking is off' );

my $foo = 43;
untainted_ok( $foo, 'Starts clean' );
taint($foo);
untainted_ok( $foo, 'Stays clean' );
untainted_ok( $Test::Taint::TAINT );