1use Test::More tests => 5;
2use_ok("Text::Original");
3
4# The bizarre love affair with Andrew Josey related email continues.
5my $text = <<EOF;
6On Fri, May 09, 2003 at 08:54:17AM +0100, Andrew Josey wrote:
7
8> There was some discussion over the future of WG15, and the desire
9> for the ISO representation to continue - most probably by some appointee
10> from the SC22 level where the work will be transferred.
11
12What are the perceived problems? Is WG15 about to be disbanded?
13I think the main WG15 group is quite inactive but we are active e.g in the
14Austin group.
15
16best regards
17Keld
18
19EOF
20
21is(first_lines($text),
22"What are the perceived problems? Is WG15 about to be disbanded?",
23"First line");
24is(first_lines($text,2),
25"What are the perceived problems? Is WG15 about to be disbanded?
26I think the main WG15 group is quite inactive but we are active e.g in the",
27"First and second line");
28is(first_sentence($text),
29"What are the perceived problems?",
30"First sentence");
31is(first_paragraph($text)."\n",<<EOF, "First paragraph");
32What are the perceived problems? Is WG15 about to be disbanded?
33I think the main WG15 group is quite inactive but we are active e.g in the
34Austin group.
35EOF
36