Author: allison
Date: Fri Oct 5 19:45:26 2007
New Revision: 21905
Modified:
branches/pdd15oo/t/examples/streams.t
Log:
[pdd15oo] Update test file to match new test output (the source files no longer
calls find_type).
Modified: branches/pdd15oo/t/examples/streams.t
==============================================================================
--- branches/pdd15oo/t/examples/streams.t (original)
+++ branches/pdd15oo/t/examples/streams.t Fri Oct 5 19:45:26 2007
@@ -161,76 +161,72 @@
read:[ 39 load_bytecode "library/Stream/Combiner.pir"]
read:[ 40 ]
read:[ 41 # create a file stream]
-read:[ 42 find_type $I0, "Stream::ParrotIO"]
-read:[ 43 new file, $I0]
-read:[ 44 file."open"( name, "<" )]
-read:[ 45 ]
-read:[ 46 # process it one line per read]
-read:[ 47 find_type $I0, "Stream::Lines"]
-read:[ 48 new lines, $I0]
-read:[ 49 assign lines, file]
-read:[ 50 ]
-read:[ 51 # endless counter]
-read:[ 52 find_type $I0, "Stream::Sub"]
-read:[ 53 new counter, $I0]
-read:[ 54 .const .Sub temp = "_counter"]
-read:[ 55 assign counter, temp]
-read:[ 56 ]
-read:[ 57 # combine the counter and the file's lines]
-read:[ 58 find_type $I0, "Stream::Combiner"]
-read:[ 59 new combiner, $I0]
-read:[ 60 assign combiner, counter]
-read:[ 61 assign combiner, lines]
-read:[ 62 ]
-read:[ 63 # dump the stream]
-read:[ 64 combiner."dump"()]
-read:[ 65 ]
-read:[ 66 end]
-read:[ 67 .end]
-read:[ 68 ]
-read:[ 69 =item _counter]
-read:[ 70 ]
-read:[ 71 This sub is the source of the counter stream. It just endlessly
writes]
-read:[ 72 line numbers followed by a space to its stream.]
-read:[ 73 ]
-read:[ 74 =cut]
-read:[ 75 ]
-read:[ 76 .sub _counter]
-read:[ 77 .param pmc stream]
-read:[ 78 .local int i]
-read:[ 79 .local string str]
-read:[ 80 .local pmc array]
-read:[ 81 ]
-read:[ 82 i = 0]
-read:[ 83 array = new 'ResizablePMCArray']
-read:[ 84 ]
-read:[ 85 LOOP:]
-read:[ 86 inc i]
-read:[ 87 array[0] = i]
-read:[ 88 sprintf str, "%5d ", array]
-read:[ 89 stream."write"( str )]
-read:[ 90 branch LOOP]
-read:[ 91 .end]
+read:[ 42 file = new "Stream::ParrotIO"]
+read:[ 43 file."open"( name, "<" )]
+read:[ 44 ]
+read:[ 45 # process it one line per read]
+read:[ 46 lines = new "Stream::Lines"]
+read:[ 47 assign lines, file]
+read:[ 48 ]
+read:[ 49 # endless counter]
+read:[ 50 counter = new "Stream::Sub"]
+read:[ 51 .const .Sub temp = "_counter"]
+read:[ 52 assign counter, temp]
+read:[ 53 ]
+read:[ 54 # combine the counter and the file's lines]
+read:[ 55 combiner = new "Stream::Combiner"]
+read:[ 56 assign combiner, counter]
+read:[ 57 assign combiner, lines]
+read:[ 58 ]
+read:[ 59 # dump the stream]
+read:[ 60 combiner."dump"()]
+read:[ 61 ]
+read:[ 62 end]
+read:[ 63 .end]
+read:[ 64 ]
+read:[ 65 =item _counter]
+read:[ 66 ]
+read:[ 67 This sub is the source of the counter stream. It just endlessly
writes]
+read:[ 68 line numbers followed by a space to its stream.]
+read:[ 69 ]
+read:[ 70 =cut]
+read:[ 71 ]
+read:[ 72 .sub _counter]
+read:[ 73 .param pmc stream]
+read:[ 74 .local int i]
+read:[ 75 .local string str]
+read:[ 76 .local pmc array]
+read:[ 77 ]
+read:[ 78 i = 0]
+read:[ 79 array = new 'ResizablePMCArray']
+read:[ 80 ]
+read:[ 81 LOOP:]
+read:[ 82 inc i]
+read:[ 83 array[0] = i]
+read:[ 84 sprintf str, "%5d ", array]
+read:[ 85 stream."write"( str )]
+read:[ 86 branch LOOP]
+read:[ 87 .end]
+read:[ 88 ]
+read:[ 89 =back]
+read:[ 90 ]
+read:[ 91 =head1 AUTHOR]
read:[ 92 ]
-read:[ 93 =back]
-read:[ 94 ]
-read:[ 95 =head1 AUTHOR]
+read:[ 93 Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is the author]
+read:[ 94 and maintainer.]
+read:[ 95 Please send patches and suggestions to the Perl 6 Internals
mailing list.]
read:[ 96 ]
-read:[ 97 Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is the author]
-read:[ 98 and maintainer.]
-read:[ 99 Please send patches and suggestions to the Perl 6 Internals
mailing list.]
+read:[ 97 =head1 COPYRIGHT]
+read:[ 98 ]
+read:[ 99 Copyright (C) 2004, The Perl Foundation.]
read:[ 100 ]
-read:[ 101 =head1 COPYRIGHT]
+read:[ 101 =cut]
read:[ 102 ]
-read:[ 103 Copyright (C) 2004, The Perl Foundation.]
-read:[ 104 ]
-read:[ 105 =cut]
-read:[ 106 ]
-read:[ 107 # Local Variables:]
-read:[ 108 # mode: pir]
-read:[ 109 # fill-column: 100]
-read:[ 110 # End:]
-read:[ 111 # vim: expandtab shiftwidth=4:]
+read:[ 103 # Local Variables:]
+read:[ 104 # mode: pir]
+read:[ 105 # fill-column: 100]
+read:[ 106 # End:]
+read:[ 107 # vim: expandtab shiftwidth=4:]
EXP_FILELINES
'ParrotIO.pir' => <<'EXP_PARROTIO',
@@ -247,19 +243,19 @@
read:[ to the stream with the C<assign> op.\n\n=cut\n\n.sub ]
read:[_main :main\n .local pmc stream\n\n load_byteco]
read:[de "library/Stream/ParrotIO.pir"\n\n # create the]
-read:[ ParrotIO stream \n find_type $I0, "Stream::P]
-read:[arrotIO"\n new stream, $I0\n\n # open this file]
-read:[\n stream."open"( "examples/streams/ParrotIO.pir]
-read:[", "<" )\n \n # you can specifiy a custom bloc]
-read:[k size with\n # stream."blockSize"( 10 )\n \n ]
-read:[ # dump the stream\n stream."dump"()\n \n e]
-read:[nd\n.end\n\n=head1 AUTHOR\n\nJens Rieks E<lt>parrot at ]
-read:[jensbeimsurfen dot deE<gt> is the author\nand maint]
-read:[ainer.\nPlease send patches and suggestions to the ]
-read:[Perl 6 Internals mailing list.\n\n=head1 COPYRIGHT\n\n]
-read:[Copyright (C) 2004, The Perl Foundation.\n\n=cut\n\n# ]
-read:[Local Variables:\n# mode: pir\n# fill-column: 10]
-read:[0\n# End:\n# vim: expandtab shiftwidth=4:\n]
+read:[ ParrotIO stream \n stream = new "Stream::Par]
+read:[rotIO"\n\n # open this file\n stream."open"( "e]
+read:[xamples/streams/ParrotIO.pir", "<" )\n \n # yo]
+read:[u can specifiy a custom block size with\n # stre]
+read:[am."blockSize"( 10 )\n \n # dump the stream\n ]
+read:[ stream."dump"()\n \n end\n.end\n\n=head1 AUTHOR]
+read:[\n\nJens Rieks E<lt>parrot at jensbeimsurfen dot deE]
+read:[<gt> is the author\nand maintainer.\nPlease send pat]
+read:[ches and suggestions to the Perl 6 Internals maili]
+read:[ng list.\n\n=head1 COPYRIGHT\n\nCopyright (C) 2004, Th]
+read:[e Perl Foundation.\n\n=cut\n\n# Local Variables:\n# m]
+read:[ode: pir\n# fill-column: 100\n# End:\n# vim: expand]
+read:[tab shiftwidth=4:\n]
EXP_PARROTIO
},
);
