Activator

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
t/Config-05.t
t/data/DB-create-mysql-test.sql
t/data/DB-create-Pg-test.sql
t/data/DB-drop-mysql-test.sql
t/data/DB-drop-Pg-test.sql
t/data/DB-test.yml
t/data/Dictionary-create-test.sql
t/data/Dictionary-default.yml
t/data/Dictionary-dies.yml
t/data/Dictionary-drop-test.sql
t/data/Dictionary/en/backup.dict
t/data/Dictionary/en/dtest.dict
t/data/Emailer/email.tt
t/data/Emailer/email_wrap.tt
t/data/Emailer/html_body.tt
t/data/Emailer/html_footer.tt
t/data/Emailer/html_header.tt
t/data/Emailer/registry.yml
t/data/Emailer/test-mission.doc
t/data/Log-disabling.yml
t/data/Log-log4perl.conf

t/Dictionary-dies.t  view on Meta::CPAN

28
29
30
31
32
33
34
35
36
37
38
$val = $dict->lookup('fkey1');
ok( $val eq 'fvalue1', 'can lookup known key' );
 
dies_ok {
    $val = $dict->lookup('fkey2');
} "lookup dies when looking up invalid key";
 
lives_ok { 
    $val = $dict->lookup('fkey3');
} "lookup doesn't die when realm defined in fail_mode";
ok( $val eq 'backup value', "lookup returns defined realm's value in fail_mode" );

t/data/Dictionary-dies.yml  view on Meta::CPAN

1
2
3
4
5
'Activator::Registry':
  'Activator::Dictionary':
    default_lang:  'en'
    default_realm: 'dtest'
    fail_mode: [ 'backup', 'die' ]

t/data/Dictionary/en/backup.dict  view on Meta::CPAN

1
fkey3 backup value