File: 24_options.t

package info (click to toggle)
libformvalidator-simple-perl 0.29-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 412 kB
  • sloc: perl: 3,043; makefile: 4
file content (17 lines) | stat: -rw-r--r-- 425 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
use strict;
use Test::More tests => 5;
BEGIN{ use_ok("FormValidator::Simple") }
BEGIN{ use_ok("FormValidator::Simple::Validator") }
FormValidator::Simple->set_option(
    foo  => 'oof',
    bar  => 'rab',
);

my $o = FormValidator::Simple::Validator->options;
is($o->{foo}, 'oof');
is($o->{bar}, 'rab');

FormValidator::Simple->new( buz => 'zub' );

my $o2 = FormValidator::Simple::Validator->options;
is($o2->{buz}, 'zub');