X-Git-Url: http://vcs.maemo.org/git/?a=blobdiff_plain;f=dev%2Farm%2Flibio-stringy-perl%2Fio-stringy-2.110%2Ftestout%2FIO_Lines.tlog;fp=dev%2Farm%2Flibio-stringy-perl%2Fio-stringy-2.110%2Ftestout%2FIO_Lines.tlog;h=265afa78c5546cff29247d15b4bf66c159c4fa8f;hb=f477fa73365d491991707e7ed9217b48d6994551;hp=0000000000000000000000000000000000000000;hpb=da95c414033799c3a62606f299c3c00b5c77ca11;p=dh-make-perl diff --git a/dev/arm/libio-stringy-perl/io-stringy-2.110/testout/IO_Lines.tlog b/dev/arm/libio-stringy-perl/io-stringy-2.110/testout/IO_Lines.tlog new file mode 100644 index 0000000..265afa7 --- /dev/null +++ b/dev/arm/libio-stringy-perl/io-stringy-2.110/testout/IO_Lines.tlog @@ -0,0 +1,177 @@ +1..32 + +1: OPEN: open a scalar on a ref to an array +1: ok 1 + +2: PRINT: able to print to IO::Lines=GLOB(0x9c5394c) +2: ok 2 + +3: GETC: seek(0,0) and getc() +3: ok 3 + +4: GETLINE/SEEK3: seek(3,START) and getline() gets part of 1st line +4: GH: "IO::Lines=GLOB(0x9c5394c)" +4: Got: "iner while dining at Crewe\n" +4: Want: "iner while dining at Crewe\n" +4: ok 4 + +5: GETLINE/NEXT: next getline() gets subsequent line +5: Got: "Found a rather large mouse in his stew\n" +5: ok 5 + +6: GETLINE/EOF: repeated getline() finds end of stream +6: Last: "undef" +6: ok 6 + +7: GETLINE/GETLINES: seek(0,0) and getlines() slurps in string +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" +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" +7: Got: "A diner while dining at Crewe\n" +7: Got: "Found a rather large mouse in his stew\n" +7: Got: " Said the waiter, \22Don't shout,\n" +7: Got: " And wave it about...\n" +7: Got: "or the rest will be wanting one too.\22\n" +7: ok 7 + +8: READ/FIRST10: reading first 10 bytes with seek(0,START) + read(10) +8: ok 8 + +9: READ/NEXT10: reading next 10 bytes with read(10) +9: ok 9 + +10: READ/TELL20: tell() the current location as 20 +10: ok 10 + +11: READ/SLURP: seek(0,START) + read(1000) reads in whole handle +11: ok 11 + +12: SEEK/SET: seek(2,SET) + read(5) returns 'diner' +12: A: "diner" +12: B: "diner" +12: ok 12 + +13: SEEK/END: seek(-6,END) + read(3) returns 'too' +13: A: "too" +13: B: "too" +13: ok 13 + +14: SEEK/CUR: seek(-7,CUR) + read(7) returns 'one too' +14: A: "one too" +14: B: "one too" +14: ok 14 + +15: TIE/TIE: able to tie +15: TieClass: "IO::Lines" +15: TieArgs: "ARRAY(0x9c6a034)" +15: ok 15 + +16: TIE/PRINT: printing data +16: ok 16 + +17: TIE/GETLINE: seek(0,0) and scalar <> get expected lines +17: Want: "A diner while dining at Crewe\n" +17: Want: "Found a rather large mouse in his stew\n" +17: Want: " Said the waiter, \22Don't shout,\n" +17: Want: " And wave it about...\n" +17: Want: "or the rest will be wanting one too.\22\n" +17: Gotl: "A diner while dining at Crewe\n" +17: Gotl: "Found a rather large mouse in his stew\n" +17: Gotl: " Said the waiter, \22Don't shout,\n" +17: Gotl: " And wave it about...\n" +17: Gotl: "or the rest will be wanting one too.\22\n" +17: Lines: "0..4" +17: Match: "5" +17: FDatl: "5" +17: FData: "A diner while dining at Crewe\n" +17: FData: "Found a rather large mouse in his stew\n" +17: FData: " Said the waiter, \22Don't shout,\n" +17: FData: " And wave it about...\n" +17: FData: "or the rest will be wanting one too.\22\n" +17: ok 17 + +18: TIE/GETLINES: seek(0,0) and array <> slurps in lines +18: Want: "A diner while dining at Crewe\n" +18: Want: "Found a rather large mouse in his stew\n" +18: Want: " Said the waiter, \22Don't shout,\n" +18: Want: " And wave it about...\n" +18: Want: "or the rest will be wanting one too.\22\n" +18: Gotl: "A diner while dining at Crewe\n" +18: Gotl: "Found a rather large mouse in his stew\n" +18: Gotl: " Said the waiter, \22Don't shout,\n" +18: Gotl: " And wave it about...\n" +18: Gotl: "or the rest will be wanting one too.\22\n" +18: Lines: "0..4" +18: Match: "5" +18: ok 18 + +19: RECORDSEP undef: getline slurps everything +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" +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" +19: ok 19 + +20: RECORDSEP undef: get first line +20: A: "par 1, line 1\n" +20: B: "par 1, line 1\n" +20: ok 20 + +21: RECORDSEP undef: slurp the rest +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" +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" +21: ok 21 + +22: RECORDSEP newline: rec 0 +22: A: "par 1, line 1\n" +22: B: "par 1, line 1\n" +22: ok 22 + +23: RECORDSEP newline: rec 1 +23: A: "par 1, line 2\n" +23: B: "par 1, line 2\n" +23: ok 23 + +24: RECORDSEP newline: rec 2 +24: A: "\n" +24: B: "\n" +24: ok 24 + +25: RECORDSEP newline: rec 3 +25: A: "\n" +25: B: "\n" +25: ok 25 + +26: RECORDSEP newline: rec 4 +26: A: "\n" +26: B: "\n" +26: ok 26 + +27: RECORDSEP newline: rec 5 +27: A: "\n" +27: B: "\n" +27: ok 27 + +28: RECORDSEP newline: rec 6 +28: A: "par 2, line 1\n" +28: B: "par 2, line 1\n" +28: ok 28 + +29: RECORDSEP newline: rec 7 +29: A: "\n" +29: B: "\n" +29: ok 29 + +30: RECORDSEP newline: rec 8 +30: A: "par 3, line 1\n" +30: B: "par 3, line 1\n" +30: ok 30 + +31: RECORDSEP newline: rec 9 +31: A: "par 3, line 2\n" +31: B: "par 3, line 2\n" +31: ok 31 + +32: RECORDSEP newline: rec 10 +32: A: "par 3, line 3" +32: B: "par 3, line 3" +32: ok 32 + +# END