View | Details | Raw Unified | Return to bug 34776
Collapse All | Expand All

(-)a/t/Form_MessagingPreferences.t (-11 / +21 lines)
Lines 1-15 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
#
3
# This Koha test module is a stub!
4
# Add more tests here!!!
5
2
6
use strict;
3
use Modern::Perl;
7
use warnings;
4
use CGI;
5
use Template;
8
6
9
use Test::NoWarnings;
7
use Test::More tests => 1;
10
use Test::More tests => 2;
8
use Test::MockModule;
9
#use Test::NoWarnings;
11
10
12
BEGIN {
11
use C4::Form::MessagingPreferences;
13
    use_ok('C4::Form::MessagingPreferences');
14
}
15
12
16
- 
13
subtest 'restore_values' => sub {
14
    plan tests => 1;
15
    my $cgi = CGI->new;
16
    my $template_module = Test::MockModule->new( 'Template' );
17
    my $vars = {};
18
    $template_module->mock( 'param', sub { my ( $self, $key, $val ) = @_; $vars->{$key} = $val; } );
19
    my $template = Template->new( ENCODING => 'UTF-8' );
20
21
    C4::Form::MessagingPreferences::restore_form_values( $cgi, $template );
22
    require Data::Dumper; warn Data::Dumper::Dumper(  $vars ); #FIXME Remove debugging
23
    # TODO Add some checking on $vars->{messaging_preferences} here
24
25
    ok(1); # FIXME Replace
26
};

Return to bug 34776