r19528 - in /branches/upstream/libtext-wrapper-perl/current: ./ example/ lib/ lib/Text/ t/

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Tue May 6 14:43:14 UTC 2008


Author: dmn
Date: Tue May  6 14:43:13 2008
New Revision: 19528

URL: http://svn.debian.org/wsvn/?sc=1&rev=19528
Log:
[svn-upgrade] Integrating new upstream version, libtext-wrapper-perl (1.01)

Added:
    branches/upstream/libtext-wrapper-perl/current/Build.PL
    branches/upstream/libtext-wrapper-perl/current/META.yml
    branches/upstream/libtext-wrapper-perl/current/My_Build.pm   (with props)
    branches/upstream/libtext-wrapper-perl/current/example/
    branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl   (with props)
    branches/upstream/libtext-wrapper-perl/current/lib/
    branches/upstream/libtext-wrapper-perl/current/lib/Text/
    branches/upstream/libtext-wrapper-perl/current/lib/Text/Wrapper.pm   (with props)
    branches/upstream/libtext-wrapper-perl/current/t/
    branches/upstream/libtext-wrapper-perl/current/t/00.load.t
    branches/upstream/libtext-wrapper-perl/current/t/10.wrapper.t   (with props)
    branches/upstream/libtext-wrapper-perl/current/t/pod-coverage.t
    branches/upstream/libtext-wrapper-perl/current/t/pod.t
Removed:
    branches/upstream/libtext-wrapper-perl/current/Wrapper.pm
    branches/upstream/libtext-wrapper-perl/current/test.pl
Modified:
    branches/upstream/libtext-wrapper-perl/current/Changes
    branches/upstream/libtext-wrapper-perl/current/MANIFEST
    branches/upstream/libtext-wrapper-perl/current/Makefile.PL
    branches/upstream/libtext-wrapper-perl/current/README

Added: branches/upstream/libtext-wrapper-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/Build.PL?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/Build.PL (added)
+++ branches/upstream/libtext-wrapper-perl/current/Build.PL Tue May  6 14:43:13 2008
@@ -1,0 +1,33 @@
+#! /usr/bin/perl
+#---------------------------------------------------------------------
+# $Id: Build.PL 1706 2007-03-21 04:26:10Z cjm $
+# Copyright 2007 Christopher J. Madsen
+#
+# Build.PL for Text-Wrapper
+#---------------------------------------------------------------------
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib $FindBin::Bin; # Make sure we're using My_Build from our distribution
+
+use My_Build;          # Our customized version of Module::Build
+
+my $builder = My_Build->new(
+  module_name        => 'Text::Wrapper',
+  license            => 'perl',
+  dist_author        => 'Christopher J. Madsen <perl at cjmweb.net>',
+  dist_version_from  => 'lib/Text/Wrapper.pm',
+  requires           => { perl => 5.004 },
+  build_requires => {
+      'FindBin'       => 0,
+      'File::Spec'    => 0,
+      'Module::Build' => 0.21,
+      'Test::More'    => 0,
+  },
+  create_makefile_pl => 'passthrough',
+  dynamic_config     => 0,
+);
+
+$builder->create_build_script();

Modified: branches/upstream/libtext-wrapper-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/Changes?rev=19528&op=diff
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/Changes (original)
+++ branches/upstream/libtext-wrapper-perl/current/Changes Tue May  6 14:43:13 2008
@@ -1,4 +1,10 @@
 Revision history for Perl extension Text::Wrapper.
+
+1.01   Mar 21 2007
+	- converted to Module::Build
+        - updated my email address
+        - added example/gettysburg.pl
+        - added POD tests & fixed POD error
 
 1.000  Oct 26 1998
         - updated my email address

Modified: branches/upstream/libtext-wrapper-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/MANIFEST?rev=19528&op=diff
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/MANIFEST (original)
+++ branches/upstream/libtext-wrapper-perl/current/MANIFEST Tue May  6 14:43:13 2008
@@ -1,6 +1,13 @@
+Build.PL
 Changes				Revision history
+example/gettysburg.pl
+lib/Text/Wrapper.pm		The Text::Wrapper module
+Makefile.PL			MakeMaker wrapper for Module::Build
 MANIFEST			See MANIFEST
-Makefile.PL			MakeMaker Makefile
+META.yml
+My_Build.pm			Customize Module::Build
 README				About the Text::Wrapper module
-Wrapper.pm			The Text::Wrapper module
-test.pl				Testing... 1, 2, 3, Testing... 1, 2, 3
+t/00.load.t
+t/10.wrapper.t			Testing... 1, 2, 3, Testing... 1, 2, 3
+t/pod-coverage.t
+t/pod.t

Added: branches/upstream/libtext-wrapper-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/META.yml?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/META.yml (added)
+++ branches/upstream/libtext-wrapper-perl/current/META.yml Tue May  6 14:43:13 2008
@@ -1,0 +1,25 @@
+---
+name: Text-Wrapper
+version: 1.01
+author:
+  - Christopher J. Madsen <perl at cjmweb.net>
+abstract: Simple word wrapping routine
+license: perl
+resources:
+  license: http://dev.perl.org/licenses/
+requires:
+  perl: 5.004
+build_requires:
+  File::Spec: 0
+  FindBin: 0
+  Module::Build: 0.21
+  Test::More: 0
+dynamic_config: 0
+provides:
+  Text::Wrapper:
+    file: lib/Text/Wrapper.pm
+    version: 1.01
+generated_by: Module::Build version 0.2805
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.2.html
+  version: 1.2

Modified: branches/upstream/libtext-wrapper-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/Makefile.PL?rev=19528&op=diff
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/Makefile.PL (original)
+++ branches/upstream/libtext-wrapper-perl/current/Makefile.PL Tue May  6 14:43:13 2008
@@ -1,13 +1,31 @@
-# $Id: Makefile.PL 0.1 1998/05/14 22:25:07 Madsen Exp $
-
-use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
-    'NAME'	=> 'Text::Wrapper',
-    'VERSION_FROM' => 'Wrapper.pm', # finds $VERSION
-    'dist'	=> {COMPRESS => 'gzip -9f', SUFFIX => 'gz',
-# This next line is just for my own use, you should comment it out:
-                    PREOP => 'cjm_fixup $(DISTVNAME)' # Converts CRLF to LF
-                   }
-);
+# Note: this file was auto-generated by Module::Build::Compat version 0.03
+    
+    unless (eval "use Module::Build::Compat 0.02; 1" ) {
+      print "This module requires Module::Build to install itself.\n";
+      
+      require ExtUtils::MakeMaker;
+      my $yn = ExtUtils::MakeMaker::prompt
+	('  Install Module::Build now from CPAN?', 'y');
+      
+      unless ($yn =~ /^y/i) {
+	die " *** Cannot install without Module::Build.  Exiting ...\n";
+      }
+      
+      require Cwd;
+      require File::Spec;
+      require CPAN;
+      
+      # Save this 'cause CPAN will chdir all over the place.
+      my $cwd = Cwd::cwd();
+      
+      CPAN::Shell->install('Module::Build::Compat');
+      CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
+	or die "Couldn't install Module::Build, giving up.\n";
+      
+      chdir $cwd or die "Cannot chdir() back to $cwd: $!";
+    }
+    eval "use Module::Build::Compat 0.02; 1" or die $@;
+    use lib '.';
+    Module::Build::Compat->run_build_pl(args => \@ARGV);
+    require My_Build;
+    Module::Build::Compat->write_makefile(build_class => 'My_Build');

Added: branches/upstream/libtext-wrapper-perl/current/My_Build.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/My_Build.pm?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/My_Build.pm (added)
+++ branches/upstream/libtext-wrapper-perl/current/My_Build.pm Tue May  6 14:43:13 2008
@@ -1,0 +1,64 @@
+#---------------------------------------------------------------------
+# $Id$
+package My_Build;
+#
+# Copyright 2007 Christopher J. Madsen
+#
+# Author: Christopher J. Madsen <perl at cjmweb.net>
+# Created: 18 Feb 2007
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the same terms as Perl itself.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either the
+# GNU General Public License or the Artistic License for more details.
+#
+# Customize Module::Build for Text::Wrapper
+#---------------------------------------------------------------------
+
+use strict;
+use File::Spec ();
+use base 'Module::Build';
+
+#=====================================================================
+# Package Global Variables:
+
+our $VERSION = '1.00';
+
+#=====================================================================
+sub ACTION_distdir
+{
+  my $self = shift @_;
+
+  $self->SUPER::ACTION_distdir(@_);
+
+  # Process README, inserting version number & removing comments:
+
+  my $out = File::Spec->catfile($self->dist_dir, 'README');
+  my @stat = stat($out) or die;
+
+  unlink $out or die;
+
+  open(IN,  '<', 'README') or die;
+  open(OUT, '>', $out)     or die;
+
+  while (<IN>) {
+    next if /^\$\$/;            # $$ indicates comment
+    s/\$\%v\%\$/ $self->dist_version /ge;
+
+    print OUT $_;
+  } # end while IN
+
+  close IN;
+  close OUT;
+
+  utime @stat[8,9], $out;       # Restore modification times
+  chmod $stat[2],   $out;       # Restore access permissions
+} # end ACTION_distdir
+
+#=====================================================================
+# Package Return Value:
+
+1;

Propchange: branches/upstream/libtext-wrapper-perl/current/My_Build.pm
------------------------------------------------------------------------------
    svn:keywords = Id

Modified: branches/upstream/libtext-wrapper-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/README?rev=19528&op=diff
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/README (original)
+++ branches/upstream/libtext-wrapper-perl/current/README Tue May  6 14:43:13 2008
@@ -1,4 +1,4 @@
-Text::Wrapper 1.000
+Text::Wrapper 1.01
 Copyright 1998 Christopher J. Madsen
 
 DESCRIPTION
@@ -24,6 +24,9 @@
 
 RECENT CHANGES
 
+    Version 1.01 updates my email address and modernizes the build
+    system (to Module::Build).  There are no functional changes.
+
     Version 1.000 ends the beta stage and updates my email address.
 
     Version 0.008 corrects a bug that caused an infinite loop if a

Added: branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl (added)
+++ branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl Tue May  6 14:43:13 2008
@@ -1,0 +1,53 @@
+#! /usr/bin/perl
+#---------------------------------------------------------------------
+# $Id$
+# Copyright 2007 Christopher J. Madsen
+#
+# Example of using the Text::Wrapper module
+#---------------------------------------------------------------------
+
+use strict;
+use Text::Wrapper ();
+
+my $text = <<'EOT';
+Fourscore and seven years ago our fathers brought forth on this
+continent a new nation, conceived in liberty and dedicated to the
+proposition that all men are created equal.
+
+Now we are engaged in a great civil war,   testing whether that nation
+or any nation so conceived and so dedicated can long endure. We are
+met on a great battlefield of that war. We have come to dedicate a
+portion of that field as a final resting-place for those who here gave
+their lives that that nation might live. It is altogether fitting and
+proper that we should do this.
+
+But in a larger sense, we cannot dedicate, we cannot consecrate, we
+cannot hallow this ground.  The brave men, living and dead who
+struggled here have consecrated it far above our poor power to add or
+detract. The world will little note nor long remember what we say
+here, but it can never forget what they did here. It is for us the
+living rather to be dedicated here to the unfinished work which they
+who fought here have thus far so nobly advanced. It is rather for us
+to be here dedicated to the great task remaining before us--that from
+these honored dead we take increased devotion to that cause for which
+they gave the last full measure of devotion--that we here highly
+resolve that these dead shall not have died in vain, that this nation
+under God shall have a new birth of freedom, and that government of
+the people, by the people, for the people shall not perish from the
+earth.
+EOT
+
+# Merge it all into one line per paragraph:
+$text =~ s/\n(?=\S)/ /g;
+$text =~ s/\n /\n/g;
+
+my $wrapper = Text::Wrapper->new(columns=>40);
+
+print $text,"\n\n";
+
+print $wrapper->wrap($text),"\n\n";
+
+$wrapper->parStart('>  ');
+$wrapper->bodyStart('   ');
+$wrapper->columns(49);
+print $wrapper->wrap($text),"\n\n";

Propchange: branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl
------------------------------------------------------------------------------
    svn:executable = *

Propchange: branches/upstream/libtext-wrapper-perl/current/example/gettysburg.pl
------------------------------------------------------------------------------
    svn:keywords = Id

Added: branches/upstream/libtext-wrapper-perl/current/lib/Text/Wrapper.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/lib/Text/Wrapper.pm?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/lib/Text/Wrapper.pm (added)
+++ branches/upstream/libtext-wrapper-perl/current/lib/Text/Wrapper.pm Tue May  6 14:43:13 2008
@@ -1,0 +1,211 @@
+#---------------------------------------------------------------------
+package Text::Wrapper;
+#
+# Copyright 1998 Christopher J. Madsen
+#
+# Author: Christopher J. Madsen <perl at cjmweb.net>
+# Created: 06 Mar 1998
+# $Id$
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the same terms as Perl itself.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either the
+# GNU General Public License or the Artistic License for more details.
+#
+# Word wrap text by breaking long lines
+#---------------------------------------------------------------------
+
+require 5.004;
+use Carp;
+use strict;
+use vars qw($AUTOLOAD $VERSION);
+
+#=====================================================================
+# Package Global Variables:
+
+BEGIN
+{
+    $VERSION = '1.01';
+} # end BEGIN
+
+#=====================================================================
+# Methods:
+#---------------------------------------------------------------------
+# Provide methods for getting/setting fields:
+
+sub AUTOLOAD
+{
+    my $self = $_[0];
+    my $type = ref($self) or croak("$self is not an object");
+    my $name = $AUTOLOAD;
+    $name =~ s/.*://;   # strip fully-qualified portion
+    my $field = $name;
+    $field =~ s/_([a-z])/\u$1/g; # squash underlines into mixed case
+    unless (exists $self->{$field}) {
+        # Ignore special methods like DESTROY:
+        return undef if $name =~ /^[A-Z]+$/;
+        croak("Can't locate object method \"$name\" via package \"$type\"");
+    }
+    return $self->{$field} = $_[1] if $#_;
+    $self->{$field};
+} # end AUTOLOAD
+
+#---------------------------------------------------------------------
+sub new
+{
+    my $self = bless {
+        'bodyStart' => '',
+        'columns'   => 70,
+        'parStart'  => '',
+    }, shift;
+
+    croak "Missing parameter" unless (scalar @_ % 2) == 0;
+    while (@_) {
+        $AUTOLOAD = shift;
+        defined eval { &AUTOLOAD($self, shift) }
+        or croak("Unknown parameter `$AUTOLOAD'");
+    }
+
+    $self;
+} # end new
+
+#---------------------------------------------------------------------
+sub wrap
+{
+    my $self = shift;
+    my $width = $self->{'columns'};
+    my $text = $self->{'parStart'};
+    my $length = length $text;
+    my $lineStart = $length;
+    my $parStart = $text;
+    my $parStartLen = $length;
+    my $continue = "\n" . $self->{'bodyStart'};
+    my $contLen  = length $self->{'bodyStart'};
+    pos($_[0]) = 0;             # Make sure we start at the beginning
+    for (;;) {
+        if ($_[0] =~ m/\G[ \t]*(\n+)/gc) {
+            $text .= $1 . $parStart;
+            $lineStart = $length = $parStartLen;
+        } else {
+            $_[0] =~ m/\G(\s*(?:[^-\s]+-*|\S+))/g or last;
+            my $word = $1;
+          again:
+            if (($length + length $word <= $width) or ($length == $lineStart)) {
+                $length += length $word;
+                $text .= $word;
+            } else {
+                $text .= $continue;
+                $lineStart = $length = $contLen;
+                $word =~ s/^\s+//;
+                goto again;
+            }
+        }
+    } # end forever
+    if ($length != $lineStart) { $text .= "\n" }
+    else { $text =~ s/(?:\Q$continue\E|\n\Q$parStart\E)\Z/\n/ }
+
+    $text;
+} # end wrap
+
+#=====================================================================
+# Package Return Value:
+
+1;
+
+__END__
+
+=head1 NAME
+
+Text::Wrapper - Simple word wrapping routine
+
+=head1 SYNOPSIS
+
+    require Text::Wrapper;
+    $wrapper = Text::Wrapper->new(columns => 60, body_start => '    ');
+    print $wrapper->wrap($text);
+
+=head1 DESCRIPTION
+
+B<Text::Wrapper> provides simple word wrapping.  It breaks long lines,
+but does not alter spacing or remove existing line breaks.  If you're
+looking for more sophisticated text formatting, try the
+L<Text::Format> module.
+
+Reasons to use B<Text::Wrapper> instead of B<Text::Format>:
+
+=over 4
+
+=item *
+
+B<Text::Wrapper> is significantly smaller.
+
+=item *
+
+It does not alter existing whitespace or combine short lines.
+It only breaks long lines.
+
+=back
+
+Again, if B<Text::Wrapper> doesn't meet your needs, try
+B<Text::Format>.
+
+=head2 Methods
+
+=over 4
+
+=item $wrapper = Text::Wrapper->new( [options] )
+
+Constructs a new B<Text::Wrapper> object.  The options are specified
+by key and value.  The keys are:
+
+ body_start  The text that begins the second and following lines of
+             a paragraph.  (Default '')
+
+ columns     The number of columns to use.  This includes any text
+             in body_start or par_start.  (Default 70)
+
+ par_start   The text that begins the first line of each paragraph.
+             (Default '')
+
+=item $wrapper->body_start( [$value] )
+
+=item $wrapper->columns( [$value] )
+
+=item $wrapper->par_start( [$value] )
+
+If C<$value> is supplied, sets the option and returns the previous value.
+If omitted, just returns the current value.
+
+=item $wrapper->wrap($text)
+
+Returns a word wrapped copy of C<$text>.  The original is not altered.
+
+=back
+
+=head1 BUGS
+
+Does not handle tabs (they're treated just like spaces).
+
+Does not break words that can't fit on one line.
+
+=head1 LICENSE
+
+Text::Wrapper is distributed under the same terms as Perl itself.
+
+This means it is distributed in the hope that it will be useful, but
+I<without any warranty>; without even the implied warranty of
+I<merchantability> or I<fitness for a particular purpose>.  See the
+GNU General Public License or the Artistic License for more details.
+
+=head1 AUTHOR
+
+Christopher J. Madsen E<lt>F<perl AT cjmweb.net>E<gt>
+
+Please send bug reports to F<bug-Text-Wrapper AT rt.cpan.org>, or
+use the web interface at
+L<http://rt.cpan.org/Public/Bug/Report.html?Queue=Text-Wrapper>
+
+=cut

Propchange: branches/upstream/libtext-wrapper-perl/current/lib/Text/Wrapper.pm
------------------------------------------------------------------------------
    svn:keywords = Id

Added: branches/upstream/libtext-wrapper-perl/current/t/00.load.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/t/00.load.t?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/t/00.load.t (added)
+++ branches/upstream/libtext-wrapper-perl/current/t/00.load.t Tue May  6 14:43:13 2008
@@ -1,0 +1,12 @@
+#! /usr/bin/perl
+#---------------------------------------------------------------------
+# $Id: 00.load.t 1706 2007-03-21 04:26:10Z cjm $
+#---------------------------------------------------------------------
+
+use Test::More tests => 1;
+
+BEGIN {
+use_ok( 'Text::Wrapper' );
+}
+
+diag( "Testing Text::Wrapper $Text::Wrapper::VERSION" );

Added: branches/upstream/libtext-wrapper-perl/current/t/10.wrapper.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/t/10.wrapper.t?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/t/10.wrapper.t (added)
+++ branches/upstream/libtext-wrapper-perl/current/t/10.wrapper.t Tue May  6 14:43:13 2008
@@ -1,0 +1,355 @@
+#! /usr/bin/perl
+#---------------------------------------------------------------------
+# $Id: 10.wrapper.t 1707 2007-03-21 04:49:29Z cjm $
+#---------------------------------------------------------------------
+
+use strict;
+use Test::More tests => 5;
+
+BEGIN {
+use_ok( 'Text::Wrapper' );
+}
+
+my $generate = (@ARGV and $ARGV[0] eq 'print');
+
+#=====================================================================
+sub read_data
+{
+    my $text = '';
+    while (<DATA>) {
+        return ($1, $text) if /^\*\s*(.*)/;
+        $text .= $_;
+    }
+    die "Unexpected end of file";
+} # end read_data
+
+#=====================================================================
+# First, read the sample text, remove single line breaks, and condense
+# double line breaks into one:
+
+my $text = (read_data)[1];
+$text =~ s/\n(?=\S)/ /g;
+$text =~ s/\n /\n/g;
+
+#---------------------------------------------------------------------
+# Now try each set of parameters and compare it to the expected result:
+#   (Or, if invoked as '10.wrapper.t print', print out the actual
+#   results and parameters in the required format.)
+
+my ($test,$args,$expect,$w,$result) = 1;
+for (;;) {
+    ($args,$expect) = read_data;
+    last unless $expect;
+    $w = Text::Wrapper->new(eval $args);
+    $result = $w->wrap($text);
+    if ($generate) { print "$result* $args\n" }
+    else {
+        is($result, $expect, $args);
+    }
+} # end forever
+
+#---------------------------------------------------------------------
+# Here is the sample text followed by the test cases.  Each test case
+# is terminated by a line beginning with *, followed by the parameters
+# for that test.  The test cases are terminated by an empty case.
+# Don't forget to change the count in the use Test::More line.
+
+__DATA__
+Fourscore and seven years ago our fathers brought forth on this
+continent a new nation, conceived in liberty and dedicated to the
+proposition that all men are created equal.
+
+Now we are engaged in a great civil war, testing whether that nation
+or any nation so conceived and so dedicated can long endure. We are
+met on a great battlefield of that war. We have come to dedicate a
+portion of that field as a final resting-place for those who here gave
+their lives that that nation might live. It is altogether fitting and
+proper that we should do this.
+
+But in a larger sense, we cannot dedicate, we cannot consecrate, we
+cannot hallow this ground.  The brave men, living and dead who
+struggled here have consecrated it far above our poor power to add or
+detract. The world will little note nor long remember what we say
+here, but it can never forget what they did here. It is for us the
+living rather to be dedicated here to the unfinished work which they
+who fought here have thus far so nobly advanced. It is rather for us
+to be here dedicated to the great task remaining before us--that from
+these honored dead we take increased devotion to that cause for which
+they gave the last full measure of devotion--that we here highly
+resolve that these dead shall not have died in vain, that this nation
+under God shall have a new birth of freedom, and that government of
+the people, by the people, for the people shall not perish from the
+earth.
+*
+Fourscore and seven years ago our
+fathers brought forth on this continent
+a new nation, conceived in liberty and
+dedicated to the proposition that all
+men are created equal.
+Now we are engaged in a great civil war,
+testing whether that nation or any
+nation so conceived and so dedicated can
+long endure. We are met on a great
+battlefield of that war. We have come to
+dedicate a portion of that field as a
+final resting-place for those who here
+gave their lives that that nation might
+live. It is altogether fitting and
+proper that we should do this.
+But in a larger sense, we cannot
+dedicate, we cannot consecrate, we
+cannot hallow this ground.  The brave
+men, living and dead who struggled here
+have consecrated it far above our poor
+power to add or detract. The world will
+little note nor long remember what we
+say here, but it can never forget what
+they did here. It is for us the living
+rather to be dedicated here to the
+unfinished work which they who fought
+here have thus far so nobly advanced. It
+is rather for us to be here dedicated to
+the great task remaining before us--that
+from these honored dead we take
+increased devotion to that cause for
+which they gave the last full measure of
+devotion--that we here highly resolve
+that these dead shall not have died in
+vain, that this nation under God shall
+have a new birth of freedom, and that
+government of the people, by the people,
+for the people shall not perish from the
+earth.
+* (columns => 40)
+>  Fourscore and seven years ago our fathers
+   brought forth on this continent a new nation,
+   conceived in liberty and dedicated to the
+   proposition that all men are created equal.
+>  Now we are engaged in a great civil war,
+   testing whether that nation or any nation so
+   conceived and so dedicated can long endure. We
+   are met on a great battlefield of that war. We
+   have come to dedicate a portion of that field
+   as a final resting-place for those who here
+   gave their lives that that nation might live.
+   It is altogether fitting and proper that we
+   should do this.
+>  But in a larger sense, we cannot dedicate, we
+   cannot consecrate, we cannot hallow this
+   ground.  The brave men, living and dead who
+   struggled here have consecrated it far above
+   our poor power to add or detract. The world
+   will little note nor long remember what we say
+   here, but it can never forget what they did
+   here. It is for us the living rather to be
+   dedicated here to the unfinished work which
+   they who fought here have thus far so nobly
+   advanced. It is rather for us to be here
+   dedicated to the great task remaining before
+   us--that from these honored dead we take
+   increased devotion to that cause for which
+   they gave the last full measure of devotion--
+   that we here highly resolve that these dead
+   shall not have died in vain, that this nation
+   under God shall have a new birth of freedom,
+   and that government of the people, by the
+   people, for the people shall not perish from
+   the earth.
+* (par_start => '>  ', body_start => '   ', columns => 49)
+>    Fourscore and seven years ago our fathers brought forth on this
+ | continent a new nation, conceived in liberty and dedicated to the
+ | proposition that all men are created equal.
+>    Now we are engaged in a great civil war, testing whether that
+ | nation or any nation so conceived and so dedicated can long endure.
+ | We are met on a great battlefield of that war. We have come to
+ | dedicate a portion of that field as a final resting-place for those
+ | who here gave their lives that that nation might live. It is
+ | altogether fitting and proper that we should do this.
+>    But in a larger sense, we cannot dedicate, we cannot consecrate,
+ | we cannot hallow this ground.  The brave men, living and dead who
+ | struggled here have consecrated it far above our poor power to add
+ | or detract. The world will little note nor long remember what we
+ | say here, but it can never forget what they did here. It is for us
+ | the living rather to be dedicated here to the unfinished work which
+ | they who fought here have thus far so nobly advanced. It is rather
+ | for us to be here dedicated to the great task remaining before us--
+ | that from these honored dead we take increased devotion to that
+ | cause for which they gave the last full measure of devotion--that
+ | we here highly resolve that these dead shall not have died in vain,
+ | that this nation under God shall have a new birth of freedom, and
+ | that government of the people, by the people, for the people shall
+ | not perish from the earth.
+* (par_start => '>    ', body_start => ' | ')
+Fourscore
+and seven
+years ago
+our
+fathers
+brought
+forth on
+this
+continent
+a new
+nation,
+conceived
+in liberty
+and
+dedicated
+to the
+proposition
+that all
+men are
+created
+equal.
+Now we are
+engaged in
+a great
+civil war,
+testing
+whether
+that
+nation or
+any nation
+so
+conceived
+and so
+dedicated
+can long
+endure. We
+are met on
+a great
+battlefield
+of that
+war. We
+have come
+to
+dedicate a
+portion of
+that field
+as a final
+resting-
+place for
+those who
+here gave
+their
+lives that
+that
+nation
+might
+live. It
+is
+altogether
+fitting
+and proper
+that we
+should do
+this.
+But in a
+larger
+sense, we
+cannot
+dedicate,
+we cannot
+consecrate,
+we cannot
+hallow
+this
+ground.
+The brave
+men,
+living and
+dead who
+struggled
+here have
+consecrated
+it far
+above our
+poor power
+to add or
+detract.
+The world
+will
+little
+note nor
+long
+remember
+what we
+say here,
+but it can
+never
+forget
+what they
+did here.
+It is for
+us the
+living
+rather to
+be
+dedicated
+here to
+the
+unfinished
+work which
+they who
+fought
+here have
+thus far
+so nobly
+advanced.
+It is
+rather for
+us to be
+here
+dedicated
+to the
+great task
+remaining
+before
+us--that
+from these
+honored
+dead we
+take
+increased
+devotion
+to that
+cause for
+which they
+gave the
+last full
+measure of
+devotion--
+that we
+here
+highly
+resolve
+that these
+dead shall
+not have
+died in
+vain, that
+this
+nation
+under God
+shall have
+a new
+birth of
+freedom,
+and that
+government
+of the
+people, by
+the
+people,
+for the
+people
+shall not
+perish
+from the
+earth.
+* (columns => 10)
+* This line marks the end of the test cases
+
+Local Variables:
+  tmtrack-file-task: "Text::Wrapper: test.pl"
+End:

Propchange: branches/upstream/libtext-wrapper-perl/current/t/10.wrapper.t
------------------------------------------------------------------------------
    svn:executable = *

Added: branches/upstream/libtext-wrapper-perl/current/t/pod-coverage.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/t/pod-coverage.t?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/t/pod-coverage.t (added)
+++ branches/upstream/libtext-wrapper-perl/current/t/pod-coverage.t Tue May  6 14:43:13 2008
@@ -1,0 +1,9 @@
+#! /usr/bin/perl
+#---------------------------------------------------------------------
+# $Id: pod-coverage.t 1706 2007-03-21 04:26:10Z cjm $
+#---------------------------------------------------------------------
+
+use Test::More;
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+all_pod_coverage_ok();

Added: branches/upstream/libtext-wrapper-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtext-wrapper-perl/current/t/pod.t?rev=19528&op=file
==============================================================================
--- branches/upstream/libtext-wrapper-perl/current/t/pod.t (added)
+++ branches/upstream/libtext-wrapper-perl/current/t/pod.t Tue May  6 14:43:13 2008
@@ -1,0 +1,9 @@
+#! /usr/bin/perl
+#---------------------------------------------------------------------
+# $Id: pod.t 1706 2007-03-21 04:26:10Z cjm $
+#---------------------------------------------------------------------
+
+use Test::More;
+eval "use Test::Pod 1.14";
+plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+all_pod_files_ok();




More information about the Pkg-perl-cvs-commits mailing list