t/pragma/warn/doio

   1   doio.c        AOK
   2
   3   Can't do bidirectional pipe
   4     open(F, "| true |");
   5
   6   Missing command in piped open
   7     open(F, "| ");
   8
   9   Missing command in piped open
  10     open(F, " |");
  11
  12   warn(warn_nl, "open");
  13     open(F, "true\ncd")
  14
  15   Close on unopened file <%s>
  16     $a = "fred";close($a)
  17
  18   tell() on unopened file
  19     $a = "fred";$a = tell($a)
  20
  21   seek() on unopened file
  22     $a = "fred";$a = seek($a,1,1)
  23
  24   sysseek() on unopened file
  25     $a = "fred";$a = seek($a,1,1)
  26
  27   warn(warn_uninit);
  28     print $a ;
  29
  30   Stat on unopened file <%s>
  31     close STDIN ; -x STDIN ;
  32
  33   warn(warn_nl, "stat");
  34     stat "ab\ncd"
  35
  36   warn(warn_nl, "lstat");
  37     lstat "ab\ncd"
  38
  39   Can't exec \"%s\": %s
  40
  41   Can't exec \"%s\": %s
  42
  43
  44 __END__
  45 # doio.c
  46 use warning 'io' ;
  47 open(F, '|'.($^O eq 'VMS' ? 'mcr ':'')."$^X -e 1|");
  48 close(F);
  49 EXPECT
  50 Can't do bidirectional pipe at - line 3.
  51 ########
  52 # doio.c
  53 use warning 'io' ;
  54 open(F, "|      ")
  55 EXPECT
  56 Missing command in piped open at - line 3.
  57 ########
  58 # doio.c
  59 use warning 'io' ;
  60 open(F, "      |")
  61 EXPECT
  62 Missing command in piped open at - line 3.
  63 ########
  64 # doio.c
  65 use warning 'io' ;
  66 open(F, "<true\ncd")
  67 EXPECT
  68 Unsuccessful open on filename containing newline at - line 3.
  69 ########
  70 # doio.c
  71 use warning 'io' ;
  72 close STDIN ;
  73 tell(STDIN);
  74 $a = seek(STDIN,1,1);
  75 $a = sysseek(STDIN,1,1);
  76 -x STDIN ;
  77 EXPECT
  78 tell() on unopened file at - line 4.
  79 seek() on unopened file at - line 5.
  80 sysseek() on unopened file at - line 6.
  81 Stat on unopened file <STDIN> at - line 7.
  82 ########
  83 # doio.c
  84 use warning 'uninitialized' ;
  85 print $a ;
  86 EXPECT
  87 Use of uninitialized value at - line 3.
  88 ########
  89 # doio.c
  90 use warning 'io' ;
  91
  92 EXPECT
  93
  94 ########
  95 # doio.c
  96 use warning 'io' ;
  97 stat "ab\ncd";
  98 lstat "ab\ncd";
  99 EXPECT
 100 Unsuccessful stat on filename containing newline at - line 3.
 101 Unsuccessful stat on filename containing newline at - line 4.
 102 ########
 103 # doio.c
 104 use warning 'io' ;
 105 exec "lskdjfalksdjfdjfkls","" ;
 106 EXPECT
 107 OPTION regex
 108 Can't exec "lskdjfalksdjfdjfkls": .+
 109 ########
 110 # doio.c
 111 use warning 'io' ;
 112 exec "lskdjfalksdjfdjfkls", "abc" ;
 113 EXPECT
 114 OPTION regex
 115 Can't exec "lskdjfalksdjfdjfkls(:? abc)?": .+