More Tests 

$formatter = Text::Para->new(columns => 32);

is(
  $formatter->format(<<"  EOF"),
    The quick brown fox jumps over the lazy dog and in the process set
    in motion a train of events that would shake civilisation to its
    very core and threaten the long established social norms.
    
    And stuff.
  EOF
  "The quick brown fox jumps over\n"
  . "the lazy dog and in the process\n"
  . "set in motion a train of events\n"
  . "that would shake civilisation to\n"
  . "its very core and threaten the\n"
  . "long established social norms.\n\n"
  . "And stuff.",
  'lengthy paragraph wrapped correctly'
);