t/comp/require.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     unshift @INC, ('.', '../lib');
   6 }
   7
   8 # don't make this lexical
   9 $i = 1;
  10 print "1..19\n";
  11
  12 sub do_require {
  13     %INC = ();
  14     write_file('bleah.pm',@_);
  15     eval { require "bleah.pm" };
  16     my @a; # magic guard for scope violations (must be first lexical in file)
  17 }
  18
  19 sub write_file {
  20     my $f = shift;
  21     open(REQ,">$f") or die "Can't write '$f': $!";
  22     print REQ @_;
  23     close REQ;
  24 }
  25
  26 eval {require 5.005};
  27 print "# $@\nnot " if $@;
  28 print "ok ",$i++,"\n";
  29
  30 eval { require 5.005 };
  31 print "# $@\nnot " if $@;
  32 print "ok ",$i++,"\n";
  33
  34 eval { require 5.005; };
  35 print "# $@\nnot " if $@;
  36 print "ok ",$i++,"\n";
  37
  38 eval {
  39     require 5.005
  40 };
  41 print "# $@\nnot " if $@;
  42 print "ok ",$i++,"\n";
  43
  44 # new style version numbers
  45
  46 eval { require v5.5.630; };
  47 print "# $@\nnot " if $@;
  48 print "ok ",$i++,"\n";
  49
  50 eval { require v10.0.2; };
  51 print "# $@\nnot " unless $@ =~ /^Perl v10\.0\.2 required/;
  52 print "ok ",$i++,"\n";
  53
  54 eval q{ use v5.5.630; };
  55 print "# $@\nnot " if $@;
  56 print "ok ",$i++,"\n";
  57
  58 eval q{ use v10.0.2; };
  59 print "# $@\nnot " unless $@ =~ /^Perl v10\.0\.2 required/;
  60 print "ok ",$i++,"\n";
  61
  62 my $ver = 5.005_63;
  63 eval { require $ver; };
  64 print "# $@\nnot " if $@;
  65 print "ok ",$i++,"\n";
  66
  67 # check inaccurate fp
  68 $ver = 10.2;
  69 eval { require $ver; };
  70 print "# $@\nnot " unless $@ =~ /^Perl v10\.200\.0 required/;
  71 print "ok ",$i++,"\n";
  72
  73 $ver = 10.000_02;
  74 eval { require $ver; };
  75 print "# $@\nnot " unless $@ =~ /^Perl v10\.0\.20 required/;
  76 print "ok ",$i++,"\n";
  77
  78 print "not " unless v5.5.1 gt v5.5;
  79 print "ok ",$i++,"\n";
  80
  81 {
  82     use utf8;
  83     print "not " unless v5.5.640 eq "\x{5}\x{5}\x{280}";
  84     print "ok ",$i++,"\n";
  85
  86     print "not " unless v7.15 eq "\x{7}\x{f}";
  87     print "ok ",$i++,"\n";
  88
  89     print "not "
  90       unless v1.20.300.4000.50000.600000 eq "\x{1}\x{14}\x{12c}\x{fa0}\x{c350}\x{927c0}";
  91     print "ok ",$i++,"\n";
  92 }
  93
  94 # interaction with pod (see the eof)
  95 write_file('bleah.pm', "print 'ok $i\n'; 1;\n");
  96 require "bleah.pm";
  97 $i++;
  98
  99 # run-time failure in require
 100 do_require "0;\n";
 101 print "# $@\nnot " unless $@ =~ /did not return a true/;
 102 print "ok ",$i++,"\n";
 103
 104 # compile-time failure in require
 105 do_require "1)\n";
 106 # bison says 'parse error' instead of 'syntax error',
 107 # various yaccs may or may not capitalize 'syntax'.
 108 print "# $@\nnot " unless $@ =~ /(syntax|parse) error/mi;
 109 print "ok ",$i++,"\n";
 110
 111 # successful require
 112 do_require "1";
 113 print "# $@\nnot " if $@;
 114 print "ok ",$i++,"\n";
 115
 116 END { 1 while unlink 'bleah.pm'; }
 117
 118 # ***interaction with pod (don't put any thing after here)***
 119
 120 =pod