File: 4.t

package info (click to toggle)
libtext-context-perl 3.7-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 96 kB
  • sloc: perl: 167; makefile: 2
file content (7 lines) | stat: -rw-r--r-- 255 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
 
use Text::Context;
use Test::More qw(no_plan);
# What if the terms aren't there are all?

my $tc = Text::Context->new("Re: Defect in XBD lround",
"+44 118 9508311 ext 2250", "+44 118 9500110", "josey");
is($#{[$tc->paras]}, -1, "... and it doesn't die");