pidl:Samba4/NDR/Client: fix arguments to warning()
[samba.git] / pidl / tests / test_util.pl
1 #!/usr/bin/perl
2 # (C) 2007 Jelmer Vernooij <jelmer@samba.org>
3 # Published under the GNU General Public License
4 use strict;
5
6 use Test::More tests => 6;
7 use FindBin qw($RealBin);
8 use lib "$RealBin";
9 use Util qw(test_warnings test_errors);
10 use Parse::Pidl qw(warning error);
11
12 test_warnings("", sub {});
13
14 test_warnings("x:1: msg\n", sub { warning({FILE => "x", LINE => 1}, "msg"); });
15 test_warnings("", sub {});
16
17 test_errors("", sub {});
18
19 test_errors("x:1: msg\n", sub { error({FILE => "x", LINE => 1}, "msg"); });
20 test_errors("", sub {});
21