File: moniker.t

package info (click to toggle)
libuniversal-moniker-perl 0.08-5
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 52 kB
  • ctags: 4
  • sloc: perl: 31; makefile: 2
file content (12 lines) | stat: -rw-r--r-- 329 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl
use Test::More tests => 4;

require_ok 'UNIVERSAL::moniker';
is Bpm::User->moniker, "user";
is +(bless {}, "Bpm::Customer")->moniker, "customer";

SKIP: {
	skip "You don't seem to have Lingua::EN::Inflect installed", 1
		unless eval {require Lingua::EN::Inflect};
	is Bpm::Octopus->plural_moniker, "octopuses";
}