File: 15_kill_eftr.t

package info (click to toggle)
libemail-foldertype-perl 0.7-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 76 kB
  • ctags: 9
  • sloc: perl: 42; makefile: 40
file content (8 lines) | stat: -rw-r--r-- 244 bytes parent folder | download 
1
2
3
4
5
6
7
8
 
use Test::More tests => 4;

use Email::FolderType::Register qw[register_type];

ok ! eval "register_type", $@;
ok ! eval "register_type 'foo'", $@;
ok ! eval "register_type 'foo', 'bar'", $@;
ok ! eval "register_type 'foo', sub {}, 'bar'", $@;