2 # (C) 2007 Jelmer Vernooij <jelmer@samba.org>
3 # Published under the GNU General Public License
6 use Test::More tests => 6;
7 use FindBin qw($RealBin);
9 use Util qw(test_warnings test_errors);
10 use Parse::Pidl qw(warning error);
12 test_warnings("", sub {});
14 test_warnings("x:1: msg\n", sub { warning({FILE => "x", LINE => 1}, "msg"); });
15 test_warnings("", sub {});
17 test_errors("", sub {});
19 test_errors("x:1: msg\n", sub { error({FILE => "x", LINE => 1}, "msg"); });
20 test_errors("", sub {});