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, "|$^X -e 1|")
  48 EXPECT
  49 Can't do bidirectional pipe at - line 3.
  50 ########
  51 # doio.c
  52 use warning 'io' ;
  53 open(F, "|      ")
  54 EXPECT
  55 Missing command in piped open at - line 3.
  56 ########
  57 # doio.c
  58 use warning 'io' ;
  59 open(F, "      |")
  60 EXPECT
  61 Missing command in piped open at - line 3.
  62 ########
  63 # doio.c
  64 use warning 'io' ;
  65 open(F, "<true\ncd")
  66 EXPECT
  67 Unsuccessful open on filename containing newline at - line 3.
  68 ########
  69 # doio.c
  70 use warning 'io' ;
  71 close STDIN ;
  72 tell(STDIN);
  73 $a = seek(STDIN,1,1);
  74 $a = sysseek(STDIN,1,1);
  75 -x STDIN ;
  76 EXPECT
  77 tell() on unopened file at - line 4.
  78 seek() on unopened file at - line 5.
  79 sysseek() on unopened file at - line 6.
  80 Stat on unopened file <STDIN> at - line 7.
  81 ########
  82 # doio.c
  83 use warning 'uninitialized' ;
  84 print $a ;
  85 EXPECT
  86 Use of uninitialized value at - line 3.
  87 ########
  88 # doio.c
  89 use warning 'io' ;
  90
  91 EXPECT
  92
  93 ########
  94 # doio.c
  95 use warning 'io' ;
  96 stat "ab\ncd";
  97 lstat "ab\ncd";
  98 EXPECT
  99 Unsuccessful stat on filename containing newline at - line 3.
 100 Unsuccessful stat on filename containing newline at - line 4.
 101 ########
 102 # doio.c
 103 use warning 'io' ;
 104 exec "lskdjfalksdjfdjfkls","" ;
 105 EXPECT
 106 OPTION regex
 107 Can't exec "lskdjfalksdjfdjfkls": .+ at - line 3.
 108 ########
 109 # doio.c
 110 use warning 'io' ;
 111 exec "lskdjfalksdjfdjfkls", "abc" ;
 112 EXPECT
 113 OPTION regex
 114 Can't exec "lskdjfalksdjfdjfkls": .+ at - line 3.