git.maemo.org Git - dh-make-perl/blob - dev/arm/libio-stringy-perl/io-stringy-2.110/testout/IO_Lines.tlog

   1 1..32
   2
   3 1: OPEN: open a scalar on a ref to an array
   4 1: ok 1
   5
   6 2: PRINT: able to print to IO::Lines=GLOB(0x9c5394c)
   7 2: ok 2
   8
   9 3: GETC: seek(0,0) and getc()
  10 3: ok 3
  11
  12 4: GETLINE/SEEK3: seek(3,START) and getline() gets part of 1st line
  13 4:   GH: "IO::Lines=GLOB(0x9c5394c)"
  14 4:   Got: "iner while dining at Crewe\n"
  15 4:   Want: "iner while dining at Crewe\n"
  16 4: ok 4
  17
  18 5: GETLINE/NEXT: next getline() gets subsequent line
  19 5:   Got: "Found a rather large mouse in his stew\n"
  20 5: ok 5
  21
  22 6: GETLINE/EOF: repeated getline() finds end of stream
  23 6:   Last: "undef"
  24 6: ok 6
  25
  26 7: GETLINE/GETLINES: seek(0,0) and getlines() slurps in string
  27 7:   GotAll: "A diner while dining at Crewe\nFound a rather large mouse in his stew\n   Said the waiter, \22Don't shout,\n   And wave it about...\nor the rest will be wanting one too.\22\n"
  28 7:   WantAll: "A diner while dining at Crewe\nFound a rather large mouse in his stew\n   Said the waiter, \22Don't shout,\n   And wave it about...\nor the rest will be wanting one too.\22\n"
  29 7:   Got: "A diner while dining at Crewe\n"
  30 7:   Got: "Found a rather large mouse in his stew\n"
  31 7:   Got: "   Said the waiter, \22Don't shout,\n"
  32 7:   Got: "   And wave it about...\n"
  33 7:   Got: "or the rest will be wanting one too.\22\n"
  34 7: ok 7
  35
  36 8: READ/FIRST10: reading first 10 bytes with seek(0,START) + read(10)
  37 8: ok 8
  38
  39 9: READ/NEXT10: reading next 10 bytes with read(10)
  40 9: ok 9
  41
  42 10: READ/TELL20: tell() the current location as 20
  43 10: ok 10
  44
  45 11: READ/SLURP: seek(0,START) + read(1000) reads in whole handle
  46 11: ok 11
  47
  48 12: SEEK/SET: seek(2,SET) + read(5) returns 'diner'
  49 12:   A: "diner"
  50 12:   B: "diner"
  51 12: ok 12
  52
  53 13: SEEK/END: seek(-6,END) + read(3) returns 'too'
  54 13:   A: "too"
  55 13:   B: "too"
  56 13: ok 13
  57
  58 14: SEEK/CUR: seek(-7,CUR) + read(7) returns 'one too'
  59 14:   A: "one too"
  60 14:   B: "one too"
  61 14: ok 14
  62
  63 15: TIE/TIE: able to tie
  64 15:   TieClass: "IO::Lines"
  65 15:   TieArgs: "ARRAY(0x9c6a034)"
  66 15: ok 15
  67
  68 16: TIE/PRINT: printing data
  69 16: ok 16
  70
  71 17: TIE/GETLINE: seek(0,0) and scalar <> get expected lines
  72 17:   Want: "A diner while dining at Crewe\n"
  73 17:   Want: "Found a rather large mouse in his stew\n"
  74 17:   Want: "   Said the waiter, \22Don't shout,\n"
  75 17:   Want: "   And wave it about...\n"
  76 17:   Want: "or the rest will be wanting one too.\22\n"
  77 17:   Gotl: "A diner while dining at Crewe\n"
  78 17:   Gotl: "Found a rather large mouse in his stew\n"
  79 17:   Gotl: "   Said the waiter, \22Don't shout,\n"
  80 17:   Gotl: "   And wave it about...\n"
  81 17:   Gotl: "or the rest will be wanting one too.\22\n"
  82 17:   Lines: "0..4"
  83 17:   Match: "5"
  84 17:   FDatl: "5"
  85 17:   FData: "A diner while dining at Crewe\n"
  86 17:   FData: "Found a rather large mouse in his stew\n"
  87 17:   FData: "   Said the waiter, \22Don't shout,\n"
  88 17:   FData: "   And wave it about...\n"
  89 17:   FData: "or the rest will be wanting one too.\22\n"
  90 17: ok 17
  91
  92 18: TIE/GETLINES: seek(0,0) and array <> slurps in lines
  93 18:   Want: "A diner while dining at Crewe\n"
  94 18:   Want: "Found a rather large mouse in his stew\n"
  95 18:   Want: "   Said the waiter, \22Don't shout,\n"
  96 18:   Want: "   And wave it about...\n"
  97 18:   Want: "or the rest will be wanting one too.\22\n"
  98 18:   Gotl: "A diner while dining at Crewe\n"
  99 18:   Gotl: "Found a rather large mouse in his stew\n"
 100 18:   Gotl: "   Said the waiter, \22Don't shout,\n"
 101 18:   Gotl: "   And wave it about...\n"
 102 18:   Gotl: "or the rest will be wanting one too.\22\n"
 103 18:   Lines: "0..4"
 104 18:   Match: "5"
 105 18: ok 18
 106
 107 19: RECORDSEP undef: getline slurps everything
 108 19:   A: "par 1, line 1\npar 1, line 2\n\n\n\n\npar 2, line 1\n\npar 3, line 1\npar 3, line 2\npar 3, line 3"
 109 19:   B: "par 1, line 1\npar 1, line 2\n\n\n\n\npar 2, line 1\n\npar 3, line 1\npar 3, line 2\npar 3, line 3"
 110 19: ok 19
 111
 112 20: RECORDSEP undef: get first line
 113 20:   A: "par 1, line 1\n"
 114 20:   B: "par 1, line 1\n"
 115 20: ok 20
 116
 117 21: RECORDSEP undef: slurp the rest
 118 21:   A: "par 1, line 2\n\n\n\n\npar 2, line 1\n\npar 3, line 1\npar 3, line 2\npar 3, line 3"
 119 21:   B: "par 1, line 2\n\n\n\n\npar 2, line 1\n\npar 3, line 1\npar 3, line 2\npar 3, line 3"
 120 21: ok 21
 121
 122 22: RECORDSEP newline: rec 0
 123 22:   A: "par 1, line 1\n"
 124 22:   B: "par 1, line 1\n"
 125 22: ok 22
 126
 127 23: RECORDSEP newline: rec 1
 128 23:   A: "par 1, line 2\n"
 129 23:   B: "par 1, line 2\n"
 130 23: ok 23
 131
 132 24: RECORDSEP newline: rec 2
 133 24:   A: "\n"
 134 24:   B: "\n"
 135 24: ok 24
 136
 137 25: RECORDSEP newline: rec 3
 138 25:   A: "\n"
 139 25:   B: "\n"
 140 25: ok 25
 141
 142 26: RECORDSEP newline: rec 4
 143 26:   A: "\n"
 144 26:   B: "\n"
 145 26: ok 26
 146
 147 27: RECORDSEP newline: rec 5
 148 27:   A: "\n"
 149 27:   B: "\n"
 150 27: ok 27
 151
 152 28: RECORDSEP newline: rec 6
 153 28:   A: "par 2, line 1\n"
 154 28:   B: "par 2, line 1\n"
 155 28: ok 28
 156
 157 29: RECORDSEP newline: rec 7
 158 29:   A: "\n"
 159 29:   B: "\n"
 160 29: ok 29
 161
 162 30: RECORDSEP newline: rec 8
 163 30:   A: "par 3, line 1\n"
 164 30:   B: "par 3, line 1\n"
 165 30: ok 30
 166
 167 31: RECORDSEP newline: rec 9
 168 31:   A: "par 3, line 2\n"
 169 31:   B: "par 3, line 2\n"
 170 31: ok 31
 171
 172 32: RECORDSEP newline: rec 10
 173 32:   A: "par 3, line 3"
 174 32:   B: "par 3, line 3"
 175 32: ok 32
 176
 177 # END