[svn:parrot] r37295 - in trunk: examples/streams t/examples

[Util at svn.parrot.org]

Author: Util
Date: Wed Mar 11 02:44:00 2009
New Revision: 37295
URL: https://trac.parrot.org/parrot/changeset/37295

Log:
Updated streams.t to match previously changed .pir data-sources (TT#429)

Modified:
   trunk/examples/streams/FileLines.pir
   trunk/t/examples/streams.t

Modified: trunk/examples/streams/FileLines.pir
==============================================================================
--- trunk/examples/streams/FileLines.pir	Wed Mar 11 01:59:24 2009	(r37294)
+++ trunk/examples/streams/FileLines.pir	Wed Mar 11 02:44:00 2009	(r37295)
@@ -8,8 +8,8 @@
 
 =head1 NOTE
 
-When updating this file, be sure to verify L<t/example/streams.t>, as its
-tests rely on the content of this file
+When updating this file, be sure to verify L<t/examples/streams.t>, as its
+tests rely on the content of this file.
 
 =head1 FUNCTIONS
 

Modified: trunk/t/examples/streams.t
==============================================================================
--- trunk/t/examples/streams.t	Wed Mar 11 01:59:24 2009	(r37294)
+++ trunk/t/examples/streams.t	Wed Mar 11 02:44:00 2009	(r37295)
@@ -120,7 +120,7 @@
 
     file => {
         'FileLines.pir' => <<'EXP_FILELINES',
-read:[    1 =head1 INFORMATION]
+read:[    1 =head1 Advanced Lines Example]
 read:[    2 ]
 read:[    3 This is an advanced example.]
 read:[    4 ]
@@ -130,8 +130,8 @@
 read:[    8 ]
 read:[    9 =head1 NOTE]
 read:[   10 ]
-read:[   11 When updating this file, be sure to verify L<t/example/streams.t>, as its]
-read:[   12 tests rely on the content of this file]
+read:[   11 When updating this file, be sure to verify L<t/examples/streams.t>, as its]
+read:[   12 tests rely on the content of this file.]
 read:[   13 ]
 read:[   14 =head1 FUNCTIONS]
 read:[   15 ]
@@ -235,32 +235,32 @@
 EXP_FILELINES
 
         'ParrotIO.pir' => <<'EXP_PARROTIO',
-read:[=head1 INFORMATION\n\nThis small example shows the u]
-read:[sage of C<Stream::ParrotIO>.\n\nIt reads this file w]
-read:[ith a default block size.\n\nYou can specify another]
-read:[ block size with the C<blockSize> method.\nC<blockS]
-read:[ize> called without an integer parameter will retu]
-read:[rn the\ncurrent block size.\n\nEach time the C<read> ]
-read:[method is called, the next block is read from\nthe ]
-read:[underlying ParrotIO, until EOF, where the stream w]
-read:[ill be disconnected.\n\nInstead of using the C<open>]
-read:[ method, you can also assign your own ParrotIO\nPMC]
-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    stream = new \"Stream::ParrotI]
-read:[O\"\n\n    # open this file\n    stream.\"open\"( \"examp]
-read:[les/streams/ParrotIO.pir\", 'r' )\n\n    # you can sp]
-read:[ecifiy a custom block size with\n    # stream.\"bloc]
-read:[kSize\"( 10 )\n\n    # dump the stream\n    stream.\"du]
-read:[mp\"()\n\n    end\n.end\n\n=head1 AUTHOR\n\nJens Rieks E<l]
-read:[t>parrot at jensbeimsurfen dot deE<gt> is the auth]
-read:[or\nand maintainer.\nPlease send patches and suggest]
-read:[ions to the Perl 6 Internals mailing list.\n\n=head1]
-read:[ COPYRIGHT\n\nCopyright (C) 2004-2008, Parrot Founda]
-read:[tion.\n\n=cut\n\n# Local Variables:\n#   mode: pir\n#   ]
-read:[fill-column: 100\n# End:\n# vim: expandtab shiftwidt]
-read:[h=4 ft=pir:\n]
+read:[=head1 Filehandle Object Example\n\nThis small examp]
+read:[le shows the usage of C<Stream::ParrotIO>.\n\nIt rea]
+read:[ds this file with a default block size.\n\nYou can s]
+read:[pecify another block size with the C<blockSize> me]
+read:[thod.\nC<blockSize> called without an integer param]
+read:[eter will return the\ncurrent block size.\n\nEach tim]
+read:[e the C<read> method is called, the next block is ]
+read:[read from\nthe underlying ParrotIO, until EOF, wher]
+read:[e the stream will be disconnected.\n\nInstead of usi]
+read:[ng the C<open> method, you can also assign your ow]
+read:[n ParrotIO\nPMC to the stream with the C<assign> op]
+read:[.\n\n=cut\n\n.sub _main :main\n    .local pmc stream\n\n ]
+read:[   load_bytecode \"library/Stream/ParrotIO.pir\"\n\n  ]
+read:[  # create the ParrotIO stream\n    stream = new \"S]
+read:[tream::ParrotIO\"\n\n    # open this file\n    stream.]
+read:[\"open\"( \"examples/streams/ParrotIO.pir\", 'r' )\n\n  ]
+read:[  # you can specifiy a custom block size with\n    ]
+read:[# stream.\"blockSize\"( 10 )\n\n    # dump the stream\n]
+read:[    stream.\"dump\"()\n\n    end\n.end\n\n=head1 AUTHOR\n\n]
+read:[Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<g]
+read:[t> is the author\nand maintainer.\nPlease send patch]
+read:[es and suggestions to the Perl 6 Internals mailing]
+read:[ list.\n\n=head1 COPYRIGHT\n\nCopyright (C) 2004-2008,]
+read:[ Parrot Foundation.\n\n=cut\n\n# Local Variables:\n#   ]
+read:[mode: pir\n#   fill-column: 100\n# End:\n# vim: expan]
+read:[dtab shiftwidth=4 ft=pir:\n]
 EXP_PARROTIO
     },
 );