File: test_no_import.t

package info (click to toggle)
libregexp-common-perl 2024080801-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,328 kB
  • sloc: perl: 17,842; makefile: 2
file content (14 lines) | stat: -rwxr-xr-x 272 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
# LOAD
BEGIN {print "1..3\n";}

use Regexp::Common qw /no_defaults/;

print "ok 1\n";

print defined &Regexp::Common::URL::pattern ? "not ok 2\n" : "ok 2\n";

# Make sure $; isn't modified.
print $; eq "\034" ? "ok 3" : "not ok 3";
print ' # $; eq "\034"', "\n";

__END__