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