1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
use strict;
use warnings;
use RT;
use RT::Test nodb => 1, tests => 9;
ok(
RT::Config->AddOption(
Name => 'foo',
Section => 'bar',
),
'added option foo'
);
my $meta = RT::Config->Meta('foo');
is( $meta->{Section}, 'bar', 'Section is bar' );
is( $meta->{Widget}, '/Widgets/Form/String', 'default Widget is string' );
is_deeply( $meta->{WidgetArguments},
{},, 'default WidgetArguments is empty hashref' );
ok(
RT::Config->UpdateOption(
Name => 'foo',
Section => 'baz',
Widget => '/Widgets/Form/Boolean',
),
'updated option foo to section baz'
);
is( $meta->{Section}, 'baz', 'section is updated to baz' );
is( $meta->{Widget}, '/Widgets/Form/Boolean', 'widget is updated to boolean' );
ok( RT::Config->DeleteOption( Name => 'foo' ), 'removed option foo' );
is( RT::Config->Meta('foo'), undef, 'foo is indeed deleted' );
|
